Hỏi code bấm phím (2 người xem)

[pro8x]

Mọi người cho hỏi đoạn code để khi mình bấm phím A trên bàn phím thì sẽ tự động nhay thành chữ "DT100000". Thank mọi người.
PS: sử dụng VBA nhé không phải Option/Auto.... đâu ah

 

[PhanTuHuong]

Bạn tìm hiểu Key Code trong VBA nhé!

 

[pro8x]

Bạn tìm hiểu Key Code trong VBA nhé!

Mình mới tìm hiểu cài này nhưng viết nó k thành.Mong mọi người chỉ giúp

Sub Setup_Onkey()
Application.Onkey "(A)", "A_Sub"
End Sub

Sub A_Sub()
On eror Resume Next
If TypeName(ActiveSheet) = "Worksheet" Then
Activecell = "DT10000"
Ènd If
End Sub

 

[PhanTuHuong]

Bạn tìm hiểu Key Code trong VBA nhé!

Tôi quên là đây không phải trên Form mà trên Sheet nên không thể sử dụng phương pháp này được , dùng lập trình sự kiện là được:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "A" Then
Target.Value = "DT10000"
End If
End Sub