Klasse PivotCell (Excel VBA)

Die Klasse PivotCell stellt eine Zelle in einem PivotTable-Bericht dar.

Set

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

Dim pvtlcel as PivotCell
Set pvtlcel = ActiveCell.PivotCell

Die folgenden Prozeduren können zum Festlegen der PivotCell Klassenvariablen verwendet werden : PivotLineCells.Item, PivotValueCell.PivotCell, Range.PivotCell, ValueChange.PivotCell, PivotLine.PivotLineCells und PivotLine.PivotLineCellsFull

For Each

Hier ist ein Beispiel für die Verarbeitung der PivotCell -Elemente in einer Sammlung

Dim pvtlcelPivotLineCell As PivotCell
For Each pvtlcelPivotLineCell In Application.PivotLineCells
	
Next pvtlcelPivotLineCell

Themas

Einige Prozeduren in dieser Klasse wurden in Themen zusammengefasst und auf separaten Themenseiten beschrieben

Cell with its procedures CellChanged und PivotCellType
Column with its procedures ColumnItems und PivotColumnLine
Row with its procedures PivotRowLine und RowItems

Methoden

Andere Methoden

AllocateChange - Führt einen Rückschreibevorgang in der angegebenen Zelle eines PivotTable-Berichts basierend auf einer OLAP-Datenquelle aus.

DiscardChange - Verwirft Änderungen an der angegebenen Zelle in einem PivotTable-Bericht.

Eigenschaften

CustomSubtotalFunction Gibt die Einstellung für ein benutzerdefiniertes Feld mit Zwischenergebnisfunktion eines PivotCell-Objekts zurück.

Dim xcfCustomSubtotalFunction As XlConsolidationFunction
xcfCustomSubtotalFunction = ActiveCell.PivotCell.CustomSubtotalFunction

DataField Gibt ein PivotField -Objekt zurück, das dem ausgewählten Datenfeld entspricht.

Dim pvtfDataField As PivotField
Set pvtfDataField = ActiveCell.PivotCell.DataField

DataSourceValue Gibt den zuletzt von der Datenquelle für bearbeitete Zellen in einem PivotTable-Bericht abgerufenen Wert zurück.

Dim strDataSourceValue As String
strDataSourceValue = ActiveCell.PivotCell.DataSourceValue

MDX Gibt ein Tupel zurück, das die vollständigen MDX-Koordinaten der angegebenen Wertzelle in einer PivotTable mit einer OLAP-Datenquelle bereitstellt.

Dim strMDX As String
strMDX = ActiveCell.PivotCell.MDX

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

Dim objParent As Object
Set objParent = ActiveCell.PivotCell.Parent

PivotField Gibt ein PivotField -Objekt zurück, das das PivotTable-Feld darstellt, das die linke obere Ecke des angegebenen Bereichs enthält.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotCell.PivotField

PivotItem Gibt ein PivotItem -Objekt zurück, das das PivotTable-Element darstellt, das die linke obere Ecke des angegebenen Bereich enthält.

Dim pvtiPivotItem As PivotItem
Set pvtiPivotItem = ActiveCell.PivotCell.PivotItem

PivotTable Gibt ein PivotTable -Objekt zurück, das den der PivotCell zugeordneten PivotTable-Bericht darstellt.

Dim pvtPivotTable As PivotTable
Set pvtPivotTable = ActiveCell.PivotCell.PivotTable

Range Gibt ein Range -Objekt zurück, das den von der angegebenen PivotCell-Wert bezieht.

Dim rngRange As Range
Set rngRange = ActiveCell.PivotCell.Range

ServerActions Stellt eine Auflistung von Aktionen dar, die aus OLAP-definierten Aktionen bestehen, die ausgeführt werden können.

Dim actsServerActions As Actions
Set actsServerActions = ActiveCell.PivotCell.ServerActions

PivotLineCells.Count Gibt die Anzahl der Elemente in der PivotLineCells -Auflistung zurück.

Dim lngCount As Long
lngCount = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Count

PivotLineCells.Full Bei truewerden alle PivotLineCells in der pivotlinie (einschließlich der in kompakter Form ausgeblendeten) abgerufen.

Dim booFull As Boolean
booFull = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Full

PivotLineCells.Item Gibt ein bestimmtes Element des PivotLineCells -Auflistungsobjekts anhand seiner Position in der Auflistung zurück.

Dim pvtlcelItem As PivotCell
Set pvtlcelItem = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull(Index:=1)

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

Dim objParent As Object
Set objParent = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Parent