Excel VBA Val関数は文字列内に含まれる数値を抽出して数値型に変換

以下のようなシーンで利用されます。

・文字列に数値が含まれている場合に、その数値部分を抽出して数値型として扱いたいとき。

・ユーザー入力が文字列形式で数値を含む場合に、その数値を計算や比較に使用したいとき。

Option Explicit

Sub ExampleValUsage()
    Dim str1 As String
    Dim str2 As String
    Dim str3 As String
    Dim num1 As Double
    Dim num2 As Double
    Dim num3 As Double
    
    str1 = "123.45abc"
    str2 = "abc123.45"
    str3 = "123,456.78xyz"
    
    num1 = Val(str1) ' 123.45
    num2 = Val(str2) ' 0
    num3 = Val(str3) ' 123
    
    MsgBox "Num1: " & num1 ' 出力: Num1: 123.45
    MsgBox "Num2: " & num2 ' 出力: Num2: 0
    MsgBox "Num3: " & num3 ' 出力: Num3: 123
End Sub