空白_かどうか判定する

トップページ（目次）

321.空白_かどうか判定する

＜実行前後＞

→

Sub 空白_かどうか判定する()
    
    If Range("E1") = "" Then
    
        MsgBox "E1は空白です"
    
    End If
    
End Sub

↑だけでは関数が入力されていても、値が空白なら空白判定されるので ↓を使えば関数が入力されているか判定できます。

Sub 関数や計算式が入力されている_かどうか判定する()

    If Range("E1").HasFormula = True Then
    
        MsgBox "E1に関数や計算式が入力されています"
    
    End If

End Sub

結論、どちらか一つでは不十分なので、ケースによりますが、両方組み合わせれば漏れがありません。

Sub 空白かつ関数もなし_かどうか判定する()
    
    If Range("E1") = "" Then
    
        If Range("E1").HasFormula = False Then
            
            MsgBox "E1は空欄です"
            
        End If
        
    End If

End Sub