Clase ListColumn - una columna en una tabla (Excel VBA)

La clase ListColumn representa una columna en una tabla. Para usar una variable de clase ListColumn, primero debe ser instanciado, por ejemplo


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

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

DataBodyRange

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

El objeto devuelto excluye la celdas de encabezado y totales.


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

Delete

Elimina la columna de datos de la lista.

Este método no quita la columna de la hoja.


ActiveCell.ListObject.ListColumns(1).Delete

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.

El valor de esta propiedad también se utiliza como nombre para mostrar de la columna de lista.


ActiveCell.ListObject.ListColumns(1).Name =

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 . Aquí puede ver valores posibles para XlTotalsCalculation.

No es necesario mostrar la fila de totales para establecer esta propiedad.


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

XPath

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

La propiedad XPath es válida cuando el intervalo que contiene cumple las condiciones siguientes:


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