Tạo phím tắt cho nút CommandButton trong Form (1 người xem)

[congnguyen88]

Ví dụ thay gì mình Click vào nút bấm CommandButton trong From giờ làm sao mình nhấn F5 hay F6 gì đó là nó thực thi giống như mình Click
Xin cảm ơn

 

[bd1808]

Thêm đoạn code sau vào sheet có chứa button nha, ví dụ bên dưới là bấm phím F3 thì sẽ chạy nút lệnh có tên là CommandButton1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.OnKey "{F3}", "Sheet1.CommandButton1_Click"
End Sub

 

[Hoàng Trọng Nghĩa]

Thêm đoạn code sau vào sheet có chứa button nha, ví dụ bên dưới là bấm phím F3 thì sẽ chạy nút lệnh có tên là CommandButton1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.OnKey "{F3}", "CommandButton1_Click"
End Sub

Ui trời ơi, vài chục cái nút chắc làm phím tắt kiểu này chết luôn quá!

Ví dụ thay gì mình Click vào nút bấm CommandButton trong From giờ làm sao mình nhấn F5 hay F6 gì đó là nó thực thi giống như mình Click
Xin cảm ơn

Chọn nút lệnh cần gán phím tắt. Giả dụ phím đó CAPTION là NHẬP

Trong Properties chọn mục Accelerator và gõ vào đó chữ N. Khi đó nút lệnh tự động gạch đích chữ N trên caption của nó.

Khi form được load lên (show) chỉ việc Alt+N là xong! Với các trường hợp khác nhớ đừng làm trùng phím là được! Nhưng đừng có ghi tắt vào ký tự có dấu tiếng Việt đấy nhé!

 

[bd1808]

Ui trời ơi, vài chục cái nút chắc làm phím tắt kiểu này chết luôn quá!

Mình thấy có mất công gì đâu ta? Chỉ việc copy, paste thôi mà, vả lại làm như bạn thì đâu có gán nút F1, F2, F3... hoặc Ctrl+F1, Alt+F2, Shift+F3... được

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.OnKey "{F1}", "Sheet1.CommandButton1_Click"
    Application.OnKey "{F2}", "Sheet1.CommandButton2_Click"
    Application.OnKey "{F3}", "Sheet1.CommandButton3_Click"
    Application.OnKey "{F4}", "Sheet1.CommandButton4_Click"
    Application.OnKey "{F5}", "Sheet1.CommandButton5_Click"
    ...
End Sub

 

[Hoàng Trọng Nghĩa]

Mình thấy có mất công gì đâu ta? Chỉ việc copy, paste thôi mà, vả lại làm như bạn thì đâu có gán nút F1, F2, F3... hoặc Ctrl+F1, Alt+F2, Shift+F3... được

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.OnKey "{F1}", "Sheet1.CommandButton1_Click"
    Application.OnKey "{F2}", "Sheet1.CommandButton2_Click"
    Application.OnKey "{F3}", "Sheet1.CommandButton3_Click"
    Application.OnKey "{F4}", "Sheet1.CommandButton4_Click"
    Application.OnKey "{F5}", "Sheet1.CommandButton5_Click"
    ...
End Sub

Bạn ơi, hình như người ta hỏi phím tắt cho CommandButton ở trên FORM mà?