Classe TimelineState - O estado específico da linha do tempo (Excel VBA)

O estado específico da linha do tempo de um objeto SlicerCache . Para usar uma variável de classe TimelineState, ela primeiro precisa ser instanciada por exemplo

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

EndDate

Retorna o final do intervalo de datas de filtragem igual à propriedade StartDate se Range for um único dia. Somente leitura .

Essa propriedade retorna um erro para qualquer uma das seguintes condições:

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

FilterType

Retorna o tipo de filtro de data. Somente leitura XlPivotFilterType. Aqui você pode encontrar os valores possíveis para XlPivotFilterType.

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

FilterValue1

Retorna o primeiro valor associado ao filtro de data a semântica varia de acordo com o tipo de filtro. Somente leitura .

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

FilterValue2

Retorna o segundo valor associado ao filtro de data a semântica varia de acordo com o tipo de filtro. Somente leitura .

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

SetFilterDateRange

Define o filtro da linha do tempo. Os valores de retorno possíveis são xlFilterStatusDateHasTime - SetFilterDateRange (?): StartDate ou EndDate têm uma parte de hora, xlFilterStatusDateWrongOrder - SetFilterDateRange (?): StartDate > EndDate, xlFilterStatusInvalidDate - SetFilterDateRange (?): StartDate ou EndDate não são datas válidas, xlFilterStatusOK - Significa OK ou bem-sucedido.

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

O seguinte argumento é opcional

StartDate (Date) - O início do intervalo de datas de filtragem.

EndDate (Date) - O final do intervalo de datas de filtragem.

SingleRangeFilterState

True quando o estado de filtragem é um intervalo de datas contíguo; caso contrário, false. Boolean somente leitura.

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

StartDate

Retorna o início do intervalo de datas de filtragem. Somente leitura .

Essa propriedade retorna um erro para qualquer uma das seguintes condições:

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