Klasse ListColumn - eine Spalte in einer Tabelle (Excel VBA)
Die Klasse ListColumn stellt eine Spalte in einer Tabelle dar. Um eine ListColumn -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim lstcol as ListColumn
Set lstcol = ActiveCell.ListObject.ListColumns(Index:=1)
For Each
Hier ist ein Beispiel für die Verarbeitung der ListColumn -Elemente in einer Sammlung
Dim lstcol As ListColumn
For Each lstcol In ActiveCell.ListObject.ListColumns
Next lstcol
DataBodyRange
Gibt ein Range -Objekt zurück, das die Größe des Datenteils einer Spalte darstellt.
Das zurückgegebene Objekt schließt die Überschrift- und die Ergebniszelle aus.
Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.ListObject.ListColumns(1).DataBodyRange
Delete
Löscht die Spalte mit Daten aus der Liste.
Mit dieser Methode wird die Spalte nicht aus dem Arbeitsblatt entfernt.
ActiveCell.ListObject.ListColumns(1).Delete
Index
Gibt einen Long -Wert zurück, der die Indexnummer des ListColumn -Objekts in der ListColumns -Auflistung darstellt.
Dim lngIndex As Long
lngIndex = ActiveCell.ListObject.ListColumns(1).Index
Name
Gibt einen String-Wert zurück, der den Namen der Listenspalte darstellt, oder legt diesen fest.
Der Wert dieser Eigenschaft kann auch als Anzeigename der Listenspalte verwendet werden.
ActiveCell.ListObject.ListColumns(1).Name =
Range
Gibt ein Range -Objekt zurück, das den Range darstellt, auf den das angegebene Listenobjekt angewendet wird.
Dim rngRange As Range
Set rngRange = ActiveCell.ListObject.ListColumns(1).Range
Total
Gibt die Ergebniszeile für ein ListColumn-Objekt zurück.
Dim rngTotal As Range
Set rngTotal = ActiveCell.ListObject.ListColumns(1).Total
TotalsCalculation
Bestimmt den Berechnungstyp in der Ergebniszeile der Listenspalte basierend auf dem Wert der XlTotalsCalculation -Aufzählung. Dies sind mögliche Werte für
Die Ergebniszeile muss nicht angezeigt werden, um diese Eigenschaft festzulegen.
ActiveCell.ListObject.ListColumns(1).TotalsCalculation = xlTotalsCalculationAverage
XPath
Gibt ein XPath -Objekt zurück, das den XPath des Elements darstellt, das dem angegebenen Range -Objekt zugeordnet ist.
Die XPath -Eigenschaft ist gültig, wenn der darin enthaltene Umfang die folgenden Bedingungen erfüllt:
Dim xphXPath As XPath
Set xphXPath = ActiveCell.ListObject.ListColumns(1).XPath