マクロについて質問です 範囲内のセルが空白か調べるにはどのようなプログラムになるんでしょうか？ セル

マクロについて質問です
範囲内のセルが空白か調べるにはどのようなプログラムになるんでしょうか？
セルには数式が入っておりますが、数式を無視して
ほしいです
また、一つでも空白がある場合に
メッセージボックスで空白ですと表示させたいです
ご教授願います、、

No.3 ベストアンサー 回答者： Qchan1962 回答日時： 2020/02/11 23:27

こんばんは、

範囲が塊なら、こんな方法もあります。
Sub Sample()
If WorksheetFunction.CountBlank(Range("A1:B10")) > 0 Then MsgBox ("空白があります")
End Sub
また、必須項目入力を確かめるなどに使う場合
セル範囲に名前定義して
参考：https://kokodane.com/kihon13.htm

Sub 名前付きセル範囲()　’必須入力は、仮の名前
Dim rng As Range
For Each rng In Range("必須入力")
If rng.Value = "" Then MsgBox ("空白があります")
Exit Sub
Next rng
End Sub

No.2 回答者： tom04 回答日時： 2020/02/11 21:44

こんばんは！

単に空白に見えているセルがあるかないか？だけの判断で良いのですね。
（例えばセル番地を取得するコトなどはしない）

一例です。
必ず調べたい範囲を範囲指定し、マクロを実行してみてください。

Sub Sample1()
　Dim c As Range
　Dim 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 回答者： satoumasaru 回答日時： 2020/02/11 21:02

数式がはいっている場合は

「空白ではない」と処理をするのですか？
それとも、「見かけ上、空白」ならば空白として処理をするのですか？
数式の無視の意味がよくわからないのですが。

この回答へのお礼

見かけ上、空白ならば
空白と処理してほしいです

お礼日時：2020/02/11 21:35