Excel-vba フォーム ふりがなの自動表示を作る


'設定:ユーザーフォームに TxtNAME というテキストボックスと TxtFuri というコンボボックス配置
' TxtNAMEがChangeしたらGetPhonetic メソッド(vbHiragana=ひらがな)をつくって、
' リストにADD、選択も入力もできるようにしておく。
' StrConv関数 = 文字コンバート  StrConv(文字/string, 引数/conversion, 国/LCID)
'引数
'1 vbUpperCase 大文字にする
'2 vbLowerCase 小文字にする
'3 vbProperCase 先頭文字を大文字に
'4 vbWide    半角を全角(1Byte→2Byte)に
'8 vbNarrow   全角を半角(2Byte→1Byte)に
'16 vbKatakana ひらがなをカタカナに
'32 vbHiragana カタカナをひらがなに
'64 vbUnicode Unicodeに(システム規定のコードページ使用)

Private Sub TxtNAME_Change()
'フリガナリスト自動表示
Dim Phonetic As String
With TxtFuri
.Clear ''←これを忘れずに!
Phonetic = StrConv(Application.GetPhonetic(TxtNAME), vbHiragana)
Do While Phonetic <> ""
.AddItem Phonetic
Phonetic = StrConv(Application.GetPhonetic(), vbHiragana)
Loop
End With
End Sub

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック

  • レイバン 店舗

    Excerpt: Excel-vba フォーム ふりがなの自動表示を作る へぽ~仕事時々ひとりごと/ウェブリブログ Weblog: レイバン 店舗 racked: 2013-07-05 15:54
  • プラダ 財布

    Excerpt: Excel-vba フォーム ふりがなの自動表示を作る へぽ~仕事時々ひとりごと/ウェブリブログ Weblog: プラダ 財布 racked: 2013-07-08 11:00
  • VISVIM 通販

    Excerpt: Excel-vba フォーム ふりがなの自動表示を作る へぽ~仕事時々ひとりごと/ウェブリブログ Weblog: VISVIM 通販 racked: 2013-07-09 14:30