Excel VBA テクニック集
ふり仮名取得

Excelの機能に「フリガナ」があります。これをＶＢＡで操作します

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

リボンをクリックすることにより、セルの上部に表示することができます。

また、計算式でふり仮名を取得することができます。

漢字からふり仮名への変換方法です。

    Dim Cell_Obj As Object
    Set Cell_Obj = Excel_App.ActiveSheet.Range("B2")

とします。

取得方法	コード
Excelのふり仮名機能を使う	Cell_Obj.Phonetic.Text
ＩＭＥの仮名漢字変換の逆の機能を使う	Excel_App.Application.GetPhonetic(Cell_Obj.Value)

上記方法で取得することができます。

Excel VBA テクニック集ふり仮名取得