|
ZARDist さん、こんばんわ。
>カスタムダイアログボックスを作成しその中にテキストボックスを配置しました。
>そのテキストボックスへの入力文字をワークシートのセルに取り込みたいのですが、テキストボックスに漢字を入力してもワークシートのセルにはひらがなで取り込ませたいのですがどのようにすればよいでしょうか?
ふりがなをどうやって取得される予定なのかわかりませんが、Phoneticワークシート関数を使用してみました。
UserFormにTextBox1を置いて、以下のマクロを記述。
テキストボックスに書き込むと、Sheet1というシートのA1セルにひらがなが入ります。
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Sheet1").Range("A1")
.Value = Me.TextBox1.Value
.SetPhonetic
.Value = StrConv(Application.WorksheetFunction.Phonetic(.Offset(0, 0)), vbHiragana)
End With
Application.ScreenUpdating = True
End Sub
こんな感じです。
Phonetic関数のふりがなの精度が少し悪いのが欠点ですが(それでもずいぶんマシにはなりました)。
ちなみに。
京都大原→きょうとだいばら
京都大原三千院→きょうとおおはらさんぜんいん
となりました。
ひらがなが重要ならば、入力時のキーコードを拾って変換する方が良いかもしれませんね。
|
|