ExcelVBAでの空白セルの判断方法

ExcelのVBAでセルに文字（数字又は文字）が書かれているかの判断に”Empty”を使用していますが、これだとスペースのみ入力されていても空白と判断されません、他に本当に文字だけ書かれているかどうかを判別する方法はないでしょうか、具体的構文で教えていただけると幸いです。

No.1 回答者： merlionXX 回答日時： 2007/01/31 13:55

Sub test01()

x = Range("A1").Value
If Len(Trim(x)) = 0 Then
y = "文字無し"
Else
y = "文字あり"
End If
MsgBox y
End Sub

この回答へのお礼

早々に回答ありがとうございました。
皆さん、だいたい同じような方法でアドバイスいただきました。
”Len"と"Trim"を利用したらうまくできました。

お礼日時：2007/01/31 17:21

No.2 ベストアンサー 回答者： zap35 回答日時： 2007/01/31 13:56

余分な空白を取り除いて桁数がゼロかどうか判定しては？

If Len(Application.Trim(ActiveCell))　= 0 Then
MsgBox("空白セル")
End If

この回答へのお礼

早々にありがとうございました。

お礼日時：2007/01/31 17:22

No.3 回答者： mshr1962 回答日時： 2007/01/31 13:57

Len(Trim(変数名))=0 これで未入力とスペースのみを判定できます。

数値も除くなら
ISNumeric
日付・時刻を除くなら
ISDate
と合わせて確認ですね。

この回答へのお礼

早々にありがとうございました。
３名さんが同じようなご指摘で解決しました。

お礼日時：2007/01/31 17:23

No.4 回答者： Wendy02 回答日時： 2007/01/31 14:11

こんにちは。

>ExcelのVBAでセルに文字（数字又は文字）が書かれているかの判断に”Empty”を使用していますが、

たぶん、ご質問が正確に伝わっていないようです。

Cells(1,1).Value =Empty

を判定に使っているということでしょうか？コードを見せないと良く分かりません。

If Cells(1,1).Value ="" 　'長さ0の文字列
は、Cells(1,1).Value =Empty　
と同じ判定です。

通常は、

IsEmpty(Cells(1,1)) などとしますが、
VarType(ActiveCell) = vbEmpty
という方法もあります。

>本当に文字だけ書かれているかどうかを判別する方法はないでしょうか、

その場合は、
VarType(ActiveCell) = vbString

を使用します。なお、IsNumeric では、文字列の数字なのかは判定出来ません。
なお、場合によっては、Rangeオブジェクトは、Valueプロパティを加えてください。

この回答へのお礼

早々にありがとうございました。
VarType(ActiveCell) = vbEmptyはEmptyと同じになります。
LemとTrimでうまくいきました。

お礼日時：2007/01/31 17:25