Segue mais um exemplo de programação VBA para manipular AutoFiltro no MS Excel.
O uso desse código nas listas de dados contidas nas tabelas das nossas planilhas.
Quando nomeamos as nossas tabelas de dados constituimos um ListObject, o qual automaticamente recebe a sua própria propriedade AutoFiltro.
Autofiltro - Mostrando todos os registros (Show All Records)
Autofiltro - Acionando o AutoFiltro da nossa Lista (Turn On List AutoFilter)
Autofiltro - Desligando a Lista de AutoFiltro (Turn Off List AutoFilter)
Autofiltro - Contando as Listas de AutoFiltros (Count List AutoFilters)
Autofiltro - Ocultando todas as Setas da lista de AutoFiltro, exceto uma (Hide Arrows Specific Columns)
Autofiltro - Ocultando Setas específicas nas listas de AutoFiltro (Hide Arrows Specific Columns)
Autofiltro - Visualizar todas as setas da Lista AutoFiltro (Show All List AutoFilter Arrows)
Autofiltro - Copiando Linhas filtradas específicas, sem os títulos (Copy Filtered List Rows Without Headings)
Autofiltro - Copiando Linhas filtradas específicas, com os títulos (Copy Filtered List Rows With Headings)
Autofiltro - Conte as Linhas Visíveis da Lista (Count Visible List Rows)
Talvez, em alguns casos específicos, queiramos ocultar as setas de colunas específicas na nossa lista de dados, deixando as demais setas visíveis. O código a seguir esconde as setas das colunas 1, 3 e 4 na 2ª lista.
Sub HideSpecifiedArrowsList2()
' Esconde setas (arrows) em colunas específicas na 2ª lista.
Dim Lst As ListObject
Dim c As Range
Dim i As Integer
Let Application.ScreenUpdating = False
Set Lst = ActiveSheet.ListObjects(2)
Let i = 1
For Each c In Lst.HeaderRowRange
Next
Let Application.ScreenUpdating = True
EndSubSelect Case i
Case 1, 3, 4
Lst.Range.AutoFilter Field:=i, _
Visibledropdown:=False
Case Else
Lst.Range.AutoFilter Field:=i, _
Visibledropdown:=True
End Select
Let i = i + 1
Tags: VBA, Excel, List, AutoFilter, autofiltro, worksheet, Show, Arrows, Specific Columns, Hide,
Nenhum comentário:
Postar um comentário