如何用vba显示所有日期？

leecg

我只能通过循环来实现，但如果数量很大的话，运行速度会很慢！！！



For i = 1 To Sheets(1).PivotTables(1).PivotFields(1).PivotItems.Count
Sheets(1).PivotTables(1).PivotFields(1).PivotItems(i).Visible = True
Next i


有没有好些的办法呢？？？？

masterexcel

动手录制一个代码，一切搞定

2003版本

1. 
   
2.     ActiveSheet.PivotTables("樞紐分析表1").PivotFields("日期").Orientation = xlHidden
   
3.     ActiveSheet.PivotTables("樞紐分析表1").PivotCache.Refresh '这一句很重要，否则不能全部显示
   
4.     With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("日期")
   
5.         .Orientation = xlRowField
   
6.         .Position = 1
   
7.     End With
   

复制代码

2007版本

1. 
   
2.     ActiveSheet.PivotTables("樞紐分析表1").PivotFields("日期").ClearAllFilters
   

复制代码

[ 本帖最后由 masterexcel 于 2010-1-26 14:25 编辑 ]

leecg

ok明白了，就是隐藏
刷新
然后再显示

谢谢了