VBAでふりがなを取得する方法

ExcelPHONETIC()関数では、Excel上で入力された文字に対してしかふりがなを取得できません。しかしVBAのApplication.GetPhonetic()メソッドならば、IMEの再変換を利用してふりがなを取得できます。

次のコードでは選択範囲のふりがなを取得し、その右側のセルにそれを表示します。

Dim i As Long
For i = Selection(1).Row To Selection(Selection.Count).Row

    Dim column As Long
    column = Selection(1).column

    Cells(i, column + 1).Value
        = Application.GetPhonetic(Cells(i, column).Value)

Next