Klasse ListColumn (Excel VBA)

Die Klasse ListColumn stellt eine Spalte in einer Tabelle dar.

Die wichtigste Prozeduren der Klasse ListColumn sind Delete und ListColumns.Add

Set

Um eine ListColumn -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der ListColumn Klassenvariablen verwendet werden : ListColumns.Item, ListColumns.Add und ListObject.ListColumns

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

Methoden

Die Hauptmethoden der Klasse ListColumn sind

Delete - Löscht die Spalte mit Daten aus der Liste.

ActiveCell.ListObject.ListColumns(1).Delete

ListColumns.Add - Fügt dem Listenobjekt eine neue Spalte hinzu.

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

Eigenschaften

DataBodyRange Gibt ein Range -Objekt zurück, das die Größe des Datenteils einer Spalte darstellt.

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

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.

ActiveCell.ListObject.ListColumns(1).Name =

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

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

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.

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.

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

ListColumns.Count Gibt einen Integer-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

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

ListColumns.Item Gibt ein einzelnes Objekt aus einer Auflistung zurück.

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

ListColumns.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

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