エクセルで別のセルにあるふりがなを，漢字の上に表示させる方法はあります

エクセルで別のセルにあるふりがなを，漢字の上に表示させる方法はありますか？
たとえばＡ２に漢字表示，Ｂ２にそのふりがなが表示されています。このふりがなをＡ２の漢字の上に表示したい（同じセルの中に）のですが関数でできますか？
マクロはほとんど分からないので，できれば関数か他の方法がいいのですが…。

No.5 ベストアンサー 回答者： hige_082 回答日時： 2010/04/10 21:37

こんな感じだと思うよ

Sub test()
Dim i
For i = 2 To Cells(Rows.Count,1).End(xlUp).Row
With Cells(i, 1)
.Characters(1, Len(.Value)).PhoneticCharacters = Cells(i, 2).Value
.Phonetics.Visible = True
End With
Next i
End Sub

マクロの設定は
[Alt]を押しながら、[T][M][V][I][M]の順でキーを押す
表示された画面のカーソル位置へコードをコピペ
画面を閉じる

マクロの実行は
[Alt]を押しながら、[T][M][M]の順でキーを押す
testマクロを実行

参考まで

この回答へのお礼

うまくいきましたありがとうございました！

お礼日時：2010/06/03 21:33

No.4 回答者： KURUMITO 回答日時： 2010/04/10 17:45

回答No3です。

シート見出しを右クリックして「コードの表示」で表示される画面の右側の空白部分に下記のコードを入力します。

Sub ふりがな入力()
Dim RowPos As Integer
For RowPos = 2 To 180
Range("A" & RowPos).Select
Range("A" & RowPos).SetPhonetic
Range("A" & RowPos).Phonetic.Visible = True
ActiveCell.Characters(1, 5).PhoneticCharacters = Range("B" & RowPos)
Next RowPos
Range("A3").Select
End Sub

実際の操作は「ツール」メニューから「マクロ」更に「マクロ」と進んで「ふりがな入力」のコード名を選んで「実行」をクリックすればよいでしょう。

この回答へのお礼

改善できました！うまくいきました。ありがとうございます。

お礼日時：2010/06/03 21:41

No.3 回答者： KURUMITO 回答日時： 2010/04/09 13:48

マクロを使わない限り不可能でしょう。

マクロでしたら例えば次のようにします。
「開発」タブから「マクロ」をクリックします。
マクロ名の入力の窓には例えば「ふりがな入力」を入力します。
「作成」をクリックして表示される画面に次のようなコードを入力します。
Sub ふりがな入力()
Range("A2").Select
Range("A2").SetPhonetic
Range("A2").Phonetic.Visible = True
ActiveCell.Characters(1, 5).PhoneticCharacters = Range("B2")
Range("A3").Select
End Sub
これで終了です。
その後の操作は「マクロ」を選択してから「ふりがな入力」を選択して「実行」をクリックすることでＡ2セルの漢字にＢ2文字のふりがなが付けられて表示されます。

この回答への補足

早速の回答ありがとうございました。
エクセルの2003なのですが，シートのタグ→右クリック→コードの表示でこのコードをコピーでもＯＫですか？
名簿が180人分くらいあるのですが，Ａ２～Ａ１８０まで漢字，Ｂ２～Ｂ１８０までとした場合は上のコードをどのように変えればよいですか？補足をよろしくお願いします。

補足日時：2010/04/10 15:36

No.2 回答者： koko88okok 回答日時： 2010/04/09 12:30

その漢字が他のファイルからコピーされた漢字ではない場合は、別のセルにある「ふりがな」に関係なく簡単な操作で「ふりがな」を表示することができます。

（他のファイルからコピーした漢字でも少し面倒ですが、「ふらがな」を表示することができます。）


下記URLのページをご参照下さい。


「ふりがなの表示」
http://kokoro.kir.jp/excel/furigana.html
「ふりがなの設定変更」
http://kokoro.kir.jp/excel/furigana2.html


「ふりがなを表示・Excel 2007」
http://www.becoolusers.com/excel/furigana.html

この回答へのお礼

回答ありがとございました。
他からのファイルみたいでうまくいきませんでした。

お礼日時：2010/06/03 21:42

No.1 回答者： DIooggooID 回答日時： 2010/04/09 11:09

結論から申し上げますと、同じセルの中に　ふりがなを表示させることはできません。

=PHONETIC()　関数を利用すれば、漢字変換時に入力したかな文字を
表示することはできます。


しかし、関数を利用する場合、自分自身の内容を関数に利用することは
できません。
　　※循環関数　といって、　正しく処理されません。