GetPhoneticメソッドとSetPhoneticメソッド（フリガナ）

最終更新日：2018-02-06

第104回.GetPhoneticメソッドとSetPhoneticメソッド（フリガナ）

GetPhoneticメソッドは、指定した文字列の日本語のふりがなを取得します、

SetPhoneticメソッドは、セルに日本語のふりがなを設定します。

これらは、セルに入っている「ふりがな」を取得するものではなく、漢字にたいする一般的な読み方を取得するものです。

セルに入っている「ふりがな」を取得する場合は、ワークシート関数のPHONETIC関数を使ってください。

このメソッドは、Microsoft Office の言語の設定で日本語が選択またはインストールされている場合にのみ利用できます。

GetPhoneticメソッド

Applicationのメソッドです。
指定した文字列の日本語の「ふりがな」を取得します。

Application.GetPhonetic(Text)

Applicationは省略できません。

引数の説明

Text

オプションバリアント型 (Variant) ふりがなに変換するテキストを指定します。

この引数を省略すると、以前に指定された引数 Text でのふりがな候補の文字列を返します。

候補の文字列がない場合は空の文字列を返します。

使用例．

Dim strPhoText As String
strPhoText = Application.GetPhonetic("都の西北")
While strPhoText <> ""
　　MsgBox strPhoText
　　strPhoText = Application.GetPhonetic()
Wend

"都の西北"の読み候補を全てメッセージ表示しています。

"ミヤコノセイホク"
の次に
"トノセイホク"
と表示されます。

SetPhoneticメソッド

Rangeオブジェクトのメソッドです。
指定された範囲内のすべてのセルに「ふりがな」を設定します。

Rangeオブジェクト.SetPhonetic

指定した範囲に既存の Phonetic オブジェクトが含まれている（既にふりがなが入っている）場合、
このメソッドを使用して追加される新しい Phonetic オブジェクトに自動的に上書き (既存は削除) されます。

設定される「ふりがな」は、
GetPhoneticで最初に取得される「ふりがな」と同じものになります。

使用例

ActiveSheet.Range("A1:A10").SetPhonetic

A1:A10の全てのセルにふりがなを設定しています。

以下も参考にして下さい。

ユーザー定義関数でフリガナを取得する