Excelで隣のセルにふりがなを振るには？

質問

Excel2000以前で作成したものに振り仮名を挿入したいのですが、関数を使うと漢字のままになってしまいます。
マクロを使ってなんとかなりませんでしょうか？？
多少の読み間違いはＯＫですので。
どなたかお分かりになる方お願いいたします。

回答No.2

Wendy02 · ベストアンサー

'どこにおいても可能
Sub ふりがな復活()
Dim c As Range
For Each c In Range(ActiveCell, ActiveCell.End(xlDown))
　　c.SetPhonetic
Next c
End Sub

文字がある列の一番上にセルポインターを置いて、Alt + F8 (Altキーを押しながら、F8を押す）で、ふりがな復活を選択しま

お礼

選択しなくても全部に振り仮名を付けることができ、
大変勉強になりました。すぐに使えますね(^_^)v
ありがとうございました。
ショートカットキーも教えてもらっちゃって嬉しいです。

回答No.3

gutugutu

マクロを使わなくても簡単な関数で出来ます。
たとえばセルA1に漢字が入力してあるとして
セルB1に＝PHONETIC(A1)と入力すればカタカナで振り仮名が表示されます。

回答No.1

tetsus_2000

以下のコラムで解決できるかと。

http://www.fujistaff.com/skill/it/a42.html

お礼

すごく役立ちました！！
急いでいたのでありがたかったです。
ありがとうございました。