Làm thế nào để đánh dấu cột hoặc tiêu đề cột nếu nó được lọc trong Excel?
Đối với một bảng có nhiều cột, thật không dễ dàng để tìm ra cột nào được lọc trong nháy mắt vì không có ký hiệu rõ ràng nào cho cột được lọc ngoại trừ một dấu. Nếu bạn muốn làm nổi bật cột đã lọc trong bảng, một phương pháp trong bài viết này có thể giúp bạn.
Đánh dấu tiêu đề cột hoặc toàn bộ cột nếu nó được lọc bằng mã VBA
Đánh dấu tiêu đề cột hoặc toàn bộ cột nếu nó được lọc bằng mã VBA
Như ảnh chụp màn hình bên dưới được hiển thị, bạn cần đánh dấu toàn bộ cột hoặc chỉ tiêu đề cột nếu cột này được lọc trong một phạm vi bảng, vui lòng áp dụng các mã VBA sau.
1. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Trong cửa sổ Microsoft Visual Basic for Applications, vui lòng nhấp vào Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ Mô-đun.
Mã VBA: Đánh dấu tiêu đề cột nếu cột được lọc
Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim I As Integer
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg.Offset(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
If .On Then
xRg.Offset(, I - xRgCol).Interior.Color = 16736553
End If
End With
Next
End With
End Sub
Để đánh dấu toàn bộ cột nếu nó được lọc trong bảng, vui lòng sao chép và dán mã VBA bên dưới vào cửa sổ Mô-đun.
Mã VBA: Đánh dấu toàn bộ cột nếu nó được lọc
Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xRgFilter As Range
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
If .On Then
xRgFilter.Interior.Color = 16736553
End If
End With
Next
End With
End Sub
3. Nhấn nút F5 phím để chạy mã. Trong cửa sổ bật lên Kutools cho Excel hộp thoại, vui lòng chọn ô đầu tiên của bảng bạn cần đánh dấu tiêu đề cột đã lọc hoặc toàn bộ cột đã lọc, sau đó nhấp vào OK .
Sau đó, tiêu đề cột hoặc toàn bộ cột sẽ được đánh dấu ngay lập tức nếu cột được lọc trong một bảng nhất định. Xem ảnh chụp màn hình:
Đánh dấu tiêu đề cột nếu cột được lọc trong bảng:
Đánh dấu toàn bộ cột nếu nó được lọc trong bảng:
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!