VBA コピペした漢字のカナ変換
☆VBA コピペした漢字のカナ変換
EXCELで漢字で打った文字のカナ変換は、
EXCEL自体に直打ちで文字を打った場合は、簡単に出来ます。
PHONETIC関数。
とか。
こうすると、
キーを打った時にEXCELが、覚えていたデータからカナを出すのか、
カナが表示されます。
例：
漢字 カンジ
でも、この「漢字」を直打ちしないで、他のテキストエディタ等から「漢字」をコピペして、
=PHONETIC(A1)とかすると、
漢字 漢字
となってしまいます。
コピペですので、EXCEL自体に直打ちしたわけではないので、入力時のキーをEXCELは覚えていないようです。
ですので、カナは出せないわけで、
大量の漢字列のリストとかからコピペしてもカナは得られない事になります。
そこで、この方法。
正確なカナは出せないですが、しないより遥かに作業効率が変わるかと思います。
VBAマクロを使います。
VBAの基本は、ここでは書きませんので、知らない人はまず基本を勉強してからにして下さい。
マクロ（VBプログラム）を打つ画面で、「挿入」、「標準モジュール」。
そこに、ある関数を作ります。
こんな感じ。
GetPhoneticでは、IMEで、漢字の逆変換をしている模様。
そして、=PHONETIC(A1)とかの代わりに、
=getkana(A1)とかにしましょう。
すると、マクロ実行で開いたら「カンジ」とカナ変換してくれました。
嬉しいですね。
比較図は、こんな感じ。
もちろん漢字には色々な読みがあるので、
思っているカナが出ないことはありますが、
それでも合っている事も多いので、カナ作成の手間を少しでも省けるかと思います。
記述：2017年03月頃
EXCELで漢字で打った文字のカナ変換は、
EXCEL自体に直打ちで文字を打った場合は、簡単に出来ます。
PHONETIC関数。
=PHONETIC(A1)
とか。
こうすると、
キーを打った時にEXCELが、覚えていたデータからカナを出すのか、
カナが表示されます。
例：
漢字 カンジ
でも、この「漢字」を直打ちしないで、他のテキストエディタ等から「漢字」をコピペして、
=PHONETIC(A1)とかすると、
漢字 漢字
となってしまいます。
コピペですので、EXCEL自体に直打ちしたわけではないので、入力時のキーをEXCELは覚えていないようです。
ですので、カナは出せないわけで、
大量の漢字列のリストとかからコピペしてもカナは得られない事になります。
そこで、この方法。
正確なカナは出せないですが、しないより遥かに作業効率が変わるかと思います。
VBAマクロを使います。
VBAの基本は、ここでは書きませんので、知らない人はまず基本を勉強してからにして下さい。
マクロ（VBプログラム）を打つ画面で、「挿入」、「標準モジュール」。
そこに、ある関数を作ります。
'無理矢理 かな変換
Function GetKana(strtemp)
GetKana = Application.GetPhonetic(strtemp)
End Function
こんな感じ。
GetPhoneticでは、IMEで、漢字の逆変換をしている模様。
そして、=PHONETIC(A1)とかの代わりに、
=getkana(A1)とかにしましょう。
すると、マクロ実行で開いたら「カンジ」とカナ変換してくれました。
嬉しいですね。
比較図は、こんな感じ。
もちろん漢字には色々な読みがあるので、
思っているカナが出ないことはありますが、
それでも合っている事も多いので、カナ作成の手間を少しでも省けるかと思います。
記述：2017年03月頃
Twitter Facebook Google+ はてな Pocket LINE
管理人による書き込みの確認後、荒らし書き込みでない場合に表示させていただきます。
悪意ある書き込みや挑発的な書き込みと思われる内容は、表示させません。
その為、ちょっと書き込みから表示までに時間がかかってしまいます。ご了承下さい。
＜No.1＞
（管理人による内容の確認の後、表示されます。お待ちください。）
(2020/07/13)
（管理人による内容の確認の後、表示されます。お待ちください。）
(2020/07/13)
暑さの一番の原因はなんだと思いますか？
あなたの支持する政党はどの党ですか？
今のページの関連ページのリストへ
ザ・覚書のトップページに戻る
全ページのリストへ