エクセルVBAでセルが数値か数式かの判断方法

エクセル２０００です。

Sub Suuchi()
If IsNumeric(Range("A1")) = True Then
MsgBox "数値で～す♪"
Else
MsgBox "数値じゃないよ！"
End If
End Sub

とやってみたんですが、数式も数値となってしまいます。
数値、数式、文字の判断はどうやればいいんでしょうか？

No.4 ベストアンサー 回答者： kmb01 回答日時： 2004/11/24 18:38

if Range("A1").HasFormula then

'数式
elseif IsNumeric(Range("A1").Value) then
'数値
else
'文字列
end if
でいいと思います。

この回答へのお礼

すばらしい！
完璧です。
HasFormulaって初めて見ました。
たすかりました。

お礼日時：2004/11/25 10:05

No.3 回答者： mshr1962 回答日時： 2004/11/24 18:34

Range("A1")はあくまでも結果で判定されますから数式の結果が数値なら

"数値で～す♪"が表示されます。

文字でなく色をつける方法なら紹介されたサイトがあります。
エクセル技道場【数式が入力されているセルに色をつける】
http://www2.odn.ne.jp/excel/waza/macro.html#SEC23

この回答へのお礼

ありがとうございました。
勉強になりました。

お礼日時：2004/11/25 10:04

No.2 回答者： BLUEPIXY 回答日時： 2004/11/24 18:33

他にもっと良い方法があるような気がしますが、とりあえず動くもの

アクティブセルが数式かどうかを判断します
Dim x As Range
Set x = Application.Intersect(ActiveCell, Application.Cells.SpecialCells(xlCellTypeFormulas))

If x Is Nothing Then
MsgBox "数式じゃない"
Else
MsgBox "数式"
End If

この回答へのお礼

なるほど。SpecialCellsが使えるんですね。勉強になりました。

お礼日時：2004/11/25 10:03

No.1 回答者： haruka1234567890 回答日時： 2004/11/24 18:06

数式の条件も入れたほうがいいですよ。

+-*/()

他にもあるかなぁ。

この回答へのお礼

ありがとうございます。

お礼日時：2004/11/25 10:01