【VBA】数値かどうかを判定する【チェック】

VBAコード

ここでは例として、
　・シート「sample」のセル「B3」の値を取得して
　・値が数値かどうかを判定
します。

Option Explicit

Sub sample()
    
    Dim targetNum As String
    
    '判定したいデータを取得
    targetNum = Worksheets("sample").range("B3")
    
    '数値かどうかを判定
    If IsNumeric(targetNum) = False Then
        MsgBox "数値以外が入力されています。数値を入力してください。"
    End If
    
End Sub

実行結果

数値かどうかを判定できました。

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●VBA関数「IsNumeric」