emptyが判定されない

質問

マクロの記述が巧くいかないので質問させてください。
以下のようなマクロを組んでみたのですが、うまくいきません。

sub a()
If Range("K1").End(xlDown).Offset(0, 12).Value = "" Or Range("K1").End(xlDown).Offset(0, 12).Value = Empty Then
Range("K1").End(xlDown).Offset(0, 12).Value = "必要ない"
End If
end sub

マクロ画面上でRange("K1").End(xlDown).Offset(0, 12).Valueにポイントすると「Empty値」と出てくるため、= ""　の後に=Emptyと入れてみたんですが、文字の入力がされません。

よろしくお願いします。

回答No.3

mimeu

No.1 です
ウッカリ　Ｒａｎｇｅ関数　を書き忘れました

If IsEmpty(Range("A1")) Then

のように、です

回答No.2

mimeu

ＶＢの IsEmpty 関数を使います。

If IsEmpty(判断したいセルのアドレス) Then

のように

回答No.1

AngraMain

Excelのマクロ(VBA)でEmptyの判断は"= Empty"ではなく[IsEmpty]です
http://www.serpress.co.jp/excel/vba006.html

If Range("K1").End(xlDown).Offset(0, 12).Value = ""
　Or Range("K1").End(xlDown).Offset(0, 12).Value = Empty Then
　↓
If Range("K1").End(xlDown).Offset(0, 12).Value = ""
　Or IsEmpty(Range("K1").End(xlDown).Offset(0, 12).Value) Then

になるのではないかと...。