|
▼りんご さん:
>上記の場合で範囲のC13:C27とH13:H27なのですが
>ここの部分は注文シートの品番と数量が入るところなのですべて全部取得するわけではないんですね。1行の時もあれば6行で終わる時もあるん
>ですよ。
データの未入力を検知するのですから、データ範囲の最終行を決定できる列が
必要と思いますよ。
例えば、A列に「受注No」が必ず入力されていて、その最終行までをデータ
範囲とする などのように。
A列の最終行をデータの最終行とした場合、こんな感じで如何でしょうか。
Sub test()
Dim Rng As Range
Dim EndRw As Long
EndRw = Range("A65536").End(xlUp).Row
Set Rng = Range("I4,D9,I8,I9,C13:C" & EndRw & ",H13:H" & _
EndRw).Find("", lookat:=xlWhole)
If Not Rng Is Nothing Then
MsgBox Rng.Address(False, False) & _
" に未入力があります。確認して下さい"
End If
Set Rng = Nothing
End Sub
|
|