VBA入門
GetPhoneticメソッドとSetPhoneticメソッド(フリガナ)

ExcelマクロVBAの基本と応用、エクセルVBAの初級・初心者向け解説
公開日:2013年5月以前 最終更新日:2021-11-23

第104回.GetPhoneticメソッドとSetPhoneticメソッド(フリガナ)


GetPhoneticメソッドは、指定した文字列の日本語の「ふりがな」を取得します。
SetPhoneticメソッドは、セルに日本語の「ふりがな」を設定します。
マクロVBAにおいて、「ふりがな」を扱う時はこれらのメソッドを使います。


セルに入っている「ふりがな」を取得するワークシート関数のPHONETIC関数とは違い、
・PHONETIC関数の書式 ・範囲 ・PHONETIC関数の使用例 ・PHONETIC関数の応用例
これらのメソッドは、漢字に対する一般的な読み方を取得するものです。
したがって、
セルに「ふりがな」が入っていない場合に、「ふりがな」を取得・設定するためのメソッドになります。
これらのメソッドは、Microsoft Office の言語の設定で日本語が選択またはインストールされている場合にのみ利用できます。


GetPhoneticメソッド

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

Application.GetPhonetic(Text)

Applicationは省略できません。

引数Textの説明
オプションです。
バリアント型 (Variant) です。
ふりがなに変換するテキストを指定します。
この引数を省略すると、以前に指定された引数 Text でのふりがな候補の文字列を返します。
候補の文字列がない場合は空の文字列を返します。


GetPhoneticメソッドの使用例

以下のサンプルはWindows環境
以下のサンプルはVBAリファレンスのままですが、Windows(IME?)により先頭候補しか取得できません。
以前は取得できていたのですが、最近の環境では取得できませんでした。

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

"都の西北"の読み候補を全てメッセージ表示しています。
"ミヤコノセイホク"
の次に
"トノセイホク"
と表示されます。


セルに「ふりがな」が入っている場合にこれを取得するには、ワークシート関数のPHONETIC関数を使用してください。
・PHONETIC関数の書式 ・範囲 ・PHONETIC関数の使用例 ・PHONETIC関数の応用例

'ワークシートのPhonetic関数を使う
MsgBox WorksheetFunction.Phonetic(Range("A1"))

'RangeのPhoneticオブジェクトを参照する
MsgBox Range("A1").Phonetic.Text


SetPhoneticメソッド

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

Rangeオブジェクト.SetPhonetic

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

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


SetPhoneticメソッドの使用例

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

A1:A10の全てのセルにふりがなを設定しています。
以下も参考にして下さい。
ユーザー定義関数でフリガナを取得する
ワークシート関数の、「PHONETIC」では、他のソフト等からコピペした漢字は取得できません。そこで、VBAでユーザー定義関数を作成し、読みを取得できるようにします。A列はメモ帳よりコピペしました。B列に、ユーザー定義関数を指定して、振り仮名を取得しています。




同じテーマ「マクロVBA入門」の記事

第101回.Midステートメント

・Midステートメント ・MidBステートメント ・Midステートメントの使用例 ・Midステートメントの必要性 ・実践での使用例
第102回.Intersectメソッド
・Intersectメソッド ・Intersectの使用例 ・Intersectメソッドの最後に
第103回.UnionメソッドとAreasプロパティ
・Unionメソッド ・Areasプロパティ ・Unionメソッドで連結した結果のRangeオブジェクトの状態について ・Unionメソッドの使用例 ・Unionメソッドの実践例
第104回.GetPhoneticメソッドとSetPhoneticメソッド(フリガナ)
第109回.列挙型(列挙体)Enum
・Enumステートメント ・列挙型(Enumステートメント)の使用例 ・列挙型(Enumステートメント)の活用について
第110回.ユーザー定義型・構造体(Type)
・Typeステートメントの構文 ・ユーザー定義型の使い方 ・ユーザー定義型の使用例 ・ユーザー定義型の制限 ・最後に
第111回.静的配列
・配列とは ・静的配列と動的配列 ・配列の宣言 ・多次元配列 ・要素の下限の変更 ・配列について
第112回.動的配列(Redim)
・ReDimステートメント ・要素数の変更について ・配列について
第113回.配列に関連する関数
・LBound関数とUBound 関数 ・Array関数 ・IsArray 関数 ・Join関数 ・Filter関数 ・Eraseステートメント
第114回.セル範囲⇔配列(マクロVBA高速化必須テクニック)
・セル範囲⇔配列の基本VBA ・使用例 ・配列およびマクロVBAの高速化に関するページ
第115回.Split関数
・Split関数 ・区切り文字が文字列式内に存在しない場合 ・空文字("")をSplitした場合 ・Split関数の使用例


新着記事NEW ・・・新着記事一覧を見る

エクセルが起動しない、Excelが立ち上がらない|エクセル雑感(2024-04-11)
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)
累計を求める数式あれこれ|エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE|エクセル入門(2024-01-03)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.RangeとCellsの使い方|VBA入門
6.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
7.並べ替え(Sort)|VBA入門
8.メッセージボックス(MsgBox関数)|VBA入門
9.セルのクリア(Clear,ClearContents)|VBA入門
10.ひらがな⇔カタカナの変換|エクセル基本操作




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。


このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ