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