透视表刷新

02648023

在抖音学到这个查询用透视表
使用辅助列返回true 然后显示  但是现在问题是查询的字段数据表变化  但是透视表不刷新   只能点刷新   怎么才能数据表变化透视表跟随一起变化    求大佬提点

Excel_muke

有几个方法你可以看下哪个符合：
1.打开文件自动刷新：右键透视表-数据透视表选项-数据-打开文件时刷新数据

2.定时刷新：全选数据源，菜单栏-数据-自表格/区域-进入PQ编辑器-关闭并上载至"仅创建连接"-在查询里右键-属性


3.数据源变化自动刷新(用VBA实现)：
    (1)按alt+F11，进入VBA窗口
    (2)左边的对象里有表格名称
         在数据源所在的表格对象输入：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.    
   
4.     For Each pc In ThisWorkbook.PivotCaches
   
5.         pc.Refresh
   
6.     Next pc
   
7.    
   
8.     Application.EnableEvents = True
   
9. End Sub

复制代码

       在透视表所在的表格对象输入：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     RefreshPivotTablesOnSelectionChange
   
3. End Sub
   
4. 
   
5. Function RefreshPivotTablesOnSelectionChange() As Boolean
   
6.     On Error GoTo ErrorHandler
   
7.    
   
8.     Application.EnableEvents = False
   
9.    
   
10.     Dim wb As Workbook
    
11.     Set wb = ThisWorkbook
    
12.     Dim pc As pivotCache
    
13.     Dim i As Integer
    
14.     i = 0
    
15.    
    
16.     For Each pc In wb.PivotCaches
    
17.         pc.Refresh
    
18.         i = i + 1
    
19.     Next pc
    
20.    
    
21.     Application.EnableEvents = True
    
22.    
    
23.     RefreshPivotTablesOnSelectionChange = (i > 0)
    
24.    
    
25.     Exit Function
    
26.    
    
27. ErrorHandler:
    
28.     Application.EnableEvents = True
    
29.     Debug.Print "发生错误，请检查透视表刷新功能。错误详情: " & Err.Description
    
30.     RefreshPivotTablesOnSelectionChange = False
    
31. End Function
    

复制代码

    (3)按alt+q退出VBA窗口，此时只要数据源有变化，透视表会随之进行刷新