VBAで数字かどうか判別するには？

VBAで数字かどうか判別する方法

VBAで数字かどうか判別する方法

セルに入っている値が数値かどうかは、IsNumeric関数を使って調べられます。引数にセルや値を指定すると、それが数値の場合にTrueを返します。

IsNumeric関数の使い方

IsNumeric関数は、VBAにおいて特定の値が数値であるかどうかを確認するための便利な組み込み関数です。この関数は、引数として調べたい値を指定することで、それが数値の場合はTrue、それ以外の場合はFalseを返します。

基本的なコード例

まずは基本的な例を見てみましょう。この例では、A1セルの値が数値かどうかを判断します。

<script type="text/vba">
Sub CheckIfNumeric()
    Dim cellValue As Variant
    cellValue = Range("A1").Value
    If IsNumeric(cellValue) Then
        MsgBox "A1セルの値は数値です。"
    Else
        MsgBox "A1セルの値は数値ではありません。"
    End If
End Sub
</script>

他の特殊なケースの処理

特定のケースでは、IsNumeric関数の結果が予期しない結果になることがあります。たとえば、数値を含む文字列（例："123"）や空白に対しても数値として認識されます。これらのケースについても注意が必要です。

以下の例では、追加のチェックを行うことで、より厳密に数値判定を行っています。

<script type="text/vba">
Sub StrictCheckIfNumeric()
    Dim cellValue As Variant
    cellValue = Range("A1").Value
    If IsNumeric(cellValue) And cellValue <> vbNullString Then
        MsgBox "A1セルの値は有効な数値です。"
    Else
        MsgBox "A1セルの値は有効な数値ではありません。"
    End If
End Sub
</script>

応用事例：複数のセルを確認する

複数のセルの値を一度に確認したい場合は、ループを使って効率的に処理することができます。以下に、範囲B1:B10のセルをチェックする例を示します。

<script type="text/vba">
Sub CheckRangeForNumericValues()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("B1:B10")
    
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            cell.Interior.Color = vbGreen  ' 数値の場合は緑色でマーク
        Else
            cell.Interior.Color = vbRed    ' 数値でない場合は赤色でマーク
        End If
    Next cell
End Sub
</script>

関連する質問と回答

Q1: IsNumeric関数は文字列に含まれる数値も認識しますか？

A1: はい、文字列内に数値が含まれている場合（例："123"）、IsNumeric関数はTrueを返します。

Q2: セルが空である場合、IsNumeric関数はどのような結果を返しますか？

A2: セルが空である場合、IsNumeric関数はFalseを返します。

Q3: 小数や負の数はIsNumeric関数で認識されますか？

A3: はい、小数や負の数もIsNumeric関数により正しく数値として認識され、Trueを返します。

その他の参考記事:javascript 数字 チェック