VBAで文字列を数値に変換する方法
ExcelのVBA（Visual Basic for Applications）は、データ処理や作業の自動化に非常に強力なツールです。今回は、Excelのセルに入力された文字列を数値に変換するVBAスクリプトの解説を行います。
コード
Sub ConvertTextToNumbers()
Dim rng As Range
Dim cell As Range
' ユーザーに対象セル範囲を選択させる
On Error Resume Next
Set rng = Application.InputBox("対象セル範囲を選択してください:", Type:=8)
On Error GoTo 0
' 選択範囲が無効な場合は終了
If rng Is Nothing Then Exit Sub
' 各セルをチェックし、文字列なら数値に変換し、書式を数値に変更
For Each cell In rng
If IsNumeric(cell.Value) Then
cell.Value = Val(cell.Value)
cell.NumberFormat = "General" ' 数値書式に変更
End If
Next cell
End Subこのスクリプトは、ユーザーが指定した範囲内のセルで、文字列が数値として認識できる場合に、その文字列を数値に変換し、セルの書式を「一般」に設定するものです。これは、データ入力の際に文字列として入力された数値を、計算可能な数値データに変換する必要がある場合に便利です。
### ステップバイステップの解説
1. **変数の宣言**:
`Dim rng As Range` と `Dim cell As Range` により、範囲（Range）オブジェクト用の変数 `rng` とセル（Range）オブジェクト用の変数 `cell` を宣言します。
2. **ユーザー入力の取得**:
`Application.InputBox` メソッドを使用して、ユーザーに対象となるセル範囲を選択させます。ここで `Type:=8` は、選択範囲がセル範囲であることを指定しています。
3. **エラーハンドリング**:
`On Error Resume Next` と `On Error GoTo 0` は、エラーハンドリングのためのコードです。これにより、ユーザーが無効な範囲を選択した場合にマクロがクラッシュするのを防ぎます。
4. **範囲の検証**:
`If rng Is Nothing Then Exit Sub` は、ユーザーが何も選択しなかった場合、またはキャンセルした場合にサブプロシージャを終了するためのコードです。
5. **変換処理の実行**:
`For Each cell In rng` ループを使用して、選択された範囲内の各セルを順番に処理します。`IsNumeric` 関数でセルの値が数値として認識できるかをチェックし、`Val` 関数で文字列を数値に変換します。最後に `cell.NumberFormat = "General"` でセルの書式を数値に設定します。
### まとめ
このVBAスクリプトは、データの前処理や整形に役立ちます。特に大量のデータを扱う際に、手動での変換作業を省力化し、効率を大幅に向上させることができます。VBAを活用することで、Excelの機能を最大限に引き出し、作業の自動化を実現することが可能です。