エクセルの関数で質問です。

 漢字で入力されているものを、振り仮名をつける方法ありますか? PHONETICという関数があると思うのですが、漢字を入力した際にしか、変換されず、元々漢字で表されてるのは変換できません。
 

回答の条件
  • 1人2回まで
  • 登録:
  • 終了:2007/03/07 12:10:16
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答5件)

id:PhysicsMANIA No.1

回答回数6ベストアンサー獲得回数0

ポイント20pt

漢字をセルに貼り付けただけでは, 振り仮名をきちんと参照してくれないみたいです.

とりあえずの対処法としては,

漢字がある参照元のセルを選択し, メニューバーの[書式]→[ふりがな]→[編集]を選択すると, 振り仮名の編集画面になります.

正しい振り仮名がついていればそのまま抜けると, PHONETIC関数が書かれているセルも正しいふりがなになります.

id:shuhunel

なるほどありがとうございます。

 ただ何千もの漢字のデータを一括で

 振り仮名をふることはできるんでしょうか?

 

2007/02/28 12:52:42
id:SALINGER No.2

回答回数3454ベストアンサー獲得回数969

ポイント20pt

元々の漢字のセルに選択して

VBEのイミディエイトウィンドウに次のコードを入力してエンターを押してください。

Selection.SetPhonetic

それで元々の漢字にふりがなが設定されます。

id:shuhunel

 回答ありがとうございます。

 VBEのイミディエイトウィンドウにどうやっていくかわかりません。

2007/02/28 12:55:00
id:SALINGER No.3

回答回数3454ベストアンサー獲得回数969

ポイント20pt

[ツール]-[マクロ]-[Visual Basic Editer]で画面を開き

[表示]-[イミディエイト ウィンドウ]で下の方にウィンドウが開きます。

id:taknt No.4

回答回数13539ベストアンサー獲得回数1198

ポイント20pt

SALINGERさんの回答を元に マクロで 作ってみました。


Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
    Range("A1:IV65536").Select
    Selection.SetPhonetic
    Range("A1").Select

End Sub

これで シート一括して フリガナがつきます。

id:taknt No.5

回答回数13539ベストアンサー獲得回数1198

ポイント20pt

http://www6.plala.or.jp/MilkHouse/inexper/contents101/contents10...

>「ツール(T)」-「マクロ(M)」と行って「Visual Basic Editor(V) Alt+F11」をクリック

で開いたところに イミディエイトというのがあれば そこに

Range("A1:IV65536").SetPhonetic

とやって エンターとすれば シート全体に フリガナが つきます。

マクロにするより こっちのほうが 簡単でした。

id:shuhunel

 完璧です!ありがとうございました。

2007/02/28 14:34:44

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません