chào mn em có đoạn code sử dụng cho user form gồm 2 nút nhấn và 1 textbox có giá trị tăng giảm, em muốn set cho 2 nút này có thể dùng trên bàn phím cụ thể là pgUp pgdown
nhưng khi nhấn em phải chỉ chuột vào button trên form mới nhấn được chứ không tự động focus ạ.
Private Sub CommandButton1_Click()
UserForm1.Label5.Caption = Label5.Caption + 1
Label6 = Label4.Caption - Label5.Caption
If UserForm1.Label4.Caption <> 0 Then
Label10 = ((Label5.Caption / Label4.Caption) * 100) & "%"
Else
End If
End Sub
Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
CommandButton1_Click
'End If
End Sub
Private Sub CommandButton2_Click()
UserForm1.Label5.Caption = Label5.Caption - 1
Label6 = Label4.Caption - Label5.Caption
If UserForm1.Label4.Caption <> 0 Then
Label10 = ((Label5.Caption / Label4.Caption) * 100) & "%"
Else
End If
End Sub
Private Sub CommandButton2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
CommandButton2_Click
'End If
End Sub