在过滤和选择日期格式为dd / mm / yyyy h:mm:ss的行时寻求帮助。以下是我正在使用的代码。还尝试了Stackoverflow中建议的其他一些选项,但没有任何效果。
基本上,我的要求是从单元格中选择提及的日期格式,并将其应用于时间戳列。创建数据透视表。下面是示例列数据
Dim NmPivTbl As String, TimeStart As String, TimeEnd As String, CCY1 As String, ccy2 As String
Set Params = Range("A3")
TimeStart = Params.Offset(2, 2) #values picked from cell in format dd/mm/yyyy hh:mm:ss
TimeEnd = Params.Offset(3, 2) #values picked from cell in format dd/mm/yyyy hh:mm:ss
ActiveSheet.PivotTables(NmPivTbl).PivotFields("TimestampGMT").ClearAllFilters
ActiveSheet.PivotTables(NmPivTbl).PivotFields("TimestampGMT").PivotFilters.Add Type:=xlDateBetween, Value1:=TimeStart, Value2:=TimeE nd