【Excel VBA学習 #71】INPUTBOXで入力した漢字のフリガナを取得する

まえきんです！

今日からまたレギュラー分のVBAコード学習を再開です。

よろしければ、またよろしくお願いします(^^)

今回はINPUTBOXで入力したフリガナを取得する

方法について学習しましたのでご紹介します。

今回はINPUTBOXに任意の漢字を入力して、

そのフリガナを取得、セルに表示するマクロを考えます。

簡易的にマクロの実行ボタンを作成して、上記のコードを

実行すると下記のように結果が得られます。

【実行前】

今回は漢字の「数」を入力してみます。

【実行後】

OKボタンを押下します。

A1セルにフリガナが表示されていることが確認出来ました！

本来であればこの機能に加えて、入力された名前の別のフリガナを

取得するVBAコードもあったのですが、

Application.GetPhonetic関数の動きがどうもおかしい。。。

２回目以降引数を省略すると、まだ返していないフリガナの

文字列を返すはずなのですが、、、どうあがいても””しか返さない。。

これは、漢字を別の文字列に変えてみても結果は同じで、

１つしかフリガナを返してくれない。いったい何が起きているんだろう？？？

考え込んでいても埒が明かないので、、、

今回は少し内容をシンプルにさせて頂きました 笑

次回#72は「セルにフリガナを表示／非表示に設定する」

VBAコードについて学習予定です。

最後まで読んで頂きありがとうございました！ではまた！