Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
コマンドボタンにフォーカスから実行へ
投稿日時: 19/10/11 17:37:14
投稿者: zero2

Private Sub Worksheet_Activate()
  Me.CommandButton1.Activate
End Sub
でボタンへのフォーカスはうまくできたのですが、
この後、キーボードのEnterキーを押してもボタンに割り当てたコードが実行されません。
 
ほかの処理がひつようなのでしょうか?
 
お教えください。

回答
投稿日時: 19/10/11 18:21:02
投稿者: 半平太

余所からパクッてきました。
 
これを書いておくといいらしい。
 

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
       Me.CommandButton1 = True
    End If
End Sub

投稿日時: 19/10/11 18:35:01
投稿者: zero2

うまくできました。
ありがとうございます。