|
こんばんは。
>上記の場合で範囲のC13:C27とH13:H27なのですが
>ここの部分は注文シートの品番と数量が入るところなのですべて全部取得するわ
>けではないんですね。1行の時もあれば6行で終わる時もあるんですよ。
最初に書いて頂かないとこちらでは判りません。
Jakaさんが記載された「CountA関数」の方が正解ですね。
こんな感じかな?。
Sub Test()
Dim Ch As Boolean
Ch = True
With Sheets("印刷")
If WorksheetFunction.CountA(.Range("I4,D9,I8,I9")) <> 4 Then: Ch = False
If WorksheetFunction.CountA(.Range("C13:C27")) = 0 Then: Ch = False
If WorksheetFunction.CountA(.Range("H13:H27")) = 0 Then: Ch = False
If Ch = False Then
MsgBox "未入力があります。"
Exit Sub
End If
.PrintPreview
End With
End Sub
|
|