Home » ExcelVBA Rangeオブジェクト » Charactersオブジェクト » マクロでフリガナをふる－Range.SetPhoneticメソッド

マクロでフリガナをふる－Range.SetPhoneticメソッド

対象：Excel2000, Excel2002, Excel2003

Excelのふりがな機能に関連する記事を、ご紹介してきました。

特にExcelをデータベースとして使う場合に、ふりがなは重要かつ便利な機能です。
けれども、あくまでもExcelで入力が行われたときの読みをふりがなと仮定して保持しているだけ、という問題点もあります。

フリガナの情報がなければフリガナは表示できない

ふりがな（読み）の情報を持っていなければ、ふりがなは表示されないのです。

実務の中では、例えば、他のデータベースからCSVファイルをエクスポートして、ExcelでそのCSVファイルをインポートして利用するといったことはよくあります。

こういったデータでは読みの情報は保持されていませんから、メニュー［書式］−［ふりがな］−［表示/非表示］を実行したところでふりがなは表示されません。

［スポンサードリンク］

フリガナをふるサンプルマクロ

このようなデータにふりがなを表示させるには、マクロを使いましょう。

Sub 選択セルにフリガナをふる()
　Selection.SetPhonetic
　Selection.Phonetics.Visible = True
End Sub

まず、RangeオブジェクトのSetPhoneticメソッドでふりがなを設定して、
　　Selection.SetPhonetic

その後PhoneticsオブジェクトのVisibleプロパティで、
　　Selection.Phonetics.Visible = True
で設定したふりがなを表示しています。

「Selection.Phonetics.Visible = True」は、メニュー［書式］−［ふりがな］−［表示/非表示］をクリックするのと同じことです。

今回はマクロの形でご紹介しましたが、実はマクロにしなくてもふりがなを設定することはできます。~~その方法は近日に別途ご紹介します。~~イミディエイトウィンドウで「Selection.SetPhonetic」を実行する操作を記事にしました（2005-08-22）。

［スポンサードリンク］

Home » ExcelVBA Rangeオブジェクト » Charactersオブジェクト » マクロでフリガナをふる－Range.SetPhoneticメソッド

TrackBack:4

TrackBack URL

VBEでフリガナをふる from インストラクターのネタ帳: 対象：Excel 2000,2002,2003 ふりがな（読み）の情報を保持していないデータに対して、マクロを使ってふりがなを設定する方法をご紹介しました。その最後で、マクロを作っておかなくてもふりがなを設定することができることを示唆しておきましたが、その方法をご紹介し...
複数行コマンドをイミディエイトウィンドウで実行 from インストラクターのネタ帳: 対象：Visual Basic Editor 先日、ExcelのVBE（Visual Basic Editor）のイミディエイトウィンドウからコマンドを実行して、セルにふりがな設定する方法をご紹介しました。「Selection.SetPhonetic」でふりがな設定だけを行い、実際にふりがなを表示する操作はExcel側で...
マクロにショートカットキーを割り当てる−マクロダイアログ from インストラクターのネタ帳: 対象：Excel 97,2000,2002,2003 これまでこのサイトでいくつかのマクロをご紹介してきました。・ワークシート名一覧を作成したい・非表示シートをまとめて表示したい・シートを並べ替えたい・マクロでフリガナをふる登録したマクロを実行する方法はいろいろあります...
ふりがなを一気に削除するマクロ from インストラクターのネタ帳: 対象：Excel2000,Excel2002,Excel2003,Excel2007 VBA（Visual Basic for Application...