Sub test()

    If Range("A1").Value = 0 Then MsgBox "Yes"
    If Range("A1").Value = Empty Then MsgBox "Yes"
    If Range("A1").Value = "" Then MsgBox "Yes"

End Sub

セルA1に、何も入っていない空欄の場合、結果は全てYesと表示されます 
セルA1に、数値のゼロ0が入っている場合、If Range("A1").Value = "" 以外は全てYesと表示されます。


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ