Como verificar se um filtro está aplicado em uma planilha no Excel?

Para uma planilha que contém uma grande quantidade de dados, é possível verificar se a filtragem está aplicada em uma coluna específica ou em toda a planilha sem verificar manualmente as colunas uma por uma? Neste tutorial, mostraremos dois códigos VBA para lidar com essa tarefa.

Verifique se um filtro está aplicado em uma determinada coluna
Verifique se um filtro está aplicado em uma planilha

Verifique se um filtro está aplicado em uma determinada coluna

Para verificar se uma determinada coluna está filtrada, o código VBA nesta seção pode ajudá-lo.

1. Abra a planilha na qual deseja verificar se um filtro está aplicado em uma determinada coluna.

2. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, em seguida, copie o seguinte código VBA na janela Módulo (Código).

Código VBA: Verificar se uma coluna específica está filtrada

Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
        xBol = True
    End If
Next xFNum
If xBol Then
    MsgBox "The specified column is filled"
Else
    MsgBox "The specified column is not filled"
End If
End Sub

Observação: No código VBA, o número 3 nesta linha “xColumn = 3” representa a terceira coluna na planilha atual. Se você quiser verificar se há um filtro aplicado na coluna E, altere o número 3 para 5.

4. Pressione a tecla F5 para executar o código.

Se a coluna especificada estiver filtrada, a seguinte caixa de diálogo será exibida.

Caso contrário, você receberá a seguinte caixa de diálogo.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Verifique se um filtro está aplicado em uma planilha

Se você deseja verificar se um filtro está aplicado em uma planilha, experimente o código VBA desta seção.

1. Abra a planilha na qual deseja verificar se um filtro está aplicado.

2. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, em seguida, copie o seguinte código VBA na janela Módulo (Código).

Código VBA: Verifique se um filtro está aplicado em uma planilha

Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer

Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On Then
        xBol = True
        Exit For
    End If
Next xFNum

If xBol Then
    MsgBox "Filter is applied in the curren worksheet"
Else
    MsgBox "Filter does not apply in the current worksheet"
End If
End Sub

4. Em seguida, pressione a tecla F5 para executar este código; se a planilha contiver filtros, você verá uma caixa de diálogo como a seguir.

Caso contrário, você receberá a seguinte caixa de diálogo.