模型监控中的应用--Excel动态图表和VBA

在监控模型变量的有效性和稳定性时需要看woe变化以及iv变化，可以做成下面的动态图表，可以同时选择变量以及监控的指标。

方法如下：
准备数据：

然后，插入数据透视表，行添加为‘state_date’,列添加为‘var_clus’,考察指标设置为求和项，注意：var_name此时不添加，对透视表添加‘切片器’，将var_name勾选。

最后，对透视表插入折线图，并在当前sheet添加如下宏代码，最后还要在开发工具里面插入控件，对各个控件指定宏代码。

Public Sub Badrate()
ThisWorkbook.Activate
Sheet2.Activate
On Error Resume Next
ActiveSheet.PivotTables("pivot1").PivotFields("求和项:badrate").Orientation = xlHidden
ActiveSheet.PivotTables("pivot1").PivotFields("求和项:woe").Orientation = xlHidden
ActiveSheet.PivotTables("pivot1").PivotFields("求和项:n").Orientation = xlHidden
ActiveSheet.PivotTables("pivot1").PivotFields("求和项:iv").Orientation = xlHidden
Sheet3.Activate
Sheet3.ChartObjects("table1").Select
    With ActiveChart.PivotLayout.PivotTable.PivotFields("var_clus")
        .Orientation = xlColumnField
        .Position = 1
    End With
ActiveChart.PivotLayout.PivotTable.AddDataField ActiveChart.PivotLayout.PivotTable.PivotFields("badrate"), "求和项:badrate", xlSum
End Sub

注意：上面应该修改下透视表和折线图的名字为‘pivot1’和‘table1’，并且透视表在sheet2,折线图在sheet3。