Mình hỏi về cách tạo "Hot key" cho Sub viết trong file ".xla"

[ptlong04x1]

Mình hỏi về cách tạo "phím tắt" cho Macro chứa trong file ".xla"

Mình viết code cho file "vidu.xla" trong đó có nhiều Sub (tương ứng là các Macro). Sau khi add-in file "vidu.xla" vào Excel, mình muốn tạo phím tắt để chạy các Macro này trong tất cả các Workbook. Nhờ các bạn chỉ giúp cách làm. Điều này mình đã làm được với file dạng ".xls" nhưng không làm được file dạng ".xla". Cảm ơn.

 

[cadafi]

Mình viết code cho file "vidu.xla" trong đó có nhiều Sub (tương ứng là các Macro). Sau khi add-in file "vidu.xla" vào Excel, mình muốn tạo phím tắt để chạy các Macro này trong tất cả các Workbook. Nhờ các bạn chỉ giúp cách làm. Điều này mình đã làm được với file dạng ".xls" nhưng không làm được file dạng ".xla". Cảm ơn.

Bạn chuyển file *.xla đó lại thành *.xls, sau đó gán phím tắt bình thường cho file này. Lưu lại và sau đó chuyển lại thành *.xla.

 

[tigertiger]

Bạn chuyển file *.xla đó lại thành *.xls, sau đó gán phím tắt bình thường cho file này. Lưu lại và sau đó chuyển lại thành *.xla.

Hoặc mở trực tiếp xla,

rồi đặt phím tắt cho các Macro trong nó là được

 

[ptlong04x1]

Hoặc mở trực tiếp xla,

rồi đặt phím tắt cho các Macro trong nó là được

Bạn nói cụ thể hơn được không, trong VBE mình đã vào Tools --> Macros, nhưng trong này không có mục Options như trong Excel nên mình không đặt được phím tắt.

 

[VuongTrungDuong]

Hoặc mở trực tiếp xla,

rồi đặt phím tắt cho các Macro trong nó là được

Các hạ quả thật cao thủ! Xin các hạ hướng dẫn tận tình cách làm để tại hạ được mở rộng tầm mắt! Xin cảm ơn trước!

 

[hoangdanh282vn]

Các hạ quả thật cao thủ! Xin các hạ hướng dẫn tận tình cách làm để tại hạ được mở rộng tầm mắt! Xin cảm ơn trước!

Bấm Alt+F8. Chọn tên macro mình muốn gán phím tắt, vào option, sau đó điền phím tắt vào. VD như Ctrl+B

 

[VuongTrungDuong]

Bấm Alt+F8. Chọn tên macro mình muốn gán phím tắt, vào option, sau đó điền phím tắt vào. VD như Ctrl+B

Thế các hạ có làm thử với một file *.xla nào chưa vậy!? Hãy làm thử trước khi hướng dẫn người khác làm chứ! Khi mở một file *.xla lên, excel sẽ cho ra một trang rỗng không có sheet nào cả, vào Tool/Marco/Macros, thì chẳng có một Sub, hay function nào hiện ra cả thì làm sao gán phím tắt! Còn việc ấn Alt+F8 chọn tên macro muốn gán thì ai chẳng biết làm!

Cho nên tại hạ mới nói, ai mà gán trực tiếp phím tắt được từ 1 file *.xla là đại cao thủ còn gì. Các hạ hãy thử xem!

 

[nguyentuhp]

Mời bạn tham khảo ví dụ sau, hy vọng sẽ giúp một phần nào cho bạn.
Private Sub Workbook_Open()
Application.OnKey "%q", "ChangeCase" 'Alt+Q
'Application.OnKey "^q", "ChangeCase" 'Ctrl+Q
'Application.OnKey "^+q", "ChangeCase" 'Ctrl+Shift+Q
End Sub

 

[ptlong04x1]

Đoạn code này sử dụng như thế nào hả bạn, ví dụ mình có 1 Macro tên là "abc" nằm trong file "vidu.xla" thì viết code như thế nào để gán phím tắt cho "abc" vậy, bạn giải thích thêm được không?

 

[ptlong04x1]

Bạn chuyển file *.xla đó lại thành *.xls, sau đó gán phím tắt bình thường cho file này. Lưu lại và sau đó chuyển lại thành *.xla.

Mình đã thử cách này, nhưng không được, vì khi đổi từ ".xla" sang ".xls" và mở bằng Excel rồi bấm Alt F8 thì vẫn không thấy hiện lên Sub nào, vì vậy mình phải copy toàn bộ code của file ".xla" cũ sang các module trong 1 file ".xls" mới, gán phím tắt, rồi lại save as nó thành file ".xla", rất phiền phức bạn ạ.hic!

 

[cadafi]

Mình đã thử cách này, nhưng không được, vì khi đổi từ ".xla" sang ".xls" và mở bằng Excel rồi bấm Alt F8 thì vẫn không thấy hiện lên Sub nào, vì vậy mình phải copy toàn bộ code của file ".xla" cũ sang một module trong 1 file ".xls" mới rồi lại save as nó thành file "xla", rất phiền phức bạn ạ.hic!

Vậy bạn đưa file xla đó lên mình chuyển thử một cái để bạn xem. Thêm vào đó, bạn xem lại code (SUB) bạn viết trong Module hay viết trong Sheet?

 

[Po_Pikachu]

Bạn gửi file *.xla lên được ko? Và ghi rõ bạn cần dùng phím tắt nào luôn nha!
Thân.

 

[ptlong04x1]

Để tiết kiệm thời gian cho mọi người, mình chỉ xin đưa lên 1 ví dụ nhỏ là file "vidu.xla" chỉ có 1 Sub trong 1 module để thực hiện canh giữa cho 1 range bất kỳ (mình muốn phím tắt là Ctrl + Shift + C). Trong thực tế với 1 file ".xla" có thể có nhiều Sub trong nhiều module mà mình thường xuyên chỉnh sửa code, thêm Sub cho file thì không lẽ cứ mỗi lần sửa code xong là mình phải chuyển nó sang ".xls" để gán phím tắt hay sao ạ.

 

[Po_Pikachu]

File này đã được thêm phím tắt rồi!
Không nhất thiết là phải chuyển về XLS đâu.
Bạn làm theo các bước như sau:
+B1: Mở file XLA lên -> nhấn Alt + F11 -> Chọn như hình 1:

+B2: Rồi quay ra bảng tính Excel chọn như hình dưới:

+B3: Việc cuối cùng là quay lại B1 chọn IsAddin = True. Rồi nhấn Ctrl + S để Save lại là được rồi.
Việc IsAddin = False để bạn có thể được bảng tính và có thể thử nghiệm xem mình đã làm đúng như ý chưa thôi.
Thân.