Excel VBA質問箱 IV

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

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


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

42504 / 76732

←次へ　｜　前へ→


	【39296】コマンドボタンでEnterを押して処理させ...

mutu - 06/6/21(水) 16:58 -


	引用なし

	パスワード

こんばんは、
とても困ってしまったのでよろしくお願いします。

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)

If Keycode = 13 Then　　　
　　Command1_Click
End If

End Sub

Private Sub Command1_Click()

　　Dim buf As String

　　ChDir ThisWorkbook.Path

　　buf = Date
　　With Sheets("画面１")
　　　　.Box1.Value = Year(buf)
　　　　.Box2.Value = Month(buf)
　　　　.Select
　　End With
　　
End Sub

という、プログラムでコマンドボタンにフォーカスがある時に、
エンターを押したら画面遷移させるというものです。

ただ、これでコマンドボタンにフォーカスがある時にエンターを押すと、

“問題が発生したため、Microsoft Excel for Windows を終了します。ご不便をおかけして申し訳ありません。”

という、ウィンドウが出てきて、
Excelが異常終了してしまいます。

画面遷移やブックを閉じたりをしない処理だとうまくいくのですが、
画面遷移やブックを閉じたりする場合だけ、異常終了になります。

なぜなのでしょうか？

ご教授のほど、よろしくお願いいたします。

2 hits

▼

【39296】コマンドボタンでEnterを押して処理させ... mutu 06/6/21(水) 16:58

≪