跳到主要内容

如何在Excel中显示/显示自动筛选条件?

作者:晓阳 最后修改时间:2020-06-03

自动筛选功能对Excel用户来说是一项有用的功能,有时,我们会应用自动筛选功能以多种条件筛选数据并将文件发送给其他人。 在这种情况下,如果其他用户想知道您的过滤条件,他们怎么办?

使用用户定义的功能在工作表中显示/显示自动筛选条件

使用VBA代码在工作表中显示/显示自动筛选条件

使用 Kutools for Excel 在工作表中显示/显示自动过滤条件 好主意3


使用用户定义的功能在工作表中显示/显示自动筛选条件

假设您已按照某些条件过滤了以下数据,请参见屏幕截图:

文档显示过滤条件 1

现在,我可以创建一个用户定义函数,以将过滤条件显示到单元格中,请执行以下步骤:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序窗口.

2。 点击 插页 > 模块,然后将以下宏粘贴到 模块窗口:

Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = .Criteria1
        If .Operator = xlAnd Then
            str2 = " AND " & .Criteria2
        ElseIf .Operator = xlOr Then
            str2 = " OR " & .Criteria2
        End If
    End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function

3. 然后保存并关闭此代码,在空白行的空白单元格(例如单元格A1)中,输入以下公式 = AutoFilter_Criteria(A4) (A4 是已过滤数据的标题单元格),请参见屏幕截图:

文档显示过滤条件 1

4。 然后按 输入 键,然后选择单元格A1,将填充手柄拖到您需要包含此公式的右侧单元格中,并且所有条件都已显示在这些单元格中,请参见屏幕截图:

文档显示过滤条件 1

备注:如果一列中有两个以上标准,则此用户定义函数将不会给出正确的结果。


使用VBA代码在工作表中显示/显示自动筛选条件

在这里,我还可以讨论一个有趣的VBA代码,它可以帮助您在工作簿的单元格中显示过滤条件。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序窗口.

2。 点击 插页 > 模块,然后将以下宏粘贴到 模块窗口:

VBA代码:在工作表中显示自动筛选条件

Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
    Application.StatusBar = False
    Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
   TargetField = xFilter.Range.Cells(1, i).Value
   Set TargetFilter = xFilter.Filters(i)
   If TargetFilter.On Then
        On Error GoTo OutNext
        xOut = xOut & TargetField & TargetFilter.Criteria1
        Select Case TargetFilter.Operator
            Case xlAnd
            xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
            Case xlOr
            xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
            Case xlBottom10Items
            xOut = xOut & " (bottom 10 items)"
            Case xlBottom10Percent
            xOut = xOut & " (bottom 10%)"
            Case xlTop10Items
            xOut = xOut & " (top 10 items)"
            Case xlTop10Percent
            xOut = xOut & " (top 10%)"
        End Select
    End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub

3。 然后按 F5 要运行此代码的关键,将弹出一个提示框,让您选择一个空白单元格放置条件,请参见屏幕截图:

文档显示过滤条件 1

4。 然后点击 OK,所有条件已显示在所选单元格中,如下所示:

文档显示过滤条件 1

请注意:

使用此VBA代码,如果您的标准在一列中超过两个,则不会显示详细的过滤条件,而是显示如下:

文档显示过滤条件 1


使用 Kutools for Excel 在工作表中显示/显示自动过滤条件

如果你有 Kutools for Excel 安装后,可以应用它 超级筛选 过滤数据的功能,同时您可以随时查看过滤条件。

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 

免费安装 Kutools for Excel,请执行以下操作:

1。 点击 Kutools 加 > 超级筛选 显示 超级筛选 功能。 看截图:
doc超级过滤器1

2.在 超级筛选 窗格中单击 文档选择按钮 选择要过滤的数据范围,然后选中“指定”复选框以固定过滤范围。 看截图:
doc超级过滤器2

3.在 超级筛选 窗格中,单击过滤器组中的一行,然后根据需要在下拉列表中指定过滤条件,然后单击“确定”完成条件设置。 看截图:
doc超级过滤器2

4。 点击 筛选器,并且所选数据已按条件过滤,与此同时,您可以查看过滤条件显示在 超级筛选 窗格。 看截图:
doc超级过滤器3

注意:您可以将过滤器条件另存为方案,以备下次使用“超级过滤器”实用程序使用。

1.点击 保存当前过滤器设置 按钮,在弹出的对话框中,输入过滤器名称。
doc kutools超级过滤器5

2.下次要使用此文件管理器设置时,请单击菜单按钮,然后在以下菜单的子菜单中选择方案: 打开保存的过滤器设置方案.
doc kutools超级过滤器6


最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Sir, Please see here below mentioned query for your easy understanding. I want to see the result in column E7 when i filter data in column A3 (Column E7) Vendor Name: (column A3) Vendor Name Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz for Cont. Est. Arkal Est. for Cont. Danat Al-Rayan Gray Falcon
This comment was minimized by the moderator on the site
Hi, The code for show auto filter criteria in the worksheet works great. As suggested, if there are more than two criteria, I output text saying 'multiple criteria'. However, I'd really like to be able to generate a list of what the multiple criteria are. Is this at all possible? Cheers, Alex
This comment was minimized by the moderator on the site
hi there, thank you for the code, it works like a charm. One thing I have trouble with thouhg - when I select filter criteria the designated cell displays whichever two I had selected. If then I select two different criteria the designated cell content doesn't refresh. It seems stuck at my first filter selection. Is there anythig I can do? Thank you, Wendy
This comment was minimized by the moderator on the site
This code is great and has helped me a lot. I ran into a problem when I tried to select new filter criteria. The cell that displays the filter criteria selected doesnt refresh when I am selecting new criteria. Please help, Thank you, Wendy
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations