WindowsXP の Excel2003です。
例えばインターネットからコピペして作った住所録の「名前」には「ふりがな」がありません。上一桁でいいのですが「ふりがな」を関数で作れませんか？
■ Anser
残念ながら関数は用意されていないようです。但し、下記マクロで作れますが、完全には一致しません。
§１．ふりがなを作るマクロ
Sub ふりがな作成()
Selection.SetPhonetic
End Sub
§２．サンプルデータ
菅内閣 閣僚名簿等（平成23年1月14日発足、7月5日現在）より引用
| 職名（代） | 氏名 | ふりがな（正） | 備考 |
|---|---|---|---|
| 内閣総理大臣 | 菅 直人 | かん なおと | 衆院 |
| 総務大臣 | 片山 善博 | かたやま よしひろ | |
| 法務大臣・環境大臣 | 江田 五月 | えだ さつき | 参院 |
| 外務大臣 | 松本 剛明 | まつもと たけあき | 衆院 |
| 財務大臣 | 野田 佳彦 | のだ よしひこ | 衆院 |
| 文部科学大臣 | 郄木 義明 | たかき よしあき | 衆院 |
| 厚生労働大臣 | 細川 律夫 | ほそかわ りつお | 衆院 |
| 農林水産大臣 | 鹿野 道彦 | かの みちひこ | 衆院 |
| 経済産業大臣 | 海江田 万里 | かいえだ ばんり | 衆院 |
| 国土交通大臣 | 大畠 章宏 | おおはた あきひろ | 衆院 |
| 防衛大臣 | 北澤 俊美 | きたざわ としみ | 参院 |
| 内閣官房長官 | 枝野 幸男 | えだの ゆきお | 衆院 |
| 国家公安委員会委員長 | 中野 寛成 | なかの かんせい | 衆院 |
| 郵政改革担当 | 自見 庄三郎 | じみ しょうざぶろう | 参院 |
| 内閣府特命担当大臣 | 細野 豪志 | ほその ごうし | 衆院 |
| 内閣府特命担当大臣 | 与謝野 馨 | よさの かおる | 衆院 |
| 国家戦略担当 | 玄葉 光一郎 | げんば こういちろう | 衆院 |
| 東日本大震災復興対策担当 | 平野 達男 | ひらの たつお | 参院 |
§３．Excelデータ
- サンプルデータをExcelに貼り付ける。
- E列に“ふりがな（副）”、F列に“一致”のフィールドを作る。
- セルB2:B19を選択し、
マクロ「ふりがな作成」を［実行］する。 - セルE2に“=PHONETIC(B2)”を入力し、
セルE19までコピーする。 - セルF2に“=IF(C2=E2,"○","×")”を入力し、
セルF19までコピーする。
§４．結果
- 「ふりがな」を付けるには、マクロで「SetPhonetic メソッド」を実行する。
- 得られた「ふりがな」の精度は、菅内閣閣僚名簿では、12/18＝67%であった。
“=COUNTIF(F2:F19,"○")/COUNTA(F2:F19)” - 辞書 Microsoft Office IME 2010 の「変換モード」を「人名／地名」で行ってみたが、精度は変わらなかった。
§５．参考
- E列を「ふりがな」の上1桁にするには、式を“=LEFT(PHONETIC(B2),1)”とすればよい。
- 一度付けた「ふりがな」を一括削除することはできません。（たぶん）
便法として、メモ帳にコピペし、メモ帳のデータをExcelにコピペする方法があります。 - Excelのマクロに関しては、セキュリティ上の問題がありますので、手順は載せていません。
- 「ふりがな」に関しては、楽天ブログ（Blog）「Excel 漢字にふりがなをふる」が参考になるでしょう。
