Bài viết: Macro shortcut trong Excel (P2)

[levanduyet]

Chúng ta hãy đi tiếp.

Từ lưu ý ở trên chúng ta rút ra để đổi short cut này, chúng ta phải:
Cách 1: Từ cửa sổ Excel, nhấn tổ hợp phím Alt + F8. Cửa số Macro hiện ra

sau đó các bạn hãy nhấn vào nút Options, cửa số Macro Options hiện ra,

bạn hãy thay đổi phím nóng theo ý bạn và nhấn nút OK.

Bạn hãy vào kiểm tra đoạn code trong module1, các bạn vẫn thấy

Sub BoldText()
'
' BoldText Macro
' Bold the text
'
' [COLOR=Red]Keyboard Shortcut: Ctrl+Shift+B[/COLOR]
'
    Selection.Font.Bold = True
End Sub

Bây giờ bạn hãy trở về cửa sổ Excel và thử tổ hợp phím nóng bạn mới vừa tạo cho Macro này xem sao?
Dĩ nhiên là tổ hợp phím nóng bạn mới tạo ra có tác dụng.

Để kiểm tra Module1 này, bạn hãy thực hiện lại bước Export File ở trên, và mở bằng Notepad bạn sẽ thấy dòng

Attribute BoldText.VB_ProcData.VB_Invoke_Func = "B\n14"

(Giả sử tôi thay đổi tổ hợp phím nóng là Ctrl + Shift + H) được thay đổi thành

Attribute BoldText.VB_ProcData.VB_Invoke_Func = "H\n14"

Cách 2:
Các bạn hãy dùng Export File rồi sửa chữa tập tin module này trong Notepad, lưu lại rồi lại Import File module này vào.

Kế tiếp chúng ta hãy tạo tiếp hai macro để tạo chữ in nghiêng và gạch dưới với tổ hợp phím nóng lần lượt là Ctrl+Shift+I, Ctrl+Shift+U. Lưu lại và xuất ra, mở bằng Notepad bạn sẽ thấy các dòng lệnh tiếp theo như sau:

Sub ItalicText()
Attribute ItalicText.VB_ProcData.VB_Invoke_Func = "I\n14"
'
' ItalicText Macro
'
' Keyboard Shortcut: Ctrl+Shift+I
'
    Selection.Font.Italic = True
End Sub
Sub UnderText()
Attribute UnderText.VB_ProcData.VB_Invoke_Func = "U\n14"
'
' UnderText Macro
'
' Keyboard Shortcut: Ctrl+Shift+U
'
    Selection.Font.Underline = xlUnderlineStyleSingle
End Sub

Vậy B\n14: là tổ hợp phím Ctrl+Shift+B
Nếu bạn thấy

Attribute BoldText.VB_ProcData.VB_Invoke_Func = "i\n14"

Thì tổ hợp phím là Ctrl+i

Các bạn có thể download một add-in để lấy Shortcut tại đây.

Nếu muốn tổng hợp các macro từ nhiều module thì sao?
Bạn chỉ việc mở Notepad và đưa các đoạn code của macro các bạn vào đây ví dụ như đoạn dưới đây:

1 Attribute VB_Name = "Module2"
2 Sub ItalicText()
3 Attribute ItalicText.VB_ProcData.VB_Invoke_Func = "I\n14"
4 '
5 ' ItalicText Macro
6 '
7 ' Keyboard Shortcut: Ctrl+Shift+I
8 '
9     Selection.Font.Italic = True
10 End Sub

Chú ý:
Dòng 1 là tên module. Dòng này bắt buộc phải có.
Dòng 3 sửa lại short cut theo ý của bạn. Chú ý, dòng ghi chú sẽ không có tác dụng mặc dù nó ghi là Keyboard Shortcut: Ctrl+Shift+I

Cuối cùng lưu lại với dạng *.bas. Sau đó mở cửa sổ VBE ra và Import File. Như vậy bạn có thể tổng hợp các Macro của mình lại trong cùng một module.


Lê Văn Duyệt

Một số bài viết có liên quan:
1/ Macro shortcut trong Excel (P1)
2/ Tầm vực truy xuất, thời gian sống của biến & thủ tục
3/ Các hàm xử lý mảng trong bộ nhớ (Array UDF)
4/ Khai báo biến và đặt tên biến trong VBA
5/ Hướng dẫn truyền tham số trong VBA (ByVal & ByRef)
6/ Một số hàm và thủ tục làm việc với Name trong VBA
7/ Sử dụng Name trong VBA
8/ Hàm người dùng và mảng
9/ Làm việc với mảng trong một thủ tục
10/ Làm việc với mảng trong VBA

 

[Mèo đi hia]

em đọc nhưng gà mờ quá