Classe ListColumn - uma coluna em uma tabela (Excel VBA)
A classe ListColumn representa uma coluna em uma tabela. 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)
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
DataBodyRange
Retorna um objeto Range que é o tamanho da parte de dados de uma coluna. Somente leitura.
O objeto retornado exclui cabeçalho e totais.
Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.ListColumns(1).DataBodyRange
Delete
Exclui a coluna de dados na lista.
Este método não remove a coluna da folha. Se a lista estiver vinculada a um site do Microsoft SharePoint Foundation, a coluna não poderá ser removida do servidor e será gerado um erro.
ActiveCell.ListObject.ListColumns(1).Delete
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.
O valor desta propriedade é usado também como o nome para exibição da coluna da lista. Esse nome deve ser exclusivo na lista.
ActiveCell.ListObject.ListColumns(1).Name =
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. Aqui você pode encontrar os valores possíveis para
A linha de toTais não precisa ser exibida para definir essa propriedade. Não há nenhum valor "padrão" fixo para a propriedade. O Excel pode alterar o estado dessa propriedade à medida que outras colunas são adicionadas ou excluídas.
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.
A propriedade XPath é válida quando o intervalo que ela contém atender às seguintes condições:
Dim xphXPath As XPath
Set xphXPath = ActiveCell.ListObject.ListColumns(1).XPath