Classe ListObject (Excel VBA)

A classe ListObject representa um objeto de lista na coleção ListObjects.

Os principais procedimentos da classe ListObject são Delete e ListObjects.Add

Set

Para usar uma variável de classe ListObject, ela primeiro precisa ser instanciada por exemplo

Dim lstobj as ListObject
Set lstobj = ActiveCell.ListObject

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ListObject: ListObjects.Item, ListObjects.Add, QueryTable.ListObject, Range.ListObject, SlicerCache.ListObject, TableObject.ListObject e Worksheet.ListObjects

For Each

Aqui está um exemplo de processamento dos itens ListObject em uma coleção.

Dim lstobj As ListObject
For Each lstobj In Application.ListObjects
	
Next lstobj

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Display/Show with its procedures DisplayName, DisplayRightToLeft, ShowHeaders e ShowTotals
Row with its procedures HeaderRowRange, InsertRowRange, ListRows e TotalsRowRange

Métodos

Estes são os principais métodos da classe ListObject

Delete - Exclui o objeto ListObject e limpa os dados de célula da planilha.

ActiveCell.ListObject.Delete

ListObjects.Add - Cria um novo objeto de lista.

Dim lstobj As ListObject
Set lstobj = ActiveSheet.ListObjects.Add

Estes são os principais métodos da classe

ExportToVisio - Exporta um objeto ListObject para o Visio.

Publish - Publica o objeto ListObject em um servidor que está executando o Microsoft SharePoint Foundation.

Refresh - Recupera o esquema e os dados atuais da lista no servidor que está executando o Microsoft SharePoint Foundation. Este método só pode ser usado para listas vinculadas a um site do SharePoint. Se o site do SharePoint não estiver disponível, chamar este método retornará um erro.

Resize - O método Resize permite que um objeto ListObject seja redimensionado em um novo intervalo. Nenhuma célula é inserida ou movida.

Unlink - Remove de uma lista o vínculo para um site do Microsoft SharePoint Foundation. Retornará Nothing.

Unlist - Remove a funcionalidade da lista de um objeto ListObject. Depois de usar esse método, o intervalo de células que compõem a lista será um intervalo regular de dados.

Propriedades

Active Retorna um valor Boolean que indica se um objeto ListObject em uma planilha está ativo, ou seja, se a célula ativa está dentro do intervalo do objeto ListObject . Boolean somente leitura.

Dim booActive As Boolean
booActive = ActiveCell.ListObject.Active

AlternativeText Retorna ou define a cadeia de caracteres descritiva alternativa da tabela especificada. Leitura/gravação.

ActiveCell.ListObject.AlternativeText =

AutoFilter Filtra uma tabela usando o recurso de autoFiltro. Somente leitura.

Dim afrAutoFilter As AutoFilter
Set afrAutoFilter = ActiveCell.ListObject.AutoFilter

Comment Retorna ou define o comentário associado ao objeto da lista. String de leitura/gravação.

ActiveCell.ListObject.Comment =

DataBodyRange Retorna um objeto Range que representa o intervalo de valores, excluindo a linha de cabeçalho, em uma tabela. Somente leitura.

Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.DataBodyRange

ListColumns Retorna uma coleção ListColumns que representa todas as colunas em um objeto ListObject . Somente leitura.

Dim lcsListColumns As ListColumns
Set lcsListColumns = ActiveCell.ListObject.ListColumns

Name Retorna ou define um valor String que representa o nome do objeto ListObject .

ActiveCell.ListObject.Name =

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.ListObject.Parent

QueryTable Retorna o objeto QueryTable que fornece um link para o objeto ListObject para o servidor de lista. Somente leitura.

Dim qrytblQueryTable As QueryTable
Set qrytblQueryTable = ActiveCell.ListObject.QueryTable

Range Retorna um objeto Range que representa o intervalo ao qual o objeto de lista especificado na lista se aplica.

Dim rngRange As Range
Set rngRange = ActiveCell.ListObject.Range

SharePointURL Retorna uma cadeia de caracteres que representa a URL da lista do SharePoint para um determinado objeto ListObject . String somente leitura.

Dim strSharePointURL As String
strSharePointURL = ActiveCell.ListObject.SharePointURL

ShowAutoFilter Retorna Boolean para indicar se o AutoFiltro será exibido. Boolean de leitura/gravação.

ActiveCell.ListObject.ShowAutoFilter = True

ShowAutoFilterDropDown True quando o menu suspenso de filtro automático para o objeto ListObject é exibido. Boolean de leitura/gravação.

ActiveCell.ListObject.ShowAutoFilterDropDown = True

ShowTableStyleColumnStripes Retorna ou define se o estilo de tabela Listras de Colunas deve ser usado para o objeto ListObject especificado. Boolean de leitura/gravação.

ActiveCell.ListObject.ShowTableStyleColumnStripes = True

ShowTableStyleFirstColumn Retorna ou define se a primeira coluna deve ser formatada para o objeto ListObject especificado. Boolean de leitura/gravação.

ActiveCell.ListObject.ShowTableStyleFirstColumn = True

ShowTableStyleLastColumn Retorna ou define se a última coluna deve ser exibida para o objeto ListObject especificado. Boolean de leitura/gravação.

ActiveCell.ListObject.ShowTableStyleLastColumn = True

ShowTableStyleRowStripes Retorna ou define se o estilo de tabela Listras de Linhas deve ser usado para o objeto ListObject especificado. Boolean de leitura/gravação.

ActiveCell.ListObject.ShowTableStyleRowStripes = True

Slicers Retorna uma lista da segmentação de tabelas associada a um objeto ListObject. Somente leitura.

Dim slcsSlicers As Slicers
Set slcsSlicers = ActiveCell.ListObject.Slicers

Sort Obtém ou define a coluna de classificação ou colunas e a ordem de classificação para a coleção ListObject .

Dim srtSort As Sort
Set srtSort = ActiveCell.ListObject.Sort

SourceType Retorna um valor XlListObjectSourceType que representa a fonte atual da lista.

Dim xloSourceType As XlListObjectSourceType
xloSourceType = ActiveCell.ListObject.SourceType

Summary Retorna ou define a descrição associada à cadeia de caracteres alternativa da tabela especificada. Leitura/gravação.

ActiveCell.ListObject.Summary =

TableObject Retorna um objeto tableobject. Somente leitura.

Dim totTableObject As TableObject
Set totTableObject = ActiveCell.ListObject.TableObject

TableStyle Obtém ou define o estilo de tabela para o objeto ListObject especificado. de leitura/gravação.

ActiveCell.ListObject.TableStyle =

XmlMap Retorna um objeto XmlMap que representa o mapa de esquema usado para a tabela especificada. Somente leitura.

Dim xmlmpXmlMap As XmlMap
Set xmlmpXmlMap = ActiveCell.ListObject.XmlMap

ListObjects.Count Retorna um valor Integer que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveSheet.ListObjects.Count

ListObjects.Item Retorna um único objeto de uma coleção.

Dim lstobjItem As ListObject
Set lstobjItem = ActiveSheet.ListObjects(Index:=1)

ListObjects.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveSheet.ListObjects.Parent