
よろしくお願いいたします。
エクセルの名簿で100名以上あるのですが、
フリガナがなく、漢字の「氏名」しかありません。
そこで、氏名の右に列を挿入して、PHONETIC関数をコピーして入れましたが、漢字のままの氏名しか変換されてきません。
◆漢字のあるセルで”「shift」+「alt」+「↑」”をひとつひとつやってみまると、フリガナに返還されますが、手間がかかってしかたありません。
◆関数を使用もしくは、マクロを使用して、一括してフリガナ変換できる方法を教えてください。
よろしくご指導をお願いいたします。
No.2ベストアンサー
- 回答日時:
おそらく、CSVファイルから変換したようなファイルかと思います。
Phonetic関数が使えるのは、Excel上で漢字変換したものだけに限られます。
下記のようなものを標準モジュールに関数として登録すれば少しは役に立つかも?
使い方はPhonetic関数と同じ。
※得られる結果は、IMEで登録されている読み方の中から適当に選ばれますので
必ずしも本来の読み方になるとは限りません。
生方(うぶかた)→ おがた、中田(なかた)→なかだ など等
つまり、最終的には人間のチェックが必要です。
Function gh(rg As Range) As String
gh = Application.GetPhonetic(rg.Value)
End Function
マクロの関数だと、こんなにシンプルで早く出来るのですね。
ありがとうございました。とても勉強になりました。
また、解説もいただきまして、ありがとうございました。
No.3
- 回答日時:
以下のマクロは、1行目がタイトル行として、A列の2行目から漢字の氏名が入っている場合に、B列にフリガナを設定します。
これはVBAのメソッドGetPhonetic()を使ってますが、当然ながらこれで取得したフリガナは間違っていることがあるので、そのときは手で修正してください。Sub フリガナを取得()
Dim r As Range
For Each r In Range("A2", Range("A65536").End(xlUp))
Range("B" & r.Row).Value = Application.GetPhonetic(r)
Next
End Sub
また、以下は、B列のフリガナを元に、A列の氏名にフリガナを設定するマクロです。上記マクロで取得したフリガナを修正した後に実行すると、次からはワークシート関数のPHONETIC()で取り出せるようになります。
Sub フリガナを設定()
Dim r As Range
For Each r In Range("B2", Range("B65536").End(xlUp))
Range("A" & r.Row).Phonetic.Text = r.Value
Next
End Sub
ご丁寧な解説つきのご回答をいただきまして、感謝いたします。
試してみて、完璧にできました。
ありがとうございました。また、勉強にもなりました。
ただ、ポイントにつきましては、先着順での評価をさせていただきました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelへのデータ入力作業 4 2023/07/01 18:21
- Excel(エクセル) Excelの社員名簿 6 2023/07/10 16:35
- その他(結婚) 名前変更手続きについてです。 来年に結婚が決まり、相手側の名字になります。 それと共にキラキラ寄りな 1 2023/06/02 03:39
- Excel(エクセル) Excelの50音順ソートを全ての行列に適用するには? 4 2022/12/05 11:28
- 会社・職場 Excel、Googleスプレッドシートなどへのデータ入力 2 2023/07/06 05:59
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Excel(エクセル) エクセルでセルに何らかの文字が入力されたらそれを任意の数値として認識させる方法がしりたいです。 3 2023/03/16 20:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「良」という漢字は「ら」って...
-
「築」←この漢字の下の木へんが...
-
エクセルのPHONETIC関数(もし...
-
IMEの旧漢字変換について
-
「とどまる」は通常平仮名で表...
-
うなぎ屋さんの「うふぎ」?
-
左側が''王''で右側がカタカナ...
-
漢字数より読み仮名数のほうが...
-
漢文早覚え即答法にて
-
読み方を教えて下さい!
-
「急がしい」←いそがしいをこう...
-
よろしくお願いします 漢字の読...
-
やがて と じきに はどう違いま...
-
知故
-
中国語、日本人からしたら割り...
-
以下の文字は漢字と平仮名のど...
-
この漢字の読み方を教えてくだ...
-
名前が2文字の女って性格悪いの...
-
スマホで漢字が変換できない場...
-
読み方
おすすめ情報