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