UserFromのコマンドボタンクリックイベントを、ENTER、ESCキーに登録する。

UserFrom 備忘録

ENTER、ESCキーに処理を登録する

知った時の気持ち↓↓

f:id:bimori466:20210220230621p:plain


１　用意するUserFrom画面

f:id:bimori466:20210220225925p:plain

OKを押したら、Msgboxが出る。Cancelボタンを押したら閉じる機能です。

２　コマンドボタンクリックイベント処理コードを書く

Private Sub CommandButton_OK_Click()
    
    MsgBox "OKを押しました。"
    
End Sub

Private Sub CommandButton_Cancel_Click()
    
    Unload Me
    
End Sub

３　ENTER、ESCキーを押したときに処理されるように登録するコード

Private Sub UserForm_Initialize()
    
    'EnterKey割り当て
    Me.CommandButton_OK.Default = True
    
    'EscKey割り当て
    Me.CommandButton_Cancel.Cancel = True

End Sub


これで、Enter押したらMsgboxが出る。ESCキー押したらUserFromを閉じるができます。


ではでは、この辺で(^^)/~~~