Excel VBAでふりがなを簡単取得！GetPhoneticメソッドの使い方

Excel VBAを使用してセルに入力された文字のふりがなを効率的に取得する方法を、GetPhoneticメソッドを用いて詳しく解説します。

Excelで入力された文字のふりがなを取得する方法ってある？

Excel VBAのGetPhoneticメソッドを使うと簡単にできますよ。セルに入力された文字に自動で振られたふりがなを取得することが可能です。

GetPhoneticメソッドとは

Excel VBAにおけるGetPhoneticメソッドは、セルに入力された日本語テキストに自動で振られたふりがな（ルビ）を取得するための機能です。

基本的な特徴

GetPhoneticメソッドは、Rangeオブジェクトに適用され、指定されたセル範囲に振られたふりがなを取得します。
Excelのセルに直接入力されたふりがな、またはユーザーが手動で振ったふりがなの両方を取得可能です。

使用方法

このメソッドの基本的な使い方は非常にシンプルです。以下のコードは、特定のセル（例えば”A1″）のふりがなを取得し、それをメッセージボックスで表示する基本的な例です。

Sub ExampleGetPhonetic()
    Dim rng As Range
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1")
    MsgBox rng.GetPhonetic.Text
End Sub

サンプルプログラムによる具体的な使用法

Excel VBAでGetPhoneticメソッドを使用する具体的な例を以下に示します。

このサンプルプログラムは、特定のセルに振られているふりがなを取得し、それをメッセージボックスで表示するものです。

Sub GetFuriganaFromCell()
    ' 対象となるセルを指定
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1")

    ' セルのふりがなを取得
    Dim furigana As String
    furigana = targetCell.GetPhonetic.Text

    ' 取得したふりがなをメッセージボックスで表示
    MsgBox "セルのふりがな: " & furigana
End Sub

このプログラムでは、まずSheet1のA1セルを対象としてRangeオブジェクトを設定します。

その後、GetPhonetic.Textプロパティを使用して、そのセルに振られたふりがなを取得し、メッセージボックスで表示します。

応用例：複数セルのふりがなを取得

複数のセルにまたがる範囲でふりがなを取得する場合、以下のようにコードを変更できます。

Sub GetFuriganaFromRange()
    ' 複数セルを範囲として指定
    Dim targetRange As Range
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A10")

    ' 各セルのふりがなを取得し、結果を結合
    Dim furigana As String
    Dim cell As Range
    For Each cell In targetRange
        furigana = furigana & cell.GetPhonetic.Text & vbCrLf
    Next cell

    ' 取得したふりがなをメッセージボックスで表示
    MsgBox "範囲内のふりがな:" & vbCrLf & furigana
End Sub

この応用例では、Sheet1のA1からA10までの範囲を指定し、各セルのふりがなを取得しています。そして、取得したふりがなを結合し、一つのメッセージボックスで表示しています。