[418.xls]



' [mjSumple] のコード
'■■ コマンドボタンにアクセスキーを割り当てる ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
    '各ボタンにアクセスキーを割り当てます
    frmSumple.cmdBtn1.Accelerator = "z"
    frmSumple.cmdBtn2.Accelerator = "x"
    
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub cmdBtn1_Click()
    MsgBox ("Yesが選択されました")
End Sub

Private Sub cmdBtn2_Click()
    MsgBox ("Noが選択されました")
End Sub