Klasse TimelineState - Zeitachsen spezifische Status (Excel VBA)

Der Zeitachsen spezifische Status eines SlicerCache -Objekts. Um eine TimelineState -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise


Dim tse as TimelineState
Set tse = ActiveWorkbook.SlicerCaches(1).TimelineState

EndDate

Gibt das Ende des Filter Datumsbereichs zurück (gleich der Startwert-Eigenschaft, wenn Range ein einzelner Tag ist).

Diese Eigenschaft gibt einen Fehler für eine der folgenden Bedingungen zurück:


Dim dtEndDate As Date
dtEndDate = ActiveWorkbook.SlicerCaches(1).TimelineState.EndDate

FilterType

Gibt den Typ des Datumsfilters zurück. Dies sind mögliche Werte für XlPivotFilterType.


Dim xpfFilterType As XlPivotFilterType
xpfFilterType = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterType

FilterValue1

Gibt den ersten Wert zurück, der dem Datumsfilter zugeordnet ist (die Semantik variiert je nach Filtertyp).


Dim varFilterValue1 As Variant
varFilterValue1 = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue1

FilterValue2

Gibt den zweiten Wert zurück, der dem Datumsfilter zugeordnet ist (die Semantik variiert je nach Filtertyp).


Dim varFilterValue2 As Variant
varFilterValue2 = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue2

SetFilterDateRange

Legt den Filter der Zeitachse fest. Mögliche Rückgabewerte sind xlFilterStatusDateHasTime - SetFilterDateRange (?): StartDate oder EndDate haben einen Zeitabschnitt, xlFilterStatusDateWrongOrder - SetFilterDateRange (?): StartDate > EndDate, xlFilterStatusInvalidDate - SetFilterDateRange (?): StartDate oder EndDate sind ungültige Daten, xlFilterStatusOK - Bedeutet OK oder erfolgreich.

SetFilterDateRange (StartDate, EndDate)


Dim dtStartDate As Date: dtStartDate = 
Dim dtEndDate As Date: dtEndDate = 
Dim xfssSetFilterDateRange As XlFilterStatus
xfssSetFilterDateRange = ActiveWorkbook.SlicerCaches(1).TimelineState.SetFilterDateRange(StartDate:=dtStartDate, EndDate:=dtEndDate)

Arguments

Hier sind die benannte Argumente :

StartDate (Date) - Der Anfang des Filter Datumsbereichs.

EndDate (Date) - Das Ende des Filter Datumsbereichs.

SingleRangeFilterState

True , wenn der filterzustand ein zusammenhängender Datumsbereich ist, andernfalls false. andernfalls false.


Dim booSingleRangeFilterState As Boolean
booSingleRangeFilterState = ActiveWorkbook.SlicerCaches(1).TimelineState.SingleRangeFilterState

StartDate

Gibt den Anfang des Filter Datumsbereichs zurück.

Diese Eigenschaft gibt einen Fehler für eine der folgenden Bedingungen zurück:


Dim dtStartDate As Date
dtStartDate = ActiveWorkbook.SlicerCaches(1).TimelineState.StartDate