Excel VBA 空白セルがあったらメッセージボックスで知らせたい

複数セルに空欄があったらメッセージを出したいと思います。
以下コードを実行すると”型が一致しません"と出ます。
どう変えたらいいでしょうか。

Sub 空白セル()
Dim i As Long
i = Range("A1,S1,K1")
If i = "" Then
MsgBox "空白セルがあります"
End If
End Sub

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2022/02/13 09:00

No.1の者です。

セルが複数ある場合、１つずつ確認する形になると思います。
.Value　で、セルのデータを取得できますので、そこで文字があるかの
チェックができます。

シンプルなチェックだと
Sub 空白セル()
If Range("A1").Value = "" Then Msgbox "A1セルは空白です。"
If Range("S1").Value = "" Then Msgbox "S1セルは空白です。"
If Range("K1").Value = "" Then Msgbox "K1セルは空白です。"
End Sub


For Eachは、まとまったものを、１つずつ確認する時に便利です。
ワークシートや、複数のセルなど。

Sub 空白セル()
Dim myRng As Range
For Each myRng In Range("A1,K1,S1")
If myRng.Value = "" Then msgbox "空白セルがあります"
Netx
End Sub

この回答へのお礼

Netx→Nextで動作しました。
簡潔でわかりやすいコード有難う御座います。

お礼日時：2022/02/13 10:50

No.1 回答者： mygoonickname 回答日時： 2022/02/13 08:29

おはようございます。

例えば下記の様な感じとかは、どうでしょうか？

Sub 空白セル()
Dim myRng As Range, myAdr As String
myAdr = ""
For Each myRng In Range("A1,K1,S1")
If myRng.Value = "" Then
myAdr = myAdr & myRng.Address(False, False) & ","
End If
Next
If myAdr <> "" Then
MsgBox myAdr & "が空白です"
End If
End Sub

この回答へのお礼

早速の返信有難う御座います。
調べたらLongは数字を扱うのでNGですね。基本でした。
いただいたコードですが思ったより複雑なのですね。
確認していきます。

お礼日時：2022/02/13 08:51