Cách thực hiện tạo Menu pptx

Cách thực hiện tạo Menu

1/ Các bạn hãy Insert vào File của mình một Sheet mới và đặt tên là MenuSheet.
- Cột Level nói về cấp độ của menu (sô 1 là cấp cao nhất sẽ thể hiện trên thanh
Toolbar, số 2 là cấp độ menu con của 1, và số 3 thể hiện các menu con của cấp 2)
- Cột Caption là tên của các Menu mà bạn muốn đặt
- Cột Position/Macro là tên các Macro dành cho Menu của các bạn
- Cột Divider : nếu bạn nhập chữ TRUE sẽ có lằn phân cách giữa các Menu
- Cột FaceID : Nếu bạn nhập hàm ngẫu nhiên, sẽ có những hình minh hoạ, với các
hình Face ID được cài trong máy của bạn, nếu bạn để trống thì trên thanh Menu
của bạn sẽ không có hình.
2/Các bạn vào của sổ VBE, (nhấn Alt+F11), bạn Insert 3 Module, và bạn lần lượt
Copy Source Code của MenuModule và Menu Tìm Sheet vào, (Code của Tìm
Sheet hầu như không cần sửa chỗ nào cả, còn MenuModule, bạn sửa giùm tôi
hàng thứ 3 : "Tao Menu.xls" bằng tên File của các bạn
Public Const TenWB As String = "Tao Menu.xls"
Module MoSoSach, tôi giời thiệu với các bạn những câu lệnh đơn giản nhất cho
các Macro mở những Sheet có trong Workbook của các bạn. Câu lệnh đó như sau
:
Td : dùng để mở Sheet NKC (Nhật ký chung). MoNKC là tên của Macro có trong
cột Macro của MenuSheet
Sub MoNKC()
Sheets("NKC").Select
End Sub
3/Cuối cùng , cũng trong cửa sổ VBE, bạn Double Click vào This Workbook của
File Tao Menu và Copy Source vào File của các bạn. Lưu File lại và bạn sẽ thấy
các Menu của các bạn hoạt động thế nào.
Tôi đã giới thiệu với các bạn File Tìm Sheet mấy hôm trước, lần này tôi giới thiệu
lại và hướng dẫn các bạn gắn nó vào Menu của các bạn. Các bạn có thể
RightClick, bạn cũng thấy Menu của mình trong ấy. Menu này sẽ được xóa bỏ khi
bạn đóng File, và tự động hiện ra khi bạn mở File.

Chúc các bạn thành công