透视图表给数据处理确实带来的不可嚼嘛叽堑形容的便利。但做筛选时点那个勾勾确实麻烦，不够爽。今天分享下用控件来控制数据筛选带来的不一样体验。下面透视图中的滚动条控件就可控制图表伍啪怪顼显示数据的天数。例如点滚动条到8天，就可按滚动条的天数更新图表Data选取最近8天的数据。
工具/原料
Excel2013
方法/步骤
1、先在表单"Rawdata"内建立原始数据表。
2、用范围"Data"来定义原始数据表用于自动更新后续填入的数据到图表。
3、添加透视图表。
4、将透视图按如下图示整理并将透视图移到新建的工作表单"Chart"内。
5、添加滚动条“ScrollBar1"并设置调整间距。
6、录制一个名为"Scrollbarclick"的空宏。
7、打开录制的"Scrollbar罕铞泱殳click"空宏，并填入如下代码。DimiDimj肛舀辨乔Dimh'更新最大天数Sheets("RawData").Selectj=[b65536].End(3).RowActiveWorkbook.RefreshAllSheets("Chart").SelectActiveSheet.Shapes.Range(Array("ScrollBar1")).SelectWithSelection.Max=jEndWith'根据ScrollBar1值的天数来刷新图表内显示天数Sheets("RawData").SelectActiveSheet.PivotTables("PivotTable1").PivotFields("Date").ClearAllFiltersFori=2Toj-Sheets("Chart").Range("B3").Valueh=Sheets("RawData").Range("A"&i).ValueSheets("Chart").SelectActiveSheet.ChartObjects("Chart1").ActivateWithActiveChart.PivotLayout.PivotTable.PivotFields("Date").PivotItems(h).Visible=FalseEndWithNexti
8、完工。点滚动条验证下。
