ふりがなを自動で取得する方法

The following two tabs change content below.

• この記事を書いた人
• 最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

ふりがなを自動で取得する方法

顧客管理や名簿といったものに対して必ずと言っていいほど入っている項目があります、それが【ﾌﾘｶﾞﾅ】Or【ふりがな】です。そしてこの【ふりがな】を記入するのにいちいち名前と同じキー入力をしないといけない煩わしさがあると思います。個人的に一番忌み嫌う項目の一つです←

という事で今回はそんなふりがなを簡単に自動で取得する方法をご紹介したいと思います。

用意するフォーム

用意するコントロール

1. 【TextBox1~4】

ふりがなを振るコード

Private Sub TextBox1_Change()

'TextBox1の値が変更されたときにhuriganaプロシージャーを呼び出し
Call hurigana
     
End Sub

Private Sub hurigana()
'TextBox1の値をもとにふりがなを振るプロシージャー
   '全角カナ
    TextBox2.Value = Application.GetPhonetic(TextBox1.Text)
    '半角ｶﾅ
    TextBox3.Value = StrConv(Application.GetPhonetic(TextBox1.Text), vbNarrow)
    'ひらがな
    TextBox4.Value = StrConv(Application.GetPhonetic(TextBox1.Text), vbHiragana)
End Sub

コードの解説

では上記のコードの解説をしていきます。

Private Sub TextBox1_Change()
'TextBox1の値が変更されたときにhuriganaプロシージャーを呼び出し
Call hurigana
End Sub

ここは今更説明は必要ないかもしれませんが一応

対象コントロールの値が変更されたときに動く【change】イベントに振り仮名を振るプロシージャーを呼び出すコードを記述します。

Private Sub hurigana()
'TextBox1の値をもとにふりがなを振るプロシージャー

   '全角カナ
    TextBox2.Value = Application.GetPhonetic(TextBox1.Text)

    '半角ｶﾅ
    TextBox3.Value = StrConv(Application.GetPhonetic(TextBox1.Text), vbNarrow)

    'ひらがな
    TextBox4.Value = StrConv(Application.GetPhonetic(TextBox1.Text), vbHiragana)
End Sub

続いてTextBox1の値からﾌﾘｶﾞﾅを取得するコードの解説です。

まずフリガナを取得するには 【Applicationオブジェクト】の【GetPhoneticメソッド】を使用します。なので上記にある

TextBox2.Value = Application.GetPhonetic(TextBox1.Text)

とは、すなわち【TextBox1の内容に対しふりがなを取得しなさい。そしてTextBox2に表示しなさい】というコードです。

Application.GetPhoneticはすごい便利なのですが一つ面倒なのが、【フリガナ(全角カナ)】しか返しません。

なので他の書式にしたい場合は【文字列を指定して変換【StrConv関数】】を使用して全角カナで返された値をStrConv関数を使用して変換する必要があるのです。

そうすることで好きな形態のふりがなを振ることが可能になります。

ダウンロード

今回ご紹介したフォームは以下にてダウンロードできます。

フリガナ

1 ファイル 19.22 KB

ダウンロード

今回使用した関数

StrConv関数についてはこちら

E-VBA

VBA 【StrConv関数】文字列を指定して変換

どうも、taka(@takabou63)です(^^♪さて、皆さんは「ひらがな→カタカナ」に変換したいと思ったことはありませんか？「ふりがな→フリガナ」に変えたい時など(;^ω^)そんな時、VBAでは【StrConv関数】を使用することで変換することが可能になります(^^♪「フリガナ→ふりがな」なども可能ですVBAのStrConv関数とは？今回は引数に指定した文字列を、指定した文字種に変換する事ができる【StrConv関数】を解説します。StrConv関数の書式StrConv関数の書式はこのようになります。StrConv(文字列, 文字種)このように文字列を指定して、文字種を指...

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link