Como exibir/mostrar critérios de filtro automático no Excel?

O Filtro Automático é um recurso útil para os usuários do Excel. Às vezes, aplicamos o Filtro Automático para filtrar dados por vários critérios e enviamos o arquivo para outras pessoas. Nessa situação, se outros usuários quiserem saber seus critérios de filtro, como eles podem fazer isso?

Exibir/Mostrar critérios de filtro automático na planilha com Função Definida pelo Usuário

Exibir/Mostrar critérios de filtro automático na planilha com código VBA

Exibir/Mostrar critérios de filtro automático na planilha com Kutools para Excel

Exibir/Mostrar critérios de filtro automático na planilha com Função Definida pelo Usuário

Suponha que você tenha os seguintes dados que foram filtrados por alguns critérios, veja a captura de tela:

E agora posso criar uma Função Definida pelo Usuário para exibir o critério de filtro nas células; por favor, siga as etapas abaixo:

1. Pressione as teclas ALT + F11 para abrir a Janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo:

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. Em seguida, salve e feche este código, em uma célula em branco de uma linha vazia, por exemplo, a célula A1, insira esta fórmula =AutoFilter_Criteria(A4) (A4 é a célula de cabeçalho dos dados filtrados), veja a captura de tela:

4. Em seguida, pressione a tecla Enter e selecione a célula A1, arraste a alça de preenchimento sobre as células à direita que precisam conter essa fórmula, e todos os critérios serão exibidos nas células, veja a captura de tela:

Observação: Se houver mais de dois critérios em uma coluna, esta Função Definida pelo Usuário não fornecerá o resultado correto.

Exibir/Mostrar critérios de filtro automático na planilha com código VBA

Aqui, também posso falar sobre um código VBA interessante, ele pode ajudá-lo a exibir os critérios de filtro em uma célula da pasta de trabalho.

1. Pressione as teclas ALT + F11 para abrir a Janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo:

Código VBA: Exibir critérios de filtro automático na planilha

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. Em seguida, pressione a tecla F5 para executar este código, uma caixa de prompt aparecerá para permitir que você selecione uma célula em branco para colocar o critério, veja a captura de tela:

4. E depois clique em OK, todos os critérios serão mostrados na célula selecionada conforme segue:

Observação:

Com este código VBA, se houver mais de dois critérios em uma coluna, ele não mostrará os critérios detalhados de filtro, mas será exibido conforme segue:

Exibir/Mostrar critérios de filtro automático na planilha com Kutools para Excel

Se você tiver o Kutools para Excel instalado, poderá aplicar sua função Super Filtro para filtrar dados e, ao mesmo tempo, poderá visualizar os critérios de filtro a qualquer momento.

1. Clique Kutools Plus > Super Filtro para exibir a Super Filtro função. Veja a captura de tela:

2. No Super Filtro painel, clique  para selecionar o intervalo de dados que deseja filtrar e marque a caixa de seleção Especificado para fixar o intervalo de filtro. Veja a captura de tela:

3. No Super Filtro painel, clique em uma linha em um grupo de filtros, especifique os critérios de filtro nas listas suspensas conforme necessário e clique em Ok para concluir a configuração dos critérios. Veja a captura de tela:

4. Clique Filtrar, e os dados selecionados serão filtrados pelos critérios, e ao mesmo tempo, você pode ver que os critérios de filtro são exibidos no Super Filtro painel. Veja a captura de tela:

Observação: Você pode salvar os critérios de filtro como um cenário para uso futuro com o utilitário Super Filtro.

1. Clique no botão Salvar configurações de filtro atuais botão, na caixa de diálogo que aparece, digite um nome de filtro.

2. Quando quiser usar essas configurações de filtro da próxima vez, clique no botão de menu e escolha o cenário no submenu de Carregar Cenário.

Demonstração: Exibir Critérios de Filtro Enquanto Filtra Usando Kutools para Excel