Classe ListColumn (Excel VBA)

A classe ListColumn representa uma coluna em uma tabela.

Os principais procedimentos da classe ListColumn são Delete e ListColumns.Add

Set

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

Dim lstcol as ListColumn
Set lstcol = ActiveCell.ListObject.ListColumns(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ListColumn: ListColumns.Item, ListColumns.Add e ListObject.ListColumns

For Each

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

Dim lstcol As ListColumn
For Each lstcol In ActiveCell.ListObject.ListColumns
	
Next lstcol

Métodos

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

Delete - Exclui a coluna de dados na lista.

ActiveCell.ListObject.ListColumns(1).Delete

ListColumns.Add - Adiciona uma nova coluna ao objeto de lista.

Dim lstcol As ListColumn
Set lstcol = ActiveCell.ListObject.ListColumns.Add()

Propriedades

DataBodyRange Retorna um objeto Range que é o tamanho da parte de dados de uma coluna. Somente leitura.

Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.ListColumns(1).DataBodyRange

Index Retorna um valor Long que representa o número de índice do objeto ListColumn dentro da coleção ListColumns .

Dim lngIndex As Long
lngIndex = ActiveCell.ListObject.ListColumns(1).Index

Name Retorna ou define um valor String que representa o nome da coluna da lista.

ActiveCell.ListObject.ListColumns(1).Name =

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

Dim objParent As Object
Set objParent = ActiveCell.ListObject.ListColumns(1).Parent

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

Dim rngRange As Range
Set rngRange = ActiveCell.ListObject.ListColumns(1).Range

Total Retorna a linha Total de um objeto ListColumn. Somente leitura.

Dim rngTotal As Range
Set rngTotal = ActiveCell.ListObject.ListColumns(1).Total

TotalsCalculation Determina o tipo de cálculo na linha toTais da coluna da lista com base no valor da enumeração XlTotalsCalculation . Leitura/gravação.

ActiveCell.ListObject.ListColumns(1).TotalsCalculation = xlTotalsCalculationAverage

XPath Retorna um objeto XPath que representa o XPath do elemento mapeado para o objeto Range especificado. O contexto do intervalo determina se a ação é bem-sucedida ou retorna um objeto vazio. Somente leitura.

Dim xphXPath As XPath
Set xphXPath = ActiveCell.ListObject.ListColumns(1).XPath

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

Dim lngCount As Long
lngCount = ActiveCell.ListObject.ListColumns.Count

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

Dim lstcolItem As ListColumn
Set lstcolItem = ActiveCell.ListObject.ListColumns(Index:=1)

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

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