Excel:漢字をカタカナに変換

こんな関数があったとは知らなんだ。

セル内関数のPHONETICでセルに直接入力した漢字しか変換されない（コピペした漢字は変換できない）けど、vbaのApplicationオブジェクトのGetPhoneticメソッドはパラメータで渡した漢字を全部変換してくれる。

Application.GetPhonetic("東雲") → シノノメ

アドインに関数作っとけばセル内関数として使えていいかも。

Function  GETKANA(Byval Text As Variant) As String
    GETKANA = Application.GetPhonetic(Text)
End Function

あとこれAccessやWordには無いみたい。でもExcelがインストールされてれば

CreateObject("Excel.Application").GetPhonetic

ExcelのObject Libraryが参照設定されてれば

Excel.Application.GetPhonetic

で使える。

但し必ずしも正しく変換されるとは限らない。
東西 → トウザイ
東日本 → ヒガシニホン
東雲 → シノノメ
東海林 → トウカイリン
惜しい…日本語って難しいなぁ。

Comments

主にヤフー地図利用のため時々お世話になってました。（残してくださってありがとうございます）
サイト閉鎖とのことで残念ですが、これからも頑張ってください

Posted by 感謝 at 2020年01月15日 12:29