【Excel&VBA】何もないセルを判断する【備忘録】

Excelのマクロで何もないセルを指定する方法です。

簡単なようで意識していないと難しいですよね。

セルの値に何もない時の判定

IF文を使って空白を判定することができます。

Sub 空白判定()

If Cells(1,1) = "" Then '空白を判定する文

MsgBox "このセルは空白です。"  '空白がある場合、メッセージボックスで次の表示。

Else  'そうでないならば・・・

MsgBox "このセルには値があります。" '値がある場合にはこちらが表示されます。

End If

End Sub

Len関数を使った方法でもできます。

Sub 空白判定()

If Len(Cells(i,1)) = 0 Then '空白を判定する文

MsgBox "このセルは空白です。"  '空白がある場合、メッセージボックスで次の表示。

Else  'そうでないならば・・・

MsgBox "このセルには値があります。" '値がある場合にはこちらが表示されます。

End If

End Sub

コメント

タイトルとURLをコピーしました