数据透视表无法正常使用

1、同时按  alt+f11

2、再打开的VB编辑器中粘贴如下程序：

Private Sub Worksheet_Activate()

        Sheets("源数据表").PivotTables("数据透视表").RefreshTable

    End Sub

3、关闭VB编辑器