セルに入力されている値が数字かどうかを調べるには、IsNumeric 関数を使用します。

引数に、セルや値を指定すると、数字の場合はTrueが返されます。

以下に例を示します。



    If IsNumeric(ActiveCell.Value) Then
  MsgBox "数字です"
Else
  MsgBox "数字ではありません"
End If

実行例を以下に示します。