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("画面1")
    .Box1.Value = Year(buf)
    .Box2.Value = Month(buf)
    .Select
  End With
  
End Sub

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

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

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

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

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

なぜなのでしょうか?

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

【39296】コマンドボタンでEnterを押して処理させ... mutu 06/6/21(水) 16:58 質問
【39307】Re:コマンドボタンでEnterを押して処理さ... 漂流民 06/6/22(木) 3:22 発言
【39316】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/22(木) 11:12 質問
【39319】Re:コマンドボタンでEnterを押して処理さ... Jaka 06/6/22(木) 11:28 発言
【39320】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/22(木) 11:36 質問
【39328】Re:コマンドボタンでEnterを押して処理さ... Jaka 06/6/22(木) 12:02 発言
【39329】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/22(木) 12:19 質問
【39336】デバックで順を追ってみたのですが mutu 06/6/22(木) 13:33 質問
【39338】Enterキー押下時の処理で他の方法はあり... mutu 06/6/22(木) 14:07 質問
【39358】Re:Enterキー押下時の処理で他の方法はあり... Jaka 06/6/22(木) 15:54 発言
【39365】Re:Enterキー押下時の処理で他の方法はあり... mutu 06/6/22(木) 16:43 質問
【39376】Re:コマンドボタンでEnterを押して処理さ... 漂流民 06/6/23(金) 1:03 発言
【39383】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/23(金) 9:14 質問
【39395】Re:コマンドボタンでEnterを押して処理さ... Jaka 06/6/23(金) 10:29 発言
【39398】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/23(金) 11:36 お礼
【39421】Re:コマンドボタンでEnterを押して処理さ... Jaka 06/6/23(金) 16:32 発言
【39436】Re:コマンドボタンでEnterを押して処理さ... 漂流民 06/6/23(金) 22:31 発言
【39520】Re:コマンドボタンでEnterを押して処理さ... mutu 06/6/26(月) 9:26 お礼
【39435】Re:コマンドボタンでEnterを押して処理さ... 漂流民 06/6/23(金) 22:19 発言

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