0

嗨,我正在尝试根据单元格中给出的开始和结束日期,将 Pivot 中的多个日期添加到“过滤器”区域。

下面是我使用的代码

ActiveSheet.PivotTables("PivotTable1").PivotFields("Date").PivotFilters. _
Add Type:=xlDateBetween, Value1:=CLng(Range("Datefrom").Value), Value2:=CLng(Range("Dateto").Value)

注意:当我在“行”区域中有“日期”但我希望它在“过滤器”区域中工作时,上面的代码可以正常工作。

我还录制了一个宏,发现我已经为我的日期设置了可见属性,但我对此一无所知。感谢您的及时帮助!

4

1 回答 1

0

Filters 区域不支持 Dates Between 过滤类型。如果您有支持它们的 Excel 版本,一种解决方法是使用 TimeLine Slicer。(我认为您需要 Excel 2013 或更高版本)

在此处输入图像描述

如果要使用 VBA 设置显示的上限和下限,只需打开宏记录器,更改时间线,然后检查宏记录器生成的代码。

如果您有早期版本的 Excel 或需要稍微不同的东西,请通过修改您的答案告诉我。

于 2018-04-24T19:51:08.240 回答