初心者向け！VBAのStrConv関数で文字列変換を効率化【全角⇔半角】

Sub ConvertToUpperCase()
    Dim text As String
    Dim result As String
    
    text = "hello world"
    
    result = StrConv(text, vbUpperCase)
    
    '// 結果を出力
    MsgBox "変換前 : " & text & vbCrLf & _
           "変換後 : " & result
End Sub

Sub ConvertToHalfWidth()
    Dim text As String
    Dim result As String
    
    text = "ＡＢＣ１２３"
    
    result = StrConv(text, vbNarrow)
    
    '// 結果を出力
    MsgBox "変換前 : " & text & vbCrLf & _
           "変換後 : " & result
End Sub

Sub ConvertToKatakana()
    Dim text As String
    Dim result As String
    
    text = "こんにちは"
    
    result = StrConv(text, vbKatakana)
    
    '// 結果を出力
    MsgBox "変換前 : " & text & vbCrLf & _
           "変換後 : " & result
End Sub

Sub StrConvErrorExample()
    Dim text As String
    Dim result As String

    text = "hello world"
    
    '// 変換モードを指定せずに実行
    result = StrConv(text) '// エラー発生: 引数は省略できません。
    
    MsgBox result
End Sub

Sub StrConvCorrectExample()
    Dim text As String
    Dim result As String

    text = "hello world"
    
    '// 変換モードを明示的に指定
    result = StrConv(text, vbUpperCase) '// 大文字に変換
    
    MsgBox result '// 出力: "HELLO WORLD"
End Sub

Sub StrConvSpecialCharBehavior()
    Dim text As String
    Dim result As String

    '// 全角の特殊記号
    text = "＠＆＃"
    
    '// 全角を半角に変換
    result = StrConv(text, vbNarrow)
    
    MsgBox "変換前 : " & text & vbCrLf & _
           "変換後 : " & result
End Sub

Sub StrConvSpecialCharFix()
    Dim text As String
    Dim result As String

    '// 全角の特殊記号
    text = "＠＆＃"
    
    '// StrConv関数で変換
    result = StrConv(text, vbNarrow)
    
    '// Replace関数で補完（必要に応じて特殊記号を変換）
    result = Replace(result, "＠", "@")
    result = Replace(result, "＆", "&")
    result = Replace(result, "＃", "#")
    
    MsgBox "変換前 : " & text & vbCrLf & _
           "変換後 : " & result
End Sub

Sub StrConvNoEffectExample()
    Dim text As String
    Dim result As String

    '// 数値の文字列
    text = "12345"
    
    '// カタカナ変換モードを指定
    result = StrConv(text, vbKatakana)
    
    MsgBox "変換前 : " & text & vbCrLf & _
           "変換後 : " & result '// 結果: 「12345」 (そのまま返される)
End Sub

Sub StrConvCheckExample()
    Dim text As String
    Dim result As String

    '// 数値の文字列
    text = "12345"
    
    '// カタカナ変換モードを指定
    result = StrConv(text, vbKatakana)
    
    '// 変換結果を確認して条件分岐
    If result = text Then
        MsgBox "変換が適用されませんでした。" & vbCrLf & _
               "変換前 : " & text & vbCrLf & _
               "変換後 : " & result
    Else
        MsgBox "変換が成功しました！" & vbCrLf & _
               "変換前 : " & text & vbCrLf & _
               "変換後 : " & result
    End If
End Sub

Sub StrConvSlowExample()
    Dim ws As Worksheet
    Dim i As Long
    Dim lastRow As Long

    '// ワークシートの設定
    Set ws = ThisWorkbook.Sheets(1)
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '// A列の最終行を取得

    '// ループ内でStrConv関数を繰り返し呼び出す
    For i = 1 To lastRow
        ws.Cells(i, "A").Value = StrConv(ws.Cells(i, "A").Value, vbUpperCase) '// 大文字に変換
    Next i
    
    MsgBox "処理が完了しました。"
End Sub

Sub StrConvFastExample()
    Dim ws As Worksheet
    Dim dataArray As Variant
    Dim i As Long

    '// ワークシートの設定
    Set ws = ThisWorkbook.Sheets(1)

    '// データを配列に読み込む
    dataArray = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Value

    '// 配列内で一括変換
    For i = 1 To UBound(dataArray, 1)
        dataArray(i, 1) = StrConv(dataArray(i, 1), vbUpperCase) '// 大文字に変換
    Next i

    '// 変換後のデータをシートに書き戻す
    ws.Range("A1:A" & UBound(dataArray, 1)).Value = dataArray

    MsgBox "処理が完了しました。"
End Sub

Sub ConvertToTitleCase()
    Dim nameList As Variant
    Dim result As String
    Dim i As Long

    '// 名前データを配列に格納
    nameList = Array("john doe", "jane smith", "michael brown", "sarah connor")

    '// 配列内の名前をタイトルケースに変換
    For i = LBound(nameList) To UBound(nameList)
        result = StrConv(nameList(i), vbProperCase) '// タイトルケースに変換
        Debug.Print result '// 変換結果をデバッグウィンドウに表示
    Next i
End Sub

Sub NormalizeAndFormatData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim cellValue As String

    '// ワークシートの設定
    Set ws = ThisWorkbook.Sheets(1)
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '// A列の最終行を取得

    '// A列の各セルを処理
    For i = 2 To lastRow
        cellValue = ws.Cells(i, "A").Value '// セルの値を取得
        cellValue = StrConv(cellValue, vbNarrow) '// 全角文字を半角に変換
        cellValue = Replace(cellValue, " ", "_") '// 空白をアンダースコアに置き換え
        ws.Cells(i, "B").Value = cellValue '// 処理結果をセルに書き戻す
    Next i

    MsgBox "データの整形が完了しました。"
End Sub