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

ページコンテンツ

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

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

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

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

用意するフォーム

用意するコントロール

【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

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

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