Code tạo phím tắt trên From (1 người xem)

[minhtuan55]

Chào cả nhà GPE !. Xưa giờ em hay tạo phím tắt trên sheet để khi người dùng nhấn phím đó thì chạy đoạn code đó em hay dùng Application.OnKey. Giờ trên Form em muốn tạo phím tắt riêng cho từng nút thì phải làm sao. Xin chân thành cảm ơn

 

[hungpecc1]

Chào cả nhà GPE !. Xưa giờ em hay tạo phím tắt trên sheet để khi người dùng nhấn phím đó thì chạy đoạn code đó em hay dùng Application.OnKey. Giờ trên Form em muốn tạo phím tắt riêng cho từng nút thì phải làm sao. Xin chân thành cảm ơn

View attachment 175332

Dùng sự kiện Keyup, kiểu như vậy :

Option Explicit

Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub


Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub

Private Sub HandleKey(KeyCode As MSForms.ReturnInteger)
    MsgBox KeyCode
    Select Case KeyCode
    Case 116 'F5
        'Do something because F5 was pressed
    Case 113 'F2
        'Do something because F2 was pressed
    Case 114 'F3 etc.
    End Select
End Sub

 

[minhtuan55]

Dùng sự kiện Keyup, kiểu như vậy :

Option Explicit

Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub


Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub

Private Sub HandleKey(KeyCode As MSForms.ReturnInteger)
    MsgBox KeyCode
    Select Case KeyCode
    Case 116 'F5
        'Do something because F5 was pressed
    Case 113 'F2
        'Do something because F2 was pressed
    Case 114 'F3 etc.
    End Select
End Sub

dạ cảm ơn anh. Em chưa biết áp dụng code của anh sao . Em chưa biết chổ nào để thay phím tắt chổ nào bỏ code vào . Ví dụ như Application.OnKey "{F4}", "codein" thì em sẽ thay F4 bằng 1 phím nào đó và codein bằng 1 đoạn code nào đó

 

[hungpecc1]

dạ cảm ơn anh. Em chưa biết áp dụng code của anh sao . Em chưa biết chổ nào để thay phím tắt chổ nào bỏ code vào . Ví dụ như Application.OnKey "{F4}", "codein" thì em sẽ thay F4 bằng 1 phím nào đó và codein bằng 1 đoạn code nào đó

tải file bên dưới về, mở form lên và lần lượt ấn các phím F5, F6 xem thế nào

 

[minhtuan55]

tải file bên dưới về, mở form lên và lần lượt ấn các phím F5, F6 xem thế nào

Dạ em hiểu rồi . cảm ơn anh nhiều lắm. Anh cho em các hằng số 114,113 đó Bảng tra nó xem ở đâu, thì dụ em muốn nhấn F9 thì số nó bao nhiêu

 

[hungpecc1]

Dạ em hiểu rồi . cảm ơn anh nhiều lắm. Anh cho em các hằng số 114,113 đó Bảng tra nó xem ở đâu, thì dụ em muốn nhấn F9 thì số nó bao nhiêu

dùng code này :
MsgBox KeyCode