Khi làm việc trong VBA, một trong những thứ bạn có thể tạo được gọi là “biểu mẫu người dùng”. Các biểu mẫu này cung cấp cho bạn khả năng về cơ bản tạo các hộp thoại của riêng bạn. Bạn có thể thêm nhiều loại điều khiển khác nhau vào biểu mẫu người dùng, nếu muốn. Ví dụ: bạn có thể thêm nhãn, hộp văn bản, danh sách thả xuống, nút radio và nhiều điều khiển khác.

Một số điều khiển bạn có thể thay đổi kích thước; những người khác bạn không thể. Một mà bạn không thể thay đổi kích thước là một hộp kiểm. Mặc dù bạn có thể sửa đổi kích thước phông chữ được sử dụng cho nhãn bên cạnh hộp kiểm, nhưng bạn không thể thay đổi kích thước của chính hộp kiểm.

Nếu bạn thấy các hộp kiểm trong biểu mẫu người dùng của mình quá nhỏ so với sở thích của bạn, bạn có thể “khắc phục” chúng bằng cách mô phỏng một hộp kiểm. Bạn thực hiện việc này bằng cách tạo một nhãn thay vì một hộp kiểm. Sau đó, thay đổi các thuộc tính của nhãn để nó có nền trong suốt và phông chữ đang được sử dụng là Wingdings. Bạn cũng nên đảm bảo rằng phông chữ được đặt ở kích thước lớn, chẳng hạn như 20 hoặc 26 điểm.

Bây giờ, hãy nhấp đúp vào nhãn của bạn, thao tác này sẽ mở ra một cửa sổ mã. Sự kiện mà bạn đang lập trình là sự kiện Click cho nhãn, có nghĩa là nó sẽ được thực thi bất cứ khi nào nhãn được nhấp. Sử dụng mã này làm mã của bạn:

Private Sub Label1_Click()

If Label1.Caption = Chr(254) Then         Label1.Caption = Chr(168)

Else         Label1.Caption = Chr(254)

End If End Sub

Trong phông chữ Wingding, Chr (254) là hộp có dấu kiểm và Chr (168) là hộp không có dấu kiểm. Khi bạn thực thi biểu mẫu người dùng và nhấp vào nhãn, nó sẽ chuyển đổi giữa hộp trống và hộp được chọn. Bạn cũng có thể thêm mã khác vào sự kiện Click để thực hiện các tác vụ khác, nếu cần.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2282) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: