Clase ListColumn (Excel VBA)

La clase ListColumn representa una columna en una tabla.

Los principales procedimientos de la clase ListColumn son Delete y ListColumns.Add

Set

Para usar una variable de clase ListColumn, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase ListColumn : ListColumns.Item, ListColumns.Add y ListObject.ListColumns

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ListColumn en una colección.

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

Métodos

Los principales métodos de la clase ListColumn son

Delete - Elimina la columna de datos de la lista.

ActiveCell.ListObject.ListColumns(1).Delete

ListColumns.Add - Agrega una nueva columna al objeto de lista.

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

Propiedades

DataBodyRange Devuelve un objeto Range que es el tamaño de la parte de datos de una columna.

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

Index Devuelve un valor de tipo Long que representa el número de índice del objeto ListColumn dentro de la colección ListColumns .

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

Name Devuelve o establece un valor de tipo String que representa el nombre de la columna de lista.

ActiveCell.ListObject.ListColumns(1).Name =

Parent Devuelve el objeto primario del objeto especificado.

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

Range Devuelve un objeto Range que representa el rango al que se aplica el objeto de lista especificado.

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

Total Devuelve la fila de total de un objeto ListColumn.

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

TotalsCalculation Determina el tipo de cálculo en la fila de totales de la columna de lista basándose en el valor de la enumeración XlTotalsCalculation .

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

XPath Devuelve un objeto XPath que representa la expresión XPath del elemento asignado al objeto Range especificado.

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

ListColumns.Count Devuelve un valor de tipo Integer que representa el número de objetos de la colección.

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

ListColumns.Item Devuelve un solo objeto de una colección.

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

ListColumns.Parent Devuelve el objeto primario del objeto especificado.

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