Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43399 / 76735

←次へ　｜　前へ→


	【38385】ﾕｰｻﾞｰﾌｫｰﾑでIMEModeを半角ｶﾅなどにすると...

sin - 06/6/1(木) 13:44 -


	引用なし

	パスワード

お世話になります。

困っているのですが、

UserForm1のTextBox1のIMEModeを半角ｶﾅにして

１．シートのIMEModeは「直接入力」(IMEModeｰ0)の状態でUserForm1を開く
　　　　　　↓
２．UserForm1のTextBox1を編集後、UserForm1を閉じ、IMEModeを元に戻す
　　　　　　↓
３．シートで［半角/全角］ボタンを押して入力モードを変えると、「半角ｶﾅ」になってしまう

というもので、シートでは［半角/全角］ボタンを押したとき、「ひらがな」入力モードに
したいのですが、やり方はないでしょうか？
よろしくお願いします。

下記の様にテストしましたが、上手くいきませんでした。
―――――――――――――――――――――――――――――――――――――

'ユーザーフォーム**********************************************************

Private Sub UserForm_Initialize()
　　imem = IMEMode
End Sub

Private Sub CommandButton1_Click()
　　IMEMode = 4
　　IMEMode = imem
　　UserForm1.Hide
End Sub

'標準モジュール**********************************************************

Public imem As Integer

Sub test()
　　UserForm1.Show
　　Unload UserForm1
　　IMEMode = 4
　　IMEMode = imem
End Sub

―――――――――――――――――――――――――――――――――――――

0 hits

▼

【38385】ﾕｰｻﾞｰﾌｫｰﾑでIMEModeを半角ｶﾅなどにすると... sin 06/6/1(木) 13:44

≪