Ðề: viết code xong nhưng không thực thi lệnh
Đúng là yêu cầu của bạn hơi thừa vì Exc có sẵn rồi , nhưng chắc bạn có lý do khác. Bạn tham khảo cách sử dụng phương thức Onkey trong file ví dụ của mình nhé.
Bạn chuyển sang sheet bất kỳ sau đó về sheet2 (Mình muốn lợi dụng ActiveSheet khai báo Onkey). Giờ bạn nhấn F12 thử xem.
Lưu ý: Phải xem xét cẩm thận trước khi dùng Onkey vì nó sẽ giành lấy quyền tác vụ của các phím chức năng đấy nhé. Vì vậy mà hiếm khi người ta Onkey trên phím Enter
(Chết thật! Soạn xong mình chẳng biết gửi kèm file ra sao cả? Bạn tham khảo code như sau:
Mã:
Private Sub Worksheet_Activate()
Application.OnKey "{F12}", "tbao"
End Sub
Và bạn thêm trong Module:
Mã:
Sub tbao()
MsgBox "Sealand xin chao cac ban!"
End Sub
Thông cảm, mình chưa biết cách sử dụng tiện ích của diễn đàn)
Theo phong tục của người M’nông, khi đứa trẻ vừa tròn một mùa rẫy (nghĩa là vừa tròn một năm tuổi), cha mẹ đứa trẻ phải tiến hành làm lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho con mình, nhằm...
Lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho trẻ sơ sinh của người M’nông