VBA　セルの値が数値かを判定したい

 

 

セルの値が数値かを判定する

 

構文
IsNumeric(Range.value)
 

 

 

Sub test()

 

    Dim R As Range
    
    For Each R In Range("B3:C6")
        If Not IsNumeric(R) Then

　　　　　　’　数字以外のセルに黄色塗りする

            R.Interior.Color = vbYellow
        End If
    Next

 

End Sub

 

実行結果

 

 

上のコードを実行すると、B3:C６のなか、数字でないものを、黄色塗りをすることなります。

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る