Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

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

O Filtro Automático é um recurso útil para usuários do Excel, às vezes aplicamos o Filtro Automático para filtrar os dados por múltiplos critérios e enviar o arquivo para outras pessoas. Nessa situação, se os outros usuários quiserem saber seu critério filtrado, como eles podem fazer?

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 boa ideia 3


Exibir / Mostrar critérios de filtro automático na planilha com função definida pelo usuário

Supondo que você tenha os seguintes dados que foram filtrados por algum critério, consulte a captura de tela:

doc-show-filter-criteria1

E agora posso criar uma função definida pelo usuário para exibir o critério de filtro nas células, siga as seguintes etapas:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para janela de aplicativos.

2. Clique inserção > Móduloe cole a macro a seguir no Janela 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 em branco, por exemplo, célula A1, insira esta fórmula = AutoFilter_Criteria (A4) (A4 é a célula do cabeçalho dos dados filtrados), consulte a captura de tela:

doc-show-filter-criteria1

4. Então aperte Entrar e, em seguida, selecione a célula A1, arraste a alça de preenchimento para as células certas que você precisa para conter esta fórmula, e todos os critérios foram exibidos nas células, consulte a captura de tela:

doc-show-filter-criteria1

Importante: Se houver mais de dois critérios em uma coluna, esta função definida pelo usuário não dará 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, que pode ajudá-lo a exibir os critérios de filtro em uma célula da pasta de trabalho.

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para janela de aplicativos.

2. Clique inserção > Móduloe cole a macro a seguir no Janela Módulo:

Código VBA: exibe os 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. Então aperte F5 chave 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:

doc-show-filter-criteria1

4. E, em seguida, clique em OK, todos os critérios foram mostrados na célula selecionada da seguinte forma:

doc-show-filter-criteria1

Observação:

Com este código VBA, se o seu critério for mais de dois em uma coluna, não será mostrado o critério de filtro detalhado, mas exibido da seguinte forma:

doc-show-filter-criteria1


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

Se você tem Kutools for Excel instalado, você pode aplicar seu Super Filtro função para filtrar dados e, ao mesmo tempo, você pode ver os critérios de filtro a qualquer momento.

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Clique Kutools Plus > Super Filtro para exibir o Super Filtro função. Veja a imagem:
doc super filtro 1

2. No Super Filtro painel, clique em botão de seleção de docpara selecionar o intervalo de dados que deseja filtrar, marque a caixa de seleção Especificado para corrigir o intervalo do filtro. Veja a imagem:
doc super filtro 2

3. No Super Filtro painel, clique em uma linha em um grupo de filtro, 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 imagem:
doc super filtro 2

4. Clique filtros, e os dados selecionados foram filtrados pelos critérios e, enquanto isso, você pode ver se os critérios do filtro são exibidos no Super Filtro painel. Veja a imagem:
doc super filtro 3

Nota: Você pode salvar os critérios de filtro como um cenário para o próximo uso com o utilitário SuperFiltro.

1. clique no Salvar configurações de filtro atuais botão, na caixa de diálogo pop-up, digite um nome de filtro.
doc kutools super filter 5

2. Quando você quiser usar essas configurações de arquivador na próxima vez, clique no botão de menu e escolha o cenário no submenu de Abrir cenário de configurações de filtro salvas.
doc kutools super filter 6



As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Hussain · 4 years ago
    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
  • To post as a guest, your comment is unpublished.
    AlexM · 6 years ago
    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
  • To post as a guest, your comment is unpublished.
    Wendy · 6 years ago
    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
  • To post as a guest, your comment is unpublished.
    Wendy · 6 years ago
    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