有無試過用張form 個keydown event去做?
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 81: 'Q
TeamAScore.Caption = TeamAScore.Caption + 10
Case 87: 'W
If TeamAScore.Caption > 0 Then
TeamAScore.Caption = TeamAScore.Caption - 10
End If
Case 79: 'O
TeamBScore.Caption = TeamBScore.Caption + 10
Case 80: 'P
If TeamBScore.Caption > 0 Then
TeamBScore.Caption = TeamBScore.Caption - 10
End If
End Select
End Sub