マクロでフリガナをふろう！

Excelをデータベースとして使う際には、「ふりがな」というのは重要な機能です。そして便利な機能です。フリガナの機能には「フリガナをふる」「PHONETIC関数を使ってフリガナを取得する」など色々な機能があります。
まぁ日本語入力と漢字の関係性から言っても万全ではないのが弱点なのですが･･･

さらに弱点として、フリガナはExcel上で行われた入力の読みを保持しているだけと言う事も上げられます。ということは、読み（ふりがな）の情報を持っていなければふりがなというのは画面上に表示されないということになります。

ツールからふりがなをふる際の弱点としては、ＣＳＶファイルをエクセル上にインポートして使用する場合ですが、この場合は読みの情報は保持されない状態でインポートされてきます。ですから、ふりがなのツール「メニュー［書式］→［ふりがな］→［表示/非表示］」を実行してもふりがながふられないということになります。

このような場合には「PHONETIC関数」を使ってマクロでふるようにしましょう。
【PHONETIC関数を使った、ふりがなをふるマクロ】
Sub Phonetic-Furigana()
　Selection.SetPhonetic
　Selection.Phonetics.Visible = True
End Sub

上記のようなマクロを作成して、フリガナをふりたいセルで実行するようにするとふりがなを取得することができます。