Giúp code Application.OnKey nhiều key cùng 1 lúc (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Mình đang dùng Onkey để khi người dùng gõ bất cứ từ gì trên Bàn phím ( từ A đến Z ) thì code đó sẽ chạy. mình đàng làm như sau mà thấy nó dài quá . Mọi người có cách nào rút gọn giúp mình với. Xin chân thành cảm ơn

Application.OnKey "{65}", "code"
Application.OnKey "{66}", "code"
Application.OnKey "{67}", "code"
....
....
Application.OnKey "{90}", "code"

 

[Mutants Men]

Chào cả nhà GPE !
Mình đang dùng Onkey để khi người dùng gõ bất cứ từ gì trên Bàn phím ( từ A đến Z ) thì code đó sẽ chạy. mình đàng làm như sau mà thấy nó dài quá . Mọi người có cách nào rút gọn giúp mình với. Xin chân thành cảm ơn

Application.OnKey "{65}", "code"
Application.OnKey "{66}", "code"
Application.OnKey "{67}", "code"
....
....
Application.OnKey "{90}", "code"

Sub GPE()
    Dim i As Byte
    For i = 65 To 90
        Application.OnKey "{" & i & "}", "code"
    Next i
End Sub

 

[minhtuan55]

Sub GPE()
    Dim i As Byte
    For i = 65 To 90
        Application.OnKey "{" & i & "}", "code"
    Next i
End Sub

Qúa tuyệt vời . Anh cho em hỏi em muốn gán code này sheet e gán làm sao. tại e chỉ muốn chỉ cho 1 sheet thôi các sheet còn lại không chạy

Ví dụ gán nút F5 thì em làm thế này, còn từ A đến Z thì sao anh. Mong anh giúp em
Private Sub Worksheet_Activate() ' han che vung cuon
Application.OnKey "{F5}", "code"
End Sub



Private Sub Worksheet_Deactivate()
Application.OnKey "{F5}"
End Sub


Bây giờ cái chổ F5 e thay ra làm sao a. Cảm ơn anh nhiều

 

[Mutants Men]

Chỗ này

gán code này sheet e gán làm sao. tại e chỉ muốn chỉ cho 1 sheet thôi các sheet còn lại không chạy

bạn muốn việc gán lệnh cho các phím A-Z chỉ thực hiện trên 1 sheet thôi đúng không
muốn chạy ở sheet nào thì quăng code này vào

Option Explicit
Private Sub Worksheet_Activate()
    For i = 65 To 90
        Application.OnKey "{" & i & "}", "code"
    Next i
End Sub
Private Sub Worksheet_Deactivate()
    For i = 65 To 90
        Application.OnKey "{" & i & "}"
    Next i
End Sub