質問: "□" End If End Sub ```
回答: コンボボックスに対してCIntをしているのが原因と思われます。 つまりこうなっているのでは。 CInt("") 大小比較を行いたいのはわかりますが、同時には行わないで、最初のif文では全て入力されているのかのチェック。 次に入力値の整合性チェックと段階を踏んで処理した方が良いでしょう。 ``` Private Sub CommandButton2_Click() 'すべての項目をnull禁止 If TextBox1.Value = "" Or ComboBox3.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then MsgBox "すべての入力項目を記入してください。" Exit Sub End If '選択月の整合性チェック If CInt(Replace(ComboBox1.Text, "月", "")) > CInt(Replace(ComboBox2.Text, "月", "")) Then MsgBox "適切なデータを入れてください。" Exit Sub End If '該当「月」をアクティベート ThisWorkbook.Worksheets(ComboBox3.Text).Activate 'タスクをA列に反映 n = Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveSheet.Cells(n, 1).Value = TextBox1.Value 'タスクのチャートを反映 '背景色と□の反映 Range(Cells(n, CInt(Replace(ComboBox1, "月", "")) + 1), Cells(n, CInt(Replace(ComboBox2, "月", "")) + 1)).Interior.ColorIndex = 3 Range(Cells(n, CInt(Replace(ComboBox1, "月", "")) + 1), Cells(n, CInt(Replace(ComboBox2, "月", "")) + 1)).Value = "□" End Sub ```