Excel透视图表数据筛选之控件控制

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

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

3、添加透视图表。

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

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

6、录制一个名为"Scrollbarclick" 的空宏。

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

Dim i

Dim j

Dim h

'更新最大天数

    Sheets("Raw Data").Select

    j = [b65536].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、完工。点滚动条验证下。