質問: エクセル VBA 空白セルで判定する方法について
回答: 3つのセルなら組み合わせは8通り。 残りの3つはどうするのでしょうか。 残りの3つも含めてサンプルを記述します。 ・残りの3つでは何もせずにコメントだけ記述しています ・処理を止めるところは Exit Sub にしています If Range("B1") <> "" Then If Range("B2") <> "" Then If Range("B3") <> "" Then '1B1とB2とB3 全て空白ではない(3セル全てに値が入力されている) MsgBox "○全て入力済みです" Else '2B1とB2が入力済 B3が空白 MsgBox "○B1とB2が入力済みです" End If Else If Range("B3") <> "" Then 'このパターンなし(B1とB2が入力済 B2が空白) Else '3B1が入力済 B2とB3が空白 MsgBox "○B1が入力済みです" End If End If Else If Range("B2") <> "" Then If Range("B3") <> "" Then '5B1が空白 MsgBox "✕「B1」を入力後に「B2」と「B3」を入力して下さい" Range("B2:B3").ClearContents Exit Sub Else 'このパターンなし(B2が入力済 B1とB3が空白) End If Else If Range("B3") <> "" Then 'このパターンなし(B3が入力済 B1とB2が空白) Else '4B1とB2とB3が全て空白 MsgBox "✕「B1」or「B1とB2」or「B1とB2とB3」に入力して下さい" Exit Sub End If End If End If