Jody đang trong quá trình phát triển các nút trên thanh công cụ tùy chỉnh và gán macro cho các nút. Cô ấy muốn bật các nút bất cứ khi nào có ít nhất một trang tính hiển thị, nhưng cô ấy đang nắm bắt mã phù hợp để xử lý tình huống như vậy.

Có nhiều cách để tiếp cận điều này, như người ta có thể giả định với một môi trường đa dạng như Excel. Một giải pháp khả thi là tạo một quy trình đơn giản là kiểm tra xem có cửa sổ nào hiển thị trên màn hình hay không. Nếu có, thì có thể bật các nút trên thanh công cụ; nếu không có, thì chúng có thể bị vô hiệu hóa. Macro sau sẽ thực hiện điều đó:

Sub CheckButtons()

Dim bOneOpen As Boolean     Dim I As Integer     Dim J As Integer          bOneOpen = False     For I = 1 To Workbooks.Count         For J = 1 To Workbooks(I).Windows.Count             If Workbooks(I).Windows(J).Visible Then bOneOpen = True         Next J         If bOneOpen Then Exit For     Next I     If bln Then         'enable buttons     Else         'disable buttons     End If End Sub

Lưu ý hai chú thích ở gần cuối macro. Tất cả những gì bạn cần làm là thay thế những nhận xét đó bằng mã thích hợp để bật hoặc tắt các nút trên thanh công cụ của bạn. (Mã sẽ khác nhau, tùy thuộc vào số lượng và cấu hình các nút của bạn.)

Macro này có thể được gọi theo cách thủ công hoặc có thể được gọi từ bất kỳ sự kiện nào được kích hoạt bởi các thay đổi cửa sổ, chẳng hạn như các sự kiện kích hoạt khi cửa sổ được mở, thay đổi kích thước, thu nhỏ, phóng to hoặc khôi phục.

_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 (2618) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.