Clase TimelineState - Estado específico de escala de tiempo (Excel VBA)
Estado específico de escala de tiempo de un objeto SlicerCache . Para usar una variable de clase TimelineState, primero debe ser instanciado, por ejemplo
Dim tse as TimelineState
Set tse = ActiveWorkbook.SlicerCaches(1).TimelineState
EndDate
Devuelve el final del intervalo de fechas de filtrado (igual a la propiedad startDate si el intervalo es un solo día). Variant de solo lectura.
Esta propiedad devuelve un error para cualquiera de las siguientes condiciones:
Dim dtEndDate As Date
dtEndDate = ActiveWorkbook.SlicerCaches(1).TimelineState.EndDate
FilterType
Devuelve el tipo de filtro de fecha. XlPivotFilterType de solo lectura. Aquí puede ver valores posibles para
Dim xpfFilterType As XlPivotFilterType
xpfFilterType = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterType
FilterValue1
Devuelve el primer valor asociado con el filtro de fecha (la semántica varía según el tipo de filtro). Variant de solo lectura.
Dim varFilterValue1 As Variant
varFilterValue1 = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue1
FilterValue2
Devuelve el segundo valor asociado con el filtro de fecha (la semántica varía según el tipo de filtro). Variant de solo lectura.
Dim varFilterValue2 As Variant
varFilterValue2 = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue2
SetFilterDateRange
Establece el filtro de la escala de tiempo. Posibles valores de retorno son xlFilterStatusDateHasTime - SetFilterDateRange (?): StartDate o EndDate tienen una parte de la hora, xlFilterStatusDateWrongOrder - SetFilterDateRange (?): StartDate > EndDate, xlFilterStatusInvalidDate - SetFilterDateRange (?): StartDate o EndDate no son fechas válidas, xlFilterStatusOK - Significa correcto o correcto.
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
Estos son los argumentos con nombre :
StartDate (Date) - Inicio del intervalo de fechas de filtrado.
EndDate (Date) - Final del intervalo de fechas de filtrado.
SingleRangeFilterState
True cuando el estado de filtrado es un intervalo de fechas contiguo; de lo contrario, false. Boolean de solo lectura.
Dim booSingleRangeFilterState As Boolean
booSingleRangeFilterState = ActiveWorkbook.SlicerCaches(1).TimelineState.SingleRangeFilterState
StartDate
Devuelve el inicio del intervalo de fechas de filtrado. Variant de solo lectura.
Esta propiedad devuelve un error para cualquiera de las siguientes condiciones:
Dim dtStartDate As Date
dtStartDate = ActiveWorkbook.SlicerCaches(1).TimelineState.StartDate