漢字→ひらがな　一括変換

解決済

質問者：noname#4862
質問日時：2003/08/24 17:06
回答数：4件

エクセルで5000件を超える住所録があります。
名前が全て漢字で横の列にひらがなを入力したいです
一括とまで行かなくてもある程度まとまって変換できないでしょうか？（なお、音読み訓読みなどはきにしなくていいです。）

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： tetsus_2000
回答日時：2003/08/26 00:10

＃３です。

以下の手順でマクロを作成して、実行させてください。

(1)メニューの〈ツール〉→〈マクロ〉→〈マクロ〉を実行する
(2)〈マクロ〉ダイアログの〈マクロ名〉欄に適当なマクロ名を入力する
(3)〈作成〉をクリックする
(4)〈Visual Basic Editor〉に下記のVBAプログラムを入力する
(5)メニューの〈ファイル〉→〈終了してMicrosoft Excelへ戻る〉を実行する

(6)ふりがなを設定したいセル範囲（名前が入力されているセル範囲）を選択する
(7)メニューの〈ツール〉→〈マクロ〉→〈マクロ〉を実行して、(1)～(5)で作成・保存したマクロを選択する
(8)〈実行〉をクリックする

上記の手順で、(6)で選択していた「名前」のセル範囲にふりがなが一括設定されますので、あとは

・［書式］－［ふりがな］－［表示/非表示］で同じセル内　にふりがなを表示する
・隣の列にPHONETIC関数を入力して、「名前」の列のふり　がなを読み出す

のいずれかの処理を行ってください。

●入力するマクロ
Public Sub SetFurigana()
　　Dim rg As Range
　　Application.ScreenUpdating = False
　　For Each rg In Selection
　　　　rg.SetPhonetic
　　Next
　　Application.ScreenUpdating = True
End Sub

以上です。

試しに、JIS漢字の先頭から末尾までのすべての漢字を入力して、その読みを変換させてみましたが、CPUが遅いこともあって、さすがに数十秒かかりました。
また、この機能はMS-IMEの再変換機能を利用して、漢字文字列から読みを変換しています。そのため、ご存知かと思いますが、同字異音語の場合、正しい読みとならないこともあります。その場合は、適宜、１箇所ずつ訂正してください。

　

- 0
- 件

通報する

この回答へのお礼

ありがとうございました。おかげさまでかなり仕事がはかどりそうです。大変助かりました。
　

通報する

お礼日時：2003/08/26 11:04

No.3

回答者： tetsus_2000
回答日時：2003/08/25 10:24

その5000件のデータがExcel自体で入力したものであれば、ほかの方からも回答のあった通り、PHONETIC関数でかな漢字変換時の読みを呼び出すことができます。

もし、Excel以外で作成したデータの場合は簡単なマクロを組めば、500件でも1000件でも5000件でも一括して読みを振ることができます....そのままだと、間違った読みの場合もありますが。
必要でしたら、マクロを作りますので、お知らせください。
　

この回答への補足

ご丁寧にありがとうございます。Accessより抽出したデータをエクセルにて作業しております。是非おねがいいたします。

補足日時：2003/08/25 22:25

通報する

- 0
- 件

通報する

No.2

回答者： imogasi
回答日時：2003/08/24 19:37

Ａ列に漢字氏名があるとして、

（１）Ｂ列を列挿入し
Ｂ１に=PHONETIC(A1)といれ、Ｂ２以下に複写します。
そしてＢ列にカナ氏名が出ますでしょうか。コピーしたものなどは出ません。ずっと旧いバージョンのものも出ないでしょう。
（２）もし出れば、見直しによる部分的修正で済むでしょう。
例えば、誉田（コンダ）を「ほまれ」誉れ＋「た」田で漢字を見つけて入力した時は、ホマレタと出てきますが個のような例がないかチェックが必要です。
（３）カナが出ないなら、その列を別列に複写し、数式バーで姓を範囲指定し、黒くして変換キーを押し、読みカナを探しクリックして、カナをセットすれば（その後、名の漢字についても同じく行う）少し作業が早いでしょうか。