Excel VBA 複数セルにて全部に文字があるか判定

Question

##使用ソフト・プログラミング言語
使用ソフト：Excel
言語：VBA

前提・実現したいこと

Excelにて値が入力された場合、その行の３列目～６列目のすべてに値が入力されている場合だけ処理を実施するという記述をすることとなりました。

例：C5に値を入力した場合、C5～F5の全セルに値が入っているか判定し、全セルに値が入っている場合は、処理を実施する。C5だけ入力済みの場合は、処理を実施しないという形です。
値は、C5 → D5 → E5 → F5の順で入力いたします。

発生している問題

ネットで検索し、WorksheetFunction.CountA() を活用してみましたが、C5に入力した段階で、空白ではないという判定になってしまい、処理がされてしまいます。どう修正すればよろしいでしょうか？

該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)
  dim Rng As Range
  Set Rng = Range(Cells(Target.Row, 3), Cells(Target.Row, 6))'判定範囲を指定する
  If WorksheetFunction.CountA(Rng) = 0 Then 'セルが空白の場合
  Else'セルが空白ではない場合
　 '処理記述
  End If
end sub

Answer 1

If WorksheetFunction.CountA(Rng) = 0 Then 'セルが空白の場合

↑これだと4つあるセルに1つも入力されていない場合は・・・になるので

If WorksheetFunction.CountA(Rng) < 4 Then 'セルが空白の場合

↑これにして、4つあるセルに入力されているのは4つ未満の場合は・・・にしてみてはどうですか？

Answer 2

セル入力直後にイベントプロシージャが実行されるため、
セルC5だけ入力済みの場合、WorksheetFunction.CountA(Rng)
の値は1になります。

Comments

[Yoshikun_0945]

Rngの値が4の場合でしょりすればいいということでしょうか？

[TanakaHiroaki]

それでよいのではないかと思います。