2018年05月19日

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
で使える。

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


posted by 忘却の達人 at 13:46| Comment(1) | Excel | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
主にヤフー地図利用のため時々お世話になってました。(残してくださってありがとうございます)
サイト閉鎖とのことで残念ですが、これからも頑張ってください
Posted by 感謝 at 2020年01月15日 12:29
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。