【2026年7月最新】VBAのVal関数完全ガイド｜文字列→数値変換・型変換関数全種類・Claude Code活用法

この記事の内容

1. 01VBAのVal関数とは？文字列を数値に変換する基本
2. 02Val関数の動作：変換できるもの・できないもの
3. 03VBAの型変換関数全種類（CInt・CLng・CDbl等）
4. 04IsNumeric関数でエラーを防ぐ方法
5. 05Excelセルの値の型変換：文字列数字をSUM対象にする
6. 06数値を文字列に変換：CStr・Format関数の使い方
7. 07型変換エラーの原因と対処法
8. 08Claude CodeでVBAの型変換コードを自動生成する
9. FAQよくある質問

📚 用語解説

Val関数：VBAの組み込み関数。「Val(文字列)」の形で使い、文字列を数値（Double型）に変換して返す。文字列の先頭から数値として解釈できる部分を読み取り、数値に変換できない文字が出た時点で変換を止める。例：Val("123abc") → 123、Val("abc123") → 0。対になるのはStr関数（数値を文字列に変換）。

' Val関数の基本的な使い方
Dim strNum As String
Dim result As Double

strNum = "1234"
result = Val(strNum)
MsgBox result            ' 1234と表示（Double型）
MsgBox TypeName(result)  ' Doubleと表示

' 小数も変換できる
MsgBox Val("3.14")      ' 3.14と表示

' 先頭が数値なら途中の文字は無視
MsgBox Val("123abc")    ' 123と表示（abcは無視）

' 先頭が文字なら0を返す
MsgBox Val("abc123")    ' 0と表示

' カンマ区切り数値を変換する正しい方法
Dim strNum As String
strNum = "1,234,567"

' Replaceでカンマを除去してからValで変換
Dim num As Double
num = Val(Replace(strNum, ",", ""))
MsgBox num  ' 1234567と表示

' 先頭ゼロの扱い
MsgBox Val("0123")   ' 123（先頭ゼロが消える）
MsgBox Val("00456")  ' 456（同様）

' 郵便番号を数値変換すると先頭ゼロが消えるため注意
Dim postcode As String
postcode = "0123456"  ' 〒012-3456
MsgBox Val(postcode)   ' 123456（先頭の0が消える）

' 16進数・8進数の変換
MsgBox Val("&HFF")    ' 255（16進のFFを10進に変換）
MsgBox Val("&HFF01")  ' 65281（16進のFF01を10進に変換）

Val関数は常にDouble型（倍精度浮動小数点数）を返します。整数が欲しい場合は「CInt(Val(文字列))」や「CLng(Val(文字列))」と組み合わせて使えますが、後述のCInt・CLng関数を直接使う方がシンプルです。

📚 用語解説

型変換関数（CInt・CLng・CDbl等）：VBAで変数の型を特定の型に変換するための組み込み関数群。「C」はConvert（変換）の頭文字。例：CInt（Integer型に変換）、CLng（Long型に変換）、CDbl（Double型に変換）、CStr（String型に変換）、CBool（Boolean型に変換）、CDate（Date型に変換）。Val関数との違いは、Val関数が文字列→数値専用で常にDouble型を返すのに対し、C系関数は引数が変換可能な値なら数値・文字列・ブール値など任意の型から目的の型に変換できる点。

' CInt vs CLng の使い分け
' CIntはIntegerの範囲（-32768〜32767）
Dim intVal As Integer
intVal = CInt("1000")   ' OK
' intVal = CInt("100000")  ' エラー：範囲オーバー

' CLngはLongの範囲（-21億〜21億）
Dim lngVal As Long
lngVal = CLng("100000")   ' OK
lngVal = CLng("1000000")  ' OK（100万もOK）

' Excelの行番号を扱う場合は必ずLong
Dim lastRow As Long
lastRow = CLng(Cells(Rows.Count, 1).End(xlUp).Row)

' 財務計算はCCurを使う
Dim amount As Currency
amount = CCur("12345.6789")
MsgBox amount   ' 12345.6789（4桁小数まで保持）

' CDblの精度注意点
Dim dbl As Double
dbl = CDbl("0.1") + CDbl("0.2")
MsgBox dbl   ' 0.30000000000000004 など浮動小数の誤差が出ることがある

📚 用語解説

IsNumeric関数：VBAの組み込み関数。「IsNumeric(値)」の形で使い、引数が数値として評価できる場合はTrue、できない場合はFalseを返す。数値への型変換（CInt・CLng・CDbl等）の前に事前チェックとして使い、型変換エラーを防ぐのが一般的な使い方。Val関数は変換できない場合に0を返すが、IsNumericはTrueまたはFalseで判定できる。

' IsNumericで変換前にチェックする安全なパターン
Dim strVal As String
strVal = Cells(2, 1).Value

If IsNumeric(strVal) Then
    ' 数値に変換できる場合のみ変換
    Dim numVal As Long
    numVal = CLng(strVal)
    Cells(2, 2).Value = numVal * 2   ' 計算処理
Else
    ' 数値でない場合の処理
    Cells(2, 2).Value = "数値ではありません"
End If

IsNumericは"1,234"（カンマ区切り）をTrueと返しますが、CInt("1,234")やCLng("1,234")を実行すると型変換エラーになります。カンマ区切りの数値を変換する場合は、IsNumericのTrue判定後にReplaceでカンマを除去してからCLng等を使ってください。

' A列の文字列数値を数値型に変換する
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Dim i As Long
For i = 1 To lastRow
    Dim cellVal As String
    cellVal = CStr(Cells(i, 1).Value)
    
    If IsNumeric(cellVal) Then
        ' カンマを除去してから数値変換して上書き
        Cells(i, 1).Value = CDbl(Replace(cellVal, ",", ""))
    End If
Next i

MsgBox "数値変換完了: " & lastRow & "行"

' 変換後はSUM・AVERAGEが正常に動作する

' 

  
📚 用語解説
  
On Error Resume Next：VBAのエラー処理文。このステートメントの後にエラーが発生しても処理を中断せず次の行に進む（エラーを無視する）。Err.Numberを確認してエラーの有無を判定し、Err.Clearでエラー情報をリセットする。「On Error GoTo 0」で通常のエラー処理（エラー発生で停止）に戻す。エラーを無視しすぎると問題の特定が難しくなるため、限定的な範囲でのみ使うのがベストプラクティス。



On Error Resume Nextでエラーを無視しながら変換
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Dim i As Long
Dim errorCount As Long
errorCount = 0

For i = 1 To lastRow
    On Error Resume Next
    Dim oldVal As Variant
    oldVal = Cells(i, 1).Value
    
    If IsNumeric(oldVal) Then
        Cells(i, 1).Value = CDbl(Replace(CStr(oldVal), ",", ""))
    End If
    
    If Err.Number <> 0 Then
        errorCount = errorCount + 1
        Err.Clear
    End If
    On Error GoTo 0
Next i

MsgBox "変換完了（エラー: " & errorCount & "件）"

📚 用語解説

Format関数：VBAの組み込み関数。「Format(値, 書式文字列)」の形で使い、数値・日付・時刻を指定した書式の文字列に変換する。「#,##0」で桁区切り数値、「0.00」で小数2桁固定、「YYYY年MM月DD日」で日付書式のように多様な書式に対応。ExcelのTEXT関数に相当するVBAの関数。帳票・レポート出力・表示用文字列の生成に頻繁に使われる。

' CStrで数値を文字列に変換
Dim num As Long
num = 12345

Dim str As String
str = CStr(num)
MsgBox str              ' "12345"と表示
MsgBox TypeName(str)    ' Stringと表示

' 小数
MsgBox CStr(3.14)       ' "3.14"と表示

' 日付
MsgBox CStr(Date())     ' 今日の日付の文字列

' Format関数の使い方
Dim num As Long
num = 1234567

' 桁区切りカンマ付きの数値
MsgBox Format(num, "#,##0")        ' "1,234,567"

' 小数点以下2桁（端数は四捨五入）
MsgBox Format(3.14159, "0.00")     ' "3.14"

' 0埋めした数値（3桁）
MsgBox Format(42, "000")           ' "042"

' 円記号付きの通貨表示
MsgBox Format(9800, "\\#,##0円")    ' "9,800円"

' 日付の書式変換
Dim d As Date
d = CDate("2026/07/18")
MsgBox Format(d, "YYYY年MM月DD日")  ' "2026年07月18日"

Excelのセルに「書式設定」を適用しても、VBAで読み取るセルの値の型は変わりません。セルが「数値書式：#,##0円」に設定されていても、Cells(1,1).Valueは数値のまま返します。Format関数はVBA内で数値を特定の書式の「文字列」に変換するものです。セルへの出力にはFormat関数を使い、セルからの読み込みは型変換関数（CInt等）を使うというように使い分けてください。

' 安全な型変換の完全パターン
Function SafeToLong(ByVal val As Variant) As Long
    ' NullやEmpty・Nothing等の異常値を全てガード
    If IsNull(val) Or IsEmpty(val) Then
        SafeToLong = 0
        Exit Function
    End If
    
    ' 文字列に変換してトリム
    Dim strVal As String
    strVal = Trim(CStr(val))
    
    ' カンマ除去（桁区切り対策）
    strVal = Replace(strVal, ",", "")
    
    ' 数値チェック後に変換
    If IsNumeric(strVal) Then
        SafeToLong = CLng(strVal)
    Else
        SafeToLong = 0
    End If
End Function

' 使い方
Dim result As Long
result = SafeToLong(Cells(2, 1).Value)
MsgBox result

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？