漢字で入力されているものを、振り仮名をつける方法ありますか? PHONETICという関数があると思うのですが、漢字を入力した際にしか、変換されず、元々漢字で表されてるのは変換できません。
漢字をセルに貼り付けただけでは, 振り仮名をきちんと参照してくれないみたいです.
とりあえずの対処法としては,
漢字がある参照元のセルを選択し, メニューバーの[書式]→[ふりがな]→[編集]を選択すると, 振り仮名の編集画面になります.
正しい振り仮名がついていればそのまま抜けると, PHONETIC関数が書かれているセルも正しいふりがなになります.
元々の漢字のセルに選択して
VBEのイミディエイトウィンドウに次のコードを入力してエンターを押してください。
Selection.SetPhonetic
それで元々の漢字にふりがなが設定されます。
回答ありがとうございます。
VBEのイミディエイトウィンドウにどうやっていくかわかりません。
[ツール]-[マクロ]-[Visual Basic Editer]で画面を開き
[表示]-[イミディエイト ウィンドウ]で下の方にウィンドウが開きます。
SALINGERさんの回答を元に マクロで 作ってみました。
Sub Macro1() ' ' Macro1 Macro ' ' Keyboard Shortcut: Ctrl+q ' Range("A1:IV65536").Select Selection.SetPhonetic Range("A1").Select End Sub
これで シート一括して フリガナがつきます。
http://www6.plala.or.jp/MilkHouse/inexper/contents101/contents10...
>「ツール(T)」-「マクロ(M)」と行って「Visual Basic Editor(V) Alt+F11」をクリック
で開いたところに イミディエイトというのがあれば そこに
Range("A1:IV65536").SetPhonetic
とやって エンターとすれば シート全体に フリガナが つきます。
マクロにするより こっちのほうが 簡単でした。
完璧です!ありがとうございました。
なるほどありがとうございます。
ただ何千もの漢字のデータを一括で
振り仮名をふることはできるんでしょうか?