Làm cách nào để ẩn hộp kiểm khi hàng bị ẩn trong Excel?
Thông thường, khi ẩn một hàng chứa các hộp kiểm trong các ô của hàng, các hộp kiểm sẽ không bị ẩn cùng với hàng đó, nhưng chồng lên nội dung của hàng khác như ảnh chụp màn hình bên trái được hiển thị. Làm cách nào để ẩn hộp kiểm khi hàng bị ẩn trong Excel? Bài viết này sẽ giúp bạn giải quyết nó.
Ẩn hộp kiểm khi hàng bị ẩn với mã VBA
Ẩn hộp kiểm khi hàng bị ẩn với mã VBA
Bạn có thể chạy mã VBA sau để ẩn hộp kiểm khi hàng bị ẩn trong Excel.
1. Nhấp chuột phải vào tab trang tính có các hộp kiểm bạn muốn ẩn và nhấp Mã Chế độ xem từ menu chuột phải.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã VBA bên dưới vào Mã cửa sổ.
Mã VBA: Ẩn hộp kiểm khi hàng bị ẩn
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xChkBox As CheckBox
Dim xCell As Range
Dim xHide As Boolean
If Target.EntireRow.AddressLocal = Application.Intersect(Target, Target.EntireRow).AddressLocal Then
xHide = (MsgBox("Hide Rows ???", vbYesNo + vbQuestion, "Kutools for Excel") = vbYes)
Target.EntireRow.Hidden = xHide
For Each xChkBox In ActiveSheet.CheckBoxes
Set xCell = xChkBox.TopLeftCell
If Not Intersect(xCell, Target) Is Nothing Then
xChkBox.Visible = Not xHide
End If
Next
End If
End Sub
3. Sau đó nhấn Khác + Q cùng một lúc để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.
4. Chọn toàn bộ hàng với các hộp kiểm bạn cần ẩn, sau đó một hộp thoại bật lên, vui lòng nhấp vào Có .
Sau đó, bạn có thể thấy tất cả các hộp kiểm được ẩn với hàng như hình ảnh chụp màn hình bên dưới.
Chú thích: Để hiển thị hàng ẩn với các hộp kiểm, vui lòng chọn toàn bộ các hàng bao gồm hàng ẩn và trong hộp thoại bật lên, hãy nhấp vào Không cái nút. Sau đó, hàng có hộp kiểm sẽ được hiển thị.
Các bài liên quan:
- Làm cách nào để ẩn các hàng dựa trên ngày hôm nay trong Excel?
- Làm cách nào để ẩn / hiện các hàng hoặc cột có dấu cộng hoặc trừ trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!