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
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