|
お世話になります。
困っているのですが、
UserForm1のTextBox1のIMEModeを半角カナにして
1.シートのIMEModeは「直接入力」(IMEModeー0)の状態でUserForm1を開く
↓
2.UserForm1のTextBox1を編集後、UserForm1を閉じ、IMEModeを元に戻す
↓
3.シートで[半角/全角]ボタンを押して入力モードを変えると、「半角カナ」になってしまう
というもので、シートでは[半角/全角]ボタンを押したとき、「ひらがな」入力モードに
したいのですが、やり方はないでしょうか?
よろしくお願いします。
下記の様にテストしましたが、上手くいきませんでした。
―――――――――――――――――――――――――――――――――――――
'ユーザーフォーム**********************************************************
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
―――――――――――――――――――――――――――――――――――――
|
|