Bài viết: Dùng Macro 4 để tạo menu

[levanduyet]

Dùng Macro 4 để tạo menu

Macro 4 tuy ra đời đã lâu nhưng có một số trường hợp nếu chúng ta áp dụng chương trình của chúng ta sẽ nhanh và gọn hơn.

Tài liệu về Macro 4 các bạn có thể tham khảo tại đây.

Tôi xin hướng dẫn các bạn các dùng Macro 4 để tạo menu có dạng như sau:

Đầu tiên các bạn hãy tạo một workbook mới.

Sau đó bạn click phải chuột vào tên của Sheet, chọn Insert...

Bạn chọn MS Excel 4.0 Macro

Bạn sẽ có một sheet Macro1.

Sau đó các bạn hãy đặt lại tên là Menu

Ở cột 1 chúng ta sẽ đưa vào các đoạn mã để tạo vào xóa menu.
Dữ liệu chúng ta sẽ đưa vào từ cột 4.

Bạn hãy nhập thông tin về tên menu, rồi thủ tục sẽ được thực hiện khi click vào menu này như hình sau.

Chúng ta sẽ đặt tên như sau (đánh dấu vùng rồi nhấn tổ hợp phím Ctrl + F3, nhập vào tên):
_ Cột 4 hàng 1 đến cột 5 hàng 6: mymenu (Vùng để tạo menu, hàng đầu tiên sẽ là tên menu, kế đến là caption của menu, cột kế bên sẽ là thủ tục thực hiện khi người dùng nhấn vào.
_ Ô ở cột 4 hàng 1: tenmenu (Tên menu người dùng)

Ở cột đầu tiên ta sẽ nhập vào đoạn mã sau:

=ERROR(0)
=ADD.MENU(10,mymenu)
=RETURN()


=ERROR(0)
=DELETE.MENU(10,tenmenu)
=RETURN()

Đến đây các bạn hãy để ý các câu lệnh:

=ERROR(0)

Xóa các lỗi xãy ra.

=ADD.MENU(10,mymenu)

Thêm vào menu. Bạn chú ý đến việc bố trí của nó như tôi đã trình bày ở trên.

=DELETE.MENU(10,tenmenu)

Xóa menu có tên là tenmenu

=RETURN()

Kết thúc thực hiện các câu lệnh.

Bây giờ làm sao để thực hiện các đoạn mã ở trên khi workbook mở, hoặc đóng?

Bạn hãy chọn ô 1 hàng 1 và đặt tên là Autpen
Có nghĩa là thủ tục này sẽ tự động thực hiện mỗi khi mở workbook này ra.
Chú ý: thủ tục Autpen này sẽ thực hiện từ ô này đi xuống đến khi gặp câu lệnh =RETURN()

Và chọn ô 1 hàng 6 và đặt tên là Auto_Close
Có nghĩa là thủ tục này sẽ tự động thực hiện mỗi khi đóng workbook này lại.

Bây giờ các bạn hãy đặt Password cho Macro Sheet này.

Sau đó chúng ta sẽ ẩn Macro Sheet này đi.
Bạn hãy tạo một module cho workbook này (Alt + F11 > Insert > Module)
Rồi nhập vào đoạn mã sau:

Sub Dau_Macro4_Sheet()
    ThisWorkbook.Sheets(1).Visible = xlSheetVeryHidden
End Sub

Mục đích của đoạn mã ở trên là ẩn Macro Sheet. Nếu ẩn bằng cách này thì bạn chỉ có thể mở ra bằng code mà thôi, chứ không thể UnHide bằng cách thông thường (tức là Click phải chuột vào Sheet, rồi chọn UnHide).

Chú ý muốn thấy lại được thì bạn phải dùng đoạn mã sau:

Sub Hien_Macro4_Sheet()
    ThisWorkbook.Sheets(1).Visible = xlSheetVisible
End Sub

Bây giờ các bạn có thể xóa các đoạn mã này và xóa luôn module này khỏi tập tin của bạn.

Trong cửa sổ VBE của bạn hãy vào Tools> VBAProject Properties...

Ở Tab: Protection bạn click chọn vào Lock project for viewing
Sau đó nhập vào Password.

Bây giờ các bạn hãy thử đóng và mở lại tập tin chúng ta vừa tạo xem sao?

Khi người dùng mở ra ở chế độ Enable Macro thì sẽ có một menu hiện ra.

Như vậy chương trình của các bạn xem ra "có vẻ chuyên nghiệp".

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

Lê Văn Duyệt

Một số bài viết có liên quan:
1/ Chiêu 38: Thêm dữ liệu vào danh sách Validation một cách tự động
2/ Chiêu 28: Trích xuất dữ liệu số trong 1 chuỗi bằng VBA
3/ Viết code để nhìn thấy ai là người cập nhật bảng tính của bạn lần gần đây nhất
4/ 4 cách sử dụng Immediate Window trong VBA hiệu quả hơn
5/ 3 gợi ý nhỏ mang lại thành công trong khai báo biến trong VBA
6/ Tạm dừng VBA bằng cách sử dụng Wait, Sleep hoặc Vòng lặp
7/ Tổng quan về Scripting.Dictionary
8/ Hiểu biết thêm về phương thức Evaluate - Understanding Evaluate Method
9/ Làm việc với Range
10/ Highlight hàng khi di chuyển chuột