エクセルＶＢＡでテキストの漢字の読みを入手するには？

Question

テキストファイルを読み込むエクセルＶＢＡを作りました。
テキストデータ内の漢字をカタカナに変換したいのですが
どのようなＶＢＡにしたら良いのでしょうか？
セルに入力された漢字の読みを入手する方法は分かっていますが、
テキストの漢字から入手する方法が分かりません。
よろしくお願いもうしあげます。

zap35 · Accepted Answer

＞テキストファイルを読み込む
なので、読み込んだデータの Phonetic.Text は登録されていません。
ActiveCellに「佐藤」という漢字があるとき
　Msgbox Activecell.Phonetic.Text
で確認すると、「佐藤」がそのまま表示されると思います。

漢字からフリガナを取得するには、以下のようにします。
　Msgbox Application.GetPhonetic(Activecell.Value)
すると「サトウ」が取得できます。

ただしGetPhonetic関数で取得できるよみがなは、必ずしも正しいとは限りません。それぞれの漢字の一般的なよみがなを使用するからです。
その点はご承知置きください

Wendy02 · Answer

こんにちは。

以下は、単なるお遊びマクロです。
作ってみてわかるのは、やはり、本来、正規表現置換を利用し、文章を分解しなくてはならいのですが、前回書いたように、VBAの領分ではなさそうな気がしてきますね。変換されたものは、全部、全角になってしまいます。

なお、GetPhonetic は、単語の変換ではなく、文章の変換をさせることで、ヒット率は上がります。それは、GetPhonetic 自体に文節の構造を把握する機能があると聞きます。


Sub ConvertKatakana()
　Dim Fname
　Dim FNo As Integer
　Dim TextLine As String
　Dim Buf As Variant
　Dim BufLine As Variant
　Dim Fso As Object
　Dim f As Object
　Dim mPath As String
　Fname = Application.GetOpenFilename("Text ファイル(*.txt),*.txt")
　　If Fname = "False" Then
　　　Exit Sub
　　 End If
　FNo = FreeFile()
　
　Open Fname For Input As #FNo
　Do Until EOF(FNo)
　　 Line Input #FNo, TextLine
　　 If Len(TextLine) > 0 Then
　　　 Buf = ConvertTxt(TextLine)
　　 End If
　　 BufLine = BufLine & Buf & vbCrLf
　　 Buf = ""
　Loop
　Close #FNo
　Set Fso = CreateObject("Scripting.FileSystemObject")
　mPath = Mid(Fname, 1, InStrRev(Fname, "\"))
　Fname = Mid(Fname, InStrRev(Fname, "\") + 1)
　'出力名は、ファイル名の前に、'h' を付ける
　'同名ファイルは削除
　If Dir(mPath & "h_" & Fname) <> "" Then
　　 Kill mPath & "h_" & Fname
　End If
　Set f = Fso.CreateTextFile(mPath & "h_" & Fname, 2, True)
　f.Writeline (BufLine)
　f.Close
　Set Fso = Nothing
　
End Sub
Function ConvertTxt(strTxt As Variant)
Dim v As Variant
　 v = Application.GetPhonetic(strTxt)
　'v = StrConv(v, vbHiragana) 'ひらがなの場合
　 ConvertTxt = v
End Function

Wendy02 · Answer

こんにちは。

>漢字から自動的にカナに変換したいのです。
ご質問には、最終的な目的が書かれていませんので、ご自身の技術の向上なら、zap35さんの提供されたコードを応用していけばよいと思います。しかし、業務や仕事の話としては、ご質問のカテゴリが違うような気がします。

VBAとおっしゃっていますが、とても、VBAごときでは太刀打ちできない世界だと思います。漢字かな混じり文をひらがな変換にするプログラムは、視覚障害者用の点字タイプに使用するものや、ローマ字変換プログラムなどに応用されていますが、最近では、インターネット検索にも応用されています。そのまま、ひらがなに変換したところで、それでは、読めたものではないからです。

VBA/VBでできないとは言っていませんが、本格的なものと比較すると、単なる真似事になってしまいます。理由は、MS-IMEの機能をAPIで抜き出しているからで、修正機能も分かち書き機能もないからです。

専門的に行うには、有名なのは、Unix 系（Win可能）KAKASI(kanji kana simple inverter) とか、いうものがあります。やる気になれば、可能だと思いますが、大きなプログラムなど入れなくてはならないとかなると、ちょっと面倒かなって思います。

http://kakasi.namazu.org/

応用したものに、ひらがなゲートウェアというものもあります。
http://www.hiragana-gateway.com/

それと、私の記憶では、障害者用のシステムでは、富士通が専門だったと思います。

zap35 · Answer

＃０１です
＞漢字から自動的にカナに変換したいのです。
ならばGetPhonetic関数で取得したよみがなを、どこかのセルに書き込めば良いだけではありませんか？　＃０２の回答にも類似サンプルは書きましたよ(^^;

テキストを読み込むVBAがお書きになれるレベルの方のようですから、どこが分からないのでしょうね？　補足回答が全く補足になっていません

例えばA列にテキストを読み込んだ文字列があるとき、B列にふりがなを表示させるならこんなマクロでもできます。シートの構成が分かりませんので後はご自身で工夫してください。

Sub Macro1()
Dim r As Range
　For Each r In Range(Range("A1"), Range("A65536").End(xlUp))
　　r.Offset(0, 1).Value = Application.GetPhonetic(r.Value)
　Next r
End Sub

zap35 · Answer

＃０１です。
補足回答を拝見して意味が分からなくなりました

　＞＞で確認すると、「佐藤」がそのまま表示されると思います。
　＞まさにこのケースの時です。知りたいのは。

このケースの時にGetPhonetic関数を用いて「サトウ」を取得することが目的ではないのですか？　では何をされたいのでしょう？？

もしふりがなが登録されていないセルにGetPhonetic関数で取得したふりがなを登録したいなら
　Activecell.Phonetic.Text = Application.GetPhonetic(Activecell.Value)

元のセルの値をふりがなに置き換えるなら
　Activecell.Value = Application.GetPhonetic(Activecell.Value)
のようにできますが…

ただし元のセルをVBAで直接ふりがなに置き換えてしまうと、やり直しが利きませんから、シートをコピーしてから実行するようにするのがよいと思います。

エクセルＶＢＡでテキストの漢字の読みを入手するには？

＞テキストファイルを読み込む

こんにちは。

こんにちは。

＃０１です

＃０１です。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング