Excel VBA質問箱 IV

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

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


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

21831 / 76807

←次へ　｜　前へ→


	【60365】日本語入力の制御

山ちゃん - 09/2/13(金) 16:22 -


	引用なし

	パスワード

ブックのオープンイベントに
Private Sub Workbook_Open()
UserForm1.Show
End Sub

ユーザーフォームにコマンドボタンを置く。そのボタンに
Private Sub CommandButton1_Click()
Range("A1").Value = "名前を入力してください"
IMEon
GetName = Range("A1").Value
Range("A1").Value = ""
UserForm1.Hide
'取得したGetNameで以下の処理
End Sub

サブルーチンIMEonは
Sub IMEon()
　　Application.ScreenUpdating = False
　　With Workbooks.Add
　　　　With ActiveCell.Validation
　　　　　　.Add Type:=xlValidateInputOnly
　　　　　　.IMEMode = xlIMEModeOn
　　　　End With
　　　　InputString = Sheet1.Range("A1").Value
　　　　buf = Application.InputBox(InputString)
　　　　.Close SaveChanges:=False
　　End With
　　Application.ScreenUpdating = True
　　Sheet1.Range("A1") = buf
End Sub

これらでブックのその時の日本後モードのいかんにかかわらず、名前入力の際自動的に日本語モードにしようとしています。さて、ブックをオープンしても思い通りの日本語モードにならない。

ところがファンクションキーＦ8でステップ毎にマクロを動かすと思惑通りになる。

また、ユーザーフォームでなくシート上のアクティブＸにコードを組めばやはり日本語モードになる。

マクロの間違えを指摘してください。

1 hits

▼

【60365】日本語入力の制御 山ちゃん 09/2/13(金) 16:22

≪