Excel VBAでひらがなとカタカナを簡単に変換する方法

こんにちは！今日はExcel VBAを使って、ひらがなとカタカナを簡単に変換する方法をご紹介します。パソコンやスマホの操作に不安がある方でも安心して取り組める内容ですので、ぜひ最後までご覧ください。

Excel VBAでひらがなとカタカナを変換する基本の方法
複数のセルを一括で変換する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Excel VBAでひらがなとカタカナを変換する基本の方法

Excelのイメージ

まずは、Excel VBAの「StrConv」関数を使って、ひらがなとカタカナを変換する基本的な方法を学びましょう。

StrConv関数とは？

StrConv関数は、文字列の変換を行うExcel VBAの関数です。例えば、ひらがなをカタカナに変換したり、カタカナをひらがなに変換したりできます。

ひらがなをカタカナに変換するコード

以下のコードをVBAエディタに入力してみましょう。

Sub ConvertToKatakana()

    Dim originalText As String

    Dim convertedText As String
    originalText = "こんにちは"

    convertedText = StrConv(originalText, vbKatakana)

MsgBox "変換前: " & originalText & vbCrLf & "変換後: " & convertedText End Sub

このコードを実行すると、メッセージボックスに「こんにちは」が「コンニチハ」に変換された結果が表示されます。

カタカナをひらがなに変換するコード

次に、カタカナをひらがなに変換するコードをご紹介します。

Sub ConvertToHiragana()

    Dim originalText As String

    Dim convertedText As String
    originalText = "コンニチハ"

    convertedText = StrConv(originalText, vbHiragana)

MsgBox "変換前: " & originalText & vbCrLf & "変換後: " & convertedText End Sub

このコードを実行すると、メッセージボックスに「コンニチハ」が「こんにちは」に変換された結果が表示されます。

複数のセルを一括で変換する方法

複数のセルに入力されたひらがなやカタカナを一括で変換したい場合、以下のコードを使用できます。

Sub ConvertRange()

    Dim ws As Worksheet

    Dim targetRange As Range

    Dim cell As Range

    Dim choice As String
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Set targetRange = ws.Range("")
    choice = InputBox("1: ひらがなをカタカナに変換、2: カタカナをひらがなに変換")
    For Each cell In targetRange

        If choice = "1" Then

            cell.Value = StrConv(cell.Value, vbKatakana)

        ElseIf choice = "2" Then

            cell.Value = StrConv(cell.Value, vbHiragana)

        Else

            MsgBox "無効な入力です。", vbExclamation

            Exit Sub

        End If

    Next cell

MsgBox "変換が完了しました。", vbInformation End Sub

このコードを実行すると、からまでのセルに入力されたひらがなやカタカナが、一括で変換されます。

よくある質問や疑問

Q1: StrConv関数以外でひらがなとカタカナを変換する方法はありますか？

はい、Excelの「PHONETIC」関数を使用する方法もあります。しかし、PHONETIC関数はふりがなを取得するものであり、すべての文字に対応しているわけではありません。StrConv関数の方が汎用性が高く、確実に変換できます。

Q2: 半角カタカナをひらがなに変換する方法はありますか？

半角カタカナをひらがなに変換するには、まず半角カタカナを全角カタカナに変換し、その後、全角カタカナをひらがなに変換する必要があります。以下のコードで実現できます。

Sub ConvertHalfWidthKatakanaToHiragana()

    Dim originalText As String

    Dim convertedText As String
    originalText = "ｺﾝﾆﾁﾊ"

    convertedText = StrConv(StrConv(originalText, vbWide), vbHiragana)

MsgBox "変換前: " & originalText & vbCrLf & "変換後: " & convertedText End Sub

このコードを実行すると、メッセージボックスに「ｺﾝﾆﾁﾊ」が「こんにちは」に変換された結果が表示されます。

Q3: 変換後の結果を別のセルに表示する方法はありますか？

はい、変換後の結果を別のセルに表示することができます。以下のコードでは、変換前の文字列をA列に、変換後の文字列をB列に表示します。

Sub ConvertAndDisplay()

    Dim ws As Worksheet

    Dim targetRange As Range

    Dim cell As Range

    Dim choice As String
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Set targetRange = ws.Range("")
    choice = InputBox("1: ひらがなをカタカナに変換、2: カタカナをひらがなに変換")
    For Each cell In targetRange

        If choice = "1" Then

            cell.Offset(0, 1).Value = StrConv(cell.Value, vbKatakana)

        ElseIf choice = "2" Then

            cell.Offset(0, 1).Value = StrConv(cell.Value, vbHiragana)

        Else

            MsgBox "無効な入力です。", vbExclamation

            Exit Sub

        End If

    Next cell