Classificação e Filtragem de Dados

A filtragem restringe o que está visível sem alterar os dados subjacentes — fundamental para criar um relatório que exiba apenas um mês ou uma região por vez.

AutoFiltro Básico

tbl.Range.AutoFilter Field:=1, Criteria1:="January"
' Field:=1 means the 1st column of the table (Month)

AutoFilter não exclui nem move nenhum dado — apenas oculta as linhas que não correspondem, exatamente como se você clicasse na seta suspensa e desmarcasse tudo, exceto January, manualmente. Field:=1 conta as colunas a partir de 1 dentro da própria Tabela (Month, Region, Sales, Expenses, Profit, Target — portanto, Region seria Field:=2, Profit Field:=5), por isso essa linha precisa ser mantida em sincronia caso as colunas sejam reordenadas.

Filtros com Múltiplas Condições

Filtrar para mais de um valor na mesma coluna exige xlFilterValues e um array de critérios:

tbl.Range.AutoFilter Field:=2, _
    Criteria1:=Array("North", "Central"), _
    Operator:=xlFilterValues

Compare com o filtro de valor único acima: Criteria1 agora contém um Array(...) de valores aceitáveis em vez de uma única string, e Operator:=xlFilterValues é o que informa ao AutoFilter para tratar esse array como uma lista de correspondências, em vez de tentar interpretá-lo como uma única expressão de critério. Se omitir Operator:=xlFilterValues, essa linha pode gerar erro ou se comportar de forma inesperada — é fácil esquecer e vale a pena conferir sempre que Criteria1 for uma lista.

Filtrar por uma condição numérica — por exemplo, apenas linhas onde Profit excede Target por uma boa margem — utiliza operadores de comparação:

tbl.Range.AutoFilter Field:=5, Criteria1:=">15000"

Note que ">15000" é escrito como texto entre aspas, mesmo sendo uma comparação numérica — o AutoFilter sempre espera Criteria1 como uma string, e ele mesmo interpreta o símbolo >. Escrever Criteria1:=15000 sem o > filtraria apenas as linhas exatamente iguais a 15000, em vez de maiores que esse valor, o que é um erro comum.

Ordenação

O objeto Sort suporta múltiplas chaves, exatamente como a caixa de diálogo Dados → Classificar:

With tbl.Sort
    .SortFields.Clear
    .SortFields.Add2 Key:=tbl.ListColumns("Month").Range, _
        SortOn:=xlSortOnValues, Order:=xlAscending
    .SortFields.Add2 Key:=tbl.ListColumns("Profit").Range, _
        SortOn:=xlSortOnValues, Order:=xlDescending
    .Header = xlYes
    .Apply
End With

.SortFields.Clear é executado primeiro para que chaves de ordenação remanescentes de uma execução anterior da macro (ou de uma ordenação manual feita pelo usuário) não se combinem silenciosamente com as novas — sempre limpe antes de adicionar. A ordem em que as duas chamadas .Add2 aparecem importa tanto quanto suas configurações Order:=xlAscending/xlDescending: a primeira adicionada se torna a chave primária de ordenação (Month), e a segunda serve como critério de desempate dentro de cada grupo (Profit, do maior para o menor dentro de cada mês). .Header = xlYes informa ao Excel que a linha 1 é um cabeçalho e nunca deve ser movida pela ordenação; .Apply é o comando que realmente executa a ordenação — tudo antes disso apenas monta as instruções.

Limpar Filtros

Sempre limpe os filtros no início de uma macro de relatório, para que cada execução comece de um estado conhecido e sem filtros:

If tbl.AutoFilter.FilterMode Then
    tbl.AutoFilter.ShowAllData
End If

FilterMode é um valor Boolean que fica True sempre que algum filtro está restringindo as linhas visíveis da Tabela — verificar isso antes evita um erro de execução, já que chamar ShowAllData quando nada está filtrado gera um erro em vez de simplesmente não fazer nada.

Tarefa

1. Escrever uma macro que filtre tblReports apenas para fevereiro, usando AutoFilter Field:=1.
2. Estender para filtrar a Região (Field:=2) apenas para "East" e "West" ao mesmo tempo, usando xlFilterValues.
3. Limpar ambos os filtros e, em seguida, classificar a tabela por Região em ordem crescente e depois por Lucro em ordem decrescente, utilizando o objeto Sort mostrado acima.