質問: エクセルについて質問です。あるセルに入力した漢字を1文字ずつに分けて別々のセルに表示させ(ここまではできます),その1字ずつに対応する読み仮名を隣のセルなどにそれぞれ表示させることは可能ですか?
回答: フリガナはユーザーが入力したプロセスをエクセルが記憶しておく機能です。 ですから質問と入力したのは記憶されますが数式で「質」を取り出した場合は変換の記録がないのでフリガナは表示されません。前もって「質」を入力しておけば大丈夫ですがやってられないですね。 よくあるパターンとしてフリガナを付ける機能はありますが数式ではなくShift+Alt+↑ キーを押す操作なので数式ではできません。 それと2文字熟語はほとんどが音読みですね。1文字にしてマクロでフリガナを設定しても訓読みになるのであまり期待できないです、というか絶望的ですね。 音読みと訓読みが一致していないと・・・・ Sub test() Dim rng1 As Range, rng2 As Range, rng3 As Range, r As Range Set rng1 = Range("A1", Cells(1, Columns.Count).End(xlToLeft)) Set rng2 = rng1.Offset(2).Resize(2) Set rng3 = rng1.Offset(4).Resize(2) rng1.Offset(1) = "=PHONETIC(A1)" rng2 = "=MID(A$1,ROW(A1),1)" rng2.Value = rng2.Value For Each r In rng2 r.SetPhonetic Next rng3 = "=PHONETIC(A3)" End Sub