Excel VBA質問箱 IV

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

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


74977 / 76732 ←次へ | 前へ→

【6206】Re:シート上のボタンのフォーカスをとれな...
回答  つん E-MAIL  - 03/6/19(木) 12:40 -

引用なし
パスワード
   こんにちは

これではどうでしょう?

Private Sub CommandButton1_Click()
  
  MsgBox "ボタン1"

End Sub

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

  If KeyCode = vbKeyReturn Then
    Call CommandButton1_Click  
  End If
  
  If KeyCode = vbKeyTab Then
    CommandButton2.Activate
  End If

End Sub

Private Sub CommandButton2_Click()

  MsgBox "ボタン2"

End Sub

Private Sub CommandButton2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  
  If KeyCode = vbKeyReturn Then
    Call CommandButton2_Click
  End If
  
  If KeyCode = vbKeyTab Then
    CommandButton1.Activate
  End If

End Sub

やってみたら出来てるような・・・・
ところで、

  Call CommandButton1_Click  

こんな風に、コントロールのイベントを呼ぶ出すのってOKなのかな?
1 hits

【6204】シート上のボタンのフォーカスをとれないですが つる 03/6/19(木) 11:54 質問
【6206】Re:シート上のボタンのフォーカスをとれな... つん 03/6/19(木) 12:40 回答
【6207】Re:シート上のボタンのフォーカスをとれな... Jaka 03/6/19(木) 13:21 発言
【6208】リンク失敗 Jaka 03/6/19(木) 13:22 発言
【6211】もっとリンク失敗 Jaka 03/6/19(木) 13:26 発言
【6212】Re:シート上のボタンのフォーカスをとれな... つる 03/6/19(木) 13:26 質問
【6214】コントロールツールボックスのやとあかん... つん 03/6/19(木) 14:02 発言
【6221】Re:コントロールツールボックスのやとあかん... Jaka 03/6/19(木) 15:21 回答
【6223】Re:コントロールツールボックスのやとあかん... ichinose 03/6/19(木) 15:31 発言
【6225】Re:コントロールツールボックスのやとあかん... つん 03/6/19(木) 16:01 発言
【6228】Re:コントロールツールボックスのやとあかん... Jaka 03/6/19(木) 16:47 発言

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