透视图表给数据处理确实带来的不可形容的便利。但做筛选时点那个勾勾确实麻烦，不够爽。今天分享下用控件来控制数据筛选带来的不一样体验。下面透视图中的滚动条控件就可控制图表显示数据的天数。例如点滚动条到8天，就可按滚动条的天数更新图表Data选取最近8天的数据。工具/原料moreExcel2013方法/步骤1/8分步阅读

先在表单Raw data内建立原始数据表。

2/8

用范围Data来定义原始数据表用于自动更新后续填入的数据到图表。

3/8

添加透视图表。

4/8

将透视图按如下图示整理并将透视图移到新建的工作表单Chart内。

5/8

添加滚动条“Scroll Bar 1并设置调整间距。

6/8

录制一个名为Scrollbarclick 的空宏。

7/8

打开录制的Scrollbarclick空宏，并填入如下代码。

Dim i

Dim j

Dim h

更新最大天数

Sheets(Raw Data).Select

j = .End(3).Row

ActiveWorkbook.RefreshAll

Sheets(Chart).Select

ActiveSheet.Shapes.Range(Array(Scroll Bar 1)).Select

With Selection

.Max = j

End With

根据Scroll Bar 1值的天数来刷新图表内显示天数

Sheets(Raw Data).Select

ActiveSheet.PivotTables(PivotTable1).PivotFields(Date).ClearAllFilters

For i = 2 To j - Sheets(Chart).Range(B3).Value

h = Sheets(Raw Data).Range(A i).Value

Sheets(Chart).Select

ActiveSheet.ChartObjects(Chart 1).Activate

With ActiveChart.PivotLayout.PivotTable.PivotFields(Date)

.PivotItems(h).Visible = False

End With

Next i

8/8

完工。点滚动条验证下。

注意事项

如若此经验有所帮助，烦请点击右上角大拇指或五角星支持。

excel