EXCELで読み仮名を取得する

こんにちは、マーシィです。

EXCELでは各セルへの入力時に、変換前の読み
仮名を記録してあります。
それをPHONETICという関数で取り出すことが
できます。
=PHONETIC(A1)という風に使います。

他のファイルなどからインポートしたデータで
あれば、PHONETIC関数は読み仮名を返すこと
ができません。

この場合、ツール-マクロ-VisualBasicEditorを
開き、挿入から標準モジュールを選択、以下の
ように記述して、ユーザー定義関数を作成しま
す。

Function GP(str As String) As String

Dim yomi As String
yomi = Application.GetPhonetic(str)
GP = yomi

End Function

上記を追加したら、ワークシート上で
＝GP(A1)
という風に、ユーザー定義関数を利用できます。
機械的に推測した読み仮名になりますので人名、
地名などでおかしい場合もありますが、それな
りには正しく当てはめてくれるようです