Como exibir ou mostrar as Condições de Filtro do filtro automático no Excel?
O Filtro Automático é uma funcionalidade útil para utilizadores do Excel. Por vezes, aplicamos o Filtro Automático para filtrar dados com múltiplos critérios e enviamos o ficheiro a outras pessoas. Nessa situação, se outros utilizadores quiserem saber quais foram os critérios de filtragem utilizados, como poderão fazê-lo?
Exibir / Mostrar o filtro automático Condições de Filtro na folha de cálculo com código VBA
Exibir / Mostrar o filtro automático Condições de Filtro na folha de cálculo com Kutools para Excel 
Exibir / Mostrar o filtro automático Condições de Filtro na folha de cálculo com uma Função Definida pelo Utilizador
Suponha que tem os seguintes dados, já filtrados segundo determinados critérios, conforme ilustrado na captura de ecrã:
Agora, pode criar uma Função Definida pelo Utilizador para exibir os critérios de filtragem diretamente nas células. Basta seguir os passos abaixo:
1. Prima e mantenha premidas as teclas ALT + F11 para abrir a Janela do Microsoft Visual Basic para Aplicações.
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. Depois, guarde e feche este código. Numa célula vazia de uma linha em branco — por exemplo, a célula A1 — introduza esta fórmula: =AutoFilter_Criteria(A4) (A4 é a célula do cabeçalho dos dados filtrados), conforme ilustrado na captura de ecrã:
4. Em seguida, prima a tecla Enter, selecione a célula A1 e arraste a alça de preenchimento até à célula à direita onde pretende incluir esta fórmula. Todos os critérios serão exibidos nas células, conforme ilustrado na captura de ecrã:
Nota: Se existirem mais de dois critérios numa coluna, esta Função Definida pelo Utilizador não devolverá o resultado correto.
Exibir / Mostrar o filtro automático Condições de Filtro na folha de cálculo com código VBA
Aqui, também posso partilhar um código VBA interessante que o ajuda a exibir as Condições de Filtro numa célula do livro.
1. Prima e mantenha premidas as teclas ALT + F11para abrir a Janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir>Módulo, e cole a seguinte macro na Janela do Módulo:
Código VBA: Exibir o filtro automático Condições de Filtro na folha de cálculo
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, prima a tecla F5 para executar este código. Irá surgir uma caixa de diálogo a solicitar que selecione uma célula vazia para inserir os critérios, conforme ilustrado na captura de ecrã:
4. Depois, clique em OK e todos os critérios serão apresentados na célula selecionada, conforme indicado a seguir:
Nota:
Com este código VBA, se tiver mais de dois critérios numa coluna, não serão exibidos os critérios detalhados de filtragem, mas sim algo semelhante ao seguinte:
Exibir / Mostrar o filtro automático Condições de Filtro na folha de cálculo com Kutools para Excel
Se tiver o Kutools para Excel instalado, pode utilizar a sua função Super Filtro para filtrar dados e consultar as Condições de Filtro a qualquer momento.
1. Clique em KUTOOLS PLUS > Super Filtro para exibir a função Super Filtro. Veja a captura de ecrã:
2. No painel Super Filtro, clique 
para selecionar o intervalo de dados que pretende filtrar e marque a caixa de verificação «Especificado» para fixar o intervalo de filtro. Veja a captura de ecrã:
3. No painel Super Filtro, clique numa linha de um grupo de filtros, defina as Condições de Filtro na lista suspensa conforme necessário e, em seguida, clique em OK para concluir a definição dos critérios. Veja a captura de ecrã:
4. Clique em Filtrar e os dados selecionados serão filtrados de acordo com os critérios definidos. Ao mesmo tempo, poderá verificar que as condições de filtro estão visíveis no painel Super Filtro. Veja a captura de ecrã:
Nota: Pode guardar os Condições de Filtro como cenário para utilização futura com a utilidade Super Filtro.
1. Clique no botão Salvar o Cenário Atual. Na caixa de diálogo que surge, digite um nome para o filtro.
2. Quando quiser utilizar novamente estas definições de filtro, clique no botão de menu e selecione o cenário no submenu de Carregar um cenário existente.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Demonstração: Exibir os Condições de Filtro durante a filtragem com Kutools para Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos