Excel VBA質問箱 IV

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

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


55364 / 76732 ←次へ | 前へ→

【26144】Re:KeyDown イベントについて
回答  つん E-MAIL  - 05/6/24(金) 15:08 -

引用なし
パスワード
   >  If KeyCode = 13 Then
>    MsgBox "ここで処理"
>  Else
>    Beep
>    Exit Sub
>  End If
>
あー、えっと、これじゃ、「↓」とか押すと、
フォーカスが次へ移っちゃうんで、


'==============================================
Private Flag As Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Flag = True Then
    Cancel = True
  End If

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

  If KeyCode = 13 Then
    MsgBox "ここで処理"
    Flag = False
  Else
    Beep
    Flag = True
    Exit Sub
  End If

End Sub

って、したらいいかなあ?
どうでしょう?
0 hits

【26141】KeyDown イベントについて あき 05/6/24(金) 14:22 質問
【26143】Re:KeyDown イベントについて つん 05/6/24(金) 14:49 回答
【26144】Re:KeyDown イベントについて つん 05/6/24(金) 15:08 回答
【26152】Re:KeyDown イベントについて あき 05/6/24(金) 17:47 お礼
【26175】Re:KeyDown イベントについて あき 05/6/25(土) 19:22 発言
【26190】Re:KeyDown イベントについて G-Luck 05/6/26(日) 15:06 発言
【26195】Re:KeyDown イベントについて あき 05/6/26(日) 17:53 お礼
【26196】Re:KeyDown イベントについて G-Luck 05/6/26(日) 19:11 発言
【26217】Re:KeyDown イベントについて あき 05/6/27(月) 19:26 発言
【26220】Re:KeyDown イベントについて G-Luck 05/6/27(月) 21:58 発言
【26227】Re:KeyDown イベントについて あき 05/6/28(火) 15:04 発言

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