Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4621 / 13646 ツリー ←次へ | 前へ→

【55568】文字変換方法について ZARDist 08/5/11(日) 17:07 質問[未読]
【55573】Re:文字変換方法について りん 08/5/11(日) 20:33 回答[未読]
【55576】Re:文字変換方法について ZARDist 08/5/11(日) 21:32 お礼[未読]

【55568】文字変換方法について
質問  ZARDist  - 08/5/11(日) 17:07 -

引用なし
パスワード
   こんにちは、ZARDistと申します。
すみませんが教えてください。
カスタムダイアログボックスを作成しその中にテキストボックスを配置しました。
そのテキストボックスへの入力文字をワークシートのセルに取り込みたいのですが、テキストボックスに漢字を入力してもワークシートのセルにはひらがなで取り込ませたいのですがどのようにすればよいでしょうか?
よろしくお願い致します。

【55573】Re:文字変換方法について
回答  りん E-MAIL  - 08/5/11(日) 20:33 -

引用なし
パスワード
   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関数のふりがなの精度が少し悪いのが欠点ですが(それでもずいぶんマシにはなりました)。

ちなみに。
 京都大原→きょうとだいばら
 京都大原三千院→きょうとおおはらさんぜんいん
となりました。

ひらがなが重要ならば、入力時のキーコードを拾って変換する方が良いかもしれませんね。

【55576】Re:文字変換方法について
お礼  ZARDist  - 08/5/11(日) 21:32 -

引用なし
パスワード
   ▼りん さん:
りんさん、こんばんわ。
迅速かつ的確なご回答誠に有難うございました。
おかげで頭のモヤモヤが取れてすっきりしました。
また困ったときは相談させてください。
有難うございました。<(_ _)>

4621 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free