如何在Excel中显示/显示自动挑选条件？-英雄云拓展知识分享

如何在Excel中显示/显示自动挑选条件？

自动挑选功能对Excel用户来讲是一项有用的功能，有时，我们会利用自动挑选功能以多种条件挑选数据并将文件发送给其他人。 在这类情况下，如果其他用户想知道您的过滤条件，他们怎幺办？

使用用户定义内涵的功能在工作表中显示/显示自动过滤条件

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

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

使用用户定义内涵的功能在工作表中显示/显示自动过滤条件

假定您已依照某些条件过滤了以下数据，请参见屏幕截图：

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

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 是已过滤数据的标题单元格），请参见屏幕截图：

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

备注：如果一列中有两个以上标準，则此用户定义内涵函数将没法给出正确的结果。

使用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 = "toolsforExcel"
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 要运行此代码的关键，将弹出一个提示框，让您选择一个空白单元格放置条件，请参见屏幕截图：

4。 然后点击 OK，所有条件已显示在所选单元格中，以下所示：

注意：

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

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

如果你有 Excel的tools 安装后，可以利用它 超级滤镜 过滤数据的功能，同时您可以随即查看过滤条件。

后 免费安装 tools for Excel，请履行以下操作：

1。 点击 tools 加 > 超级滤镜 显示 超级滤镜 功能。 看截图：

2。 在里面 超级滤镜 窗格中单击  选择要过滤的数据范围，然后选中“指定”复选框以固定过滤范围。 看截图：

3。 在里面 超级滤镜 窗格中，单击过滤器组中的一行，然后针对需要在下拉列表中指定过滤条件，然后单击“肯定”以完成条件设置。 看截图：

4。 点击 挑选，并且所选数据已按条件过滤，与此同时，您可以查看过滤条件显示在 超级滤镜 窗格。 看截图：

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

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

2.下次要使用此文件管理器设置时，请单击菜单按钮，然后在以下菜单的子菜单当选择方案： 打开保存的过滤器设置方案.

  过滤时显示过滤标準