Excel thay đổi kích thước mũi tên bộ lọc

Như chúng ta đã biết, có các mũi tên bộ lọc được hiển thị trong tiêu đề cột của phạm vi bộ lọc, nhưng đôi khi, bạn muốn ẩn các mũi tên bộ lọc trong khi lọc như ảnh chụp màn hình bên dưới. Trong bài viết này, tôi giới thiệu một số thủ thuật giải quyết công việc này trong Excel

Ẩn mũi tên bộ lọc với Bộ lọc nâng cao

Để lọc dữ liệu không có mũi tên lọc, bạn có thể áp dụng chức năng Advanced Filter

1. Đầu tiên, bạn cần nhập tiêu chí lọc trong một phạm vi như ảnh chụp màn hình bên dưới

2. Sau đó, chọn phạm vi dữ liệu bạn muốn lọc và nhấp vào Dữ liệu > Nâng cao. Xem ảnh chụp màn hình

3. Sau đó, trong hộp thoại Bộ lọc nâng cao, hãy chọn các ô tiêu chí lọc vào phạm vi Tiêu chí. Xem ảnh chụp màn hình

4. Nhấn OK và dữ liệu đã được lọc mà không cần nút lọc

Ẩn mũi tên bộ lọc với Super Filter

Hơn nữa, nếu bạn có Kutools cho Excel, bạn có thể áp dụng tính năng Siêu lọc của nó để nhanh chóng lọc dữ liệu với nhiều tiêu chí mà không cần nút lọc

Khi bạn bật bộ lọc trong danh sách trang tính Excel hoặc nếu bạn tạo bảng Excel có tên, thì mỗi ô trong hàng tiêu đề sẽ tự động hiển thị mũi tên thả xuống. Nếu bạn không cần chúng, đây là cách bạn có thể ẩn mũi tên trong Excel AutoFilter

Mũi tên Bộ lọc Tự động Excel

Trong hàng tiêu đề, nút mũi tên Bộ lọc Tự động hiển thị biểu tượng bộ lọc, nếu bạn đã lọc cột đó. Nếu bạn chỉ vào mũi tên có biểu tượng bộ lọc, Mẹo công cụ bật lên sẽ hiển thị tiêu chí bộ lọc

Trong ảnh chụp màn hình bên dưới, cột Khách hàng đã được lọc để hiển thị 3 khách hàng cụ thể – FoodMart, MegaStore và VegiVille

Tùy chọn mũi tên tự động lọc

Đối với Bộ lọc tự động, bạn có ba tùy chọn để hiển thị mũi tên

• Để lại tất cả các mũi tên hiển thị
• Xóa AutoFilter, loại bỏ tất cả các mũi tên
• Sử dụng lập trình để ẩn một hoặc nhiều mũi tên

Xóa bộ lọc tự động theo cách thủ công

Đối với danh sách trang tính hoặc bảng được đặt tên, bạn có thể bật và tắt Bộ lọc Tự động theo cách thủ công, thao tác này cũng hiển thị hoặc ẩn các nút mũi tên

1. Nhấp vào bất kỳ ô nào trong phạm vi đã lọc
2. Trên Dải băng Excel, bấm vào tab Dữ liệu
3. Nhấp vào nút Bộ lọc

Ẩn mũi tên AutoFilter với Macro

Trước khi Danh sách và Bảng được đặt tên được thêm vào Excel, chỉ có thể có một Bộ lọc Tự động cho mỗi trang tính

Giờ đây, ngoài Bộ lọc tự động trang tính đơn lẻ, bạn có thể đặt nhiều bảng được đặt tên trên một trang tính. Mỗi bảng đó có thuộc tính AutoFilter riêng

Có các ví dụ mã bên dưới, để ẩn mũi tên trong Bộ lọc tự động danh sách và Bộ lọc tự động trang tính. Có nhiều ví dụ AutoFilter VBA hơn trên trang web Bối cảnh của tôi

• Bảng tính Excel Tự động lọc VBA
• Danh sách Excel Tự động lọc VBA

Ẩn Danh sách AutoFilter Mũi tên Với VBA

Nếu bạn muốn để một hoặc nhiều mũi tên hiển thị nhưng ẩn các mũi tên khác, bạn có thể sử dụng macro

Trong ví dụ này, chỉ cột thứ hai có mũi tên và tất cả các mũi tên khác sẽ bị ẩn

Mã này được thiết kế cho một bảng được đặt tên, có thuộc tính AutoFilter riêng của nó. Có thể có nhiều bảng được đặt tên trên một trang tính và cài đặt Bộ lọc Tự động của mỗi bảng có thể khác nhau

Sub HideArrowsList1()
'hides all arrows except list 1 column 2
Dim Lst As ListObject
Dim c As Range
Dim i As Integer
Application.ScreenUpdating = False
Set Lst = ActiveSheet.ListObjects(1)
i = 1
For Each c In Lst.HeaderRowRange
 If i <> 2 Then
    Lst.Range.AutoFilter Field:=i, _
      VisibleDropDown:=False
 Else
     Lst.Range.AutoFilter Field:=i, _
      VisibleDropDown:=True
 End If
 i = i + 1
Next
Application.ScreenUpdating = True
End Sub

Ẩn mũi tên tự động lọc bảng tính bằng VBA

Để ẩn các mũi tên cho Bộ lọc tự động của bảng trang tính, mã hơi khác một chút

Chỉ có thể có một trang tính AutoFilter trên một trang tính và trong ví dụ này, danh sách được lọc bắt đầu trong ô A1

Quy trình sau ẩn mũi tên cho tất cả các cột trừ cột B

Sub HideArrows()
'hides all arrows except column 2
Dim c As Range
Dim i As Integer
i = Cells(1, 1).End(xlToRight).Column
Application.ScreenUpdating = False
For Each c In Range(Cells(1, 1), Cells(1, i))
 If c.Column <> 2 Then
  c.AutoFilter Field:=c.Column, _
    Visibledropdown:=False
 End If
Next
Application.ScreenUpdating = True
End Sub

Sử dụng Macro mũi tên ẩn

Để sử dụng các macro này, hãy sao chép chúng vào một mô-đun mã thông thường trong sổ làm việc của bạn. Có hướng dẫn ở đây