現在選択中のセルの中に空白があるのなら

質問

現在選択中のセルの中に空白があるのなら
と言うコードを作りたいのですが

Sub test()
Dim r As Range
Set r = Selection

'if rの中に空白があるなら then
MsgBox "空白セルがあります"
'end if

Set r = Nothing
End Sub

ここまでしかわかりませんでした。
ｉｆステートメントどうすればいいか教えていただけますか？
ご教授よろしくお願いします。

回答No.3

keithin · ベストアンサー

sub macro1()
　if application.counta(selection) < selection.count then
　　msgbox "空白セルがあります"
　end if
end sub
みたいな。

お礼

ありがとうございました。

回答No.2

tom04

こんばんは！
人それぞれで色々なコードになると思いますが・・・
一例です。
単に空白セルがあるか？ないか？だけでよい訳ですよね？

Sub Sample1()
Dim c As Range, myFlg As Boolean
For Each c In Selection
If c = "" Then
myFlg = True
Exit For
End If
Next c
If myFlg = True Then
MsgBox "空白セルあり"
Else
MsgBox "空白セルなし"
End If
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

ありがとうございました。

回答No.1

noname#203218

VBAの一例です。ご参考まで。
For Each ステートメントを使用するのが簡単かと思います。

Sub test()
Dim r As Range

For Each r In Range(Selection.Address)
If r.Value = Empty Then
MsgBox "空白セルがあります"
Exit For
End If
Next

End Sub

お礼

ありがとうございました。