[已解决]数据不联动，错在哪？？？

fangniuji

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, n%, pn, pi
Dim pt As PivotTable
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
Set pt = Target.PivotTable
pi = pt.PageFields("姓名").CurrentPage
n = 查询.PivotTables.Count
   For i = 1 To n
      查询.PivotTables(i).PageFields("姓名").CurrentPage = pi
   Next i
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub
帮我改一下，谢谢！！！

最佳答案

月排行榜 / 总排行榜

suye1010

2012-11-12 16:18

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. Dim i%, n%, pn, pi
   
4. Dim pt As PivotTable
   
5. On Error Resume Next
   
6. Application.EnableEvents = False
   
7. Application.ScreenUpdating = False
   
8. Set pt = Target.PivotTable
   
9. pi = pt.PageFields("姓名").CurrentPage
   
10. n = Sheets("查询").PivotTables.Count
    
11.    For i = 1 To n
    
12.       Sheets("查询").PivotTables(i).PageFields("姓名").CurrentPage = pi
    
13.    Next i
    
14.    Application.EnableEvents = True
    
15.    Application.ScreenUpdating = True
    
16. End Sub

复制代码

跳转到最佳答案楼层

suye1010

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. Dim i%, n%, pn, pi
   
4. Dim pt As PivotTable
   
5. On Error Resume Next
   
6. Application.EnableEvents = False
   
7. Application.ScreenUpdating = False
   
8. Set pt = Target.PivotTable
   
9. pi = pt.PageFields("姓名").CurrentPage
   
10. n = Sheets("查询").PivotTables.Count
    
11.    For i = 1 To n
    
12.       Sheets("查询").PivotTables(i).PageFields("姓名").CurrentPage = pi
    
13.    Next i
    
14.    Application.EnableEvents = True
    
15.    Application.ScreenUpdating = True
    
16. End Sub

复制代码

suye1010

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. Dim i%, n%, pn, pi
   
4. Dim pt As PivotTable
   
5. On Error Resume Next
   
6. Application.EnableEvents = False
   
7. Application.ScreenUpdating = False
   
8. Set pt = Target.PivotTable
   
9. pi = pt.PageFields("姓名").CurrentPage
   
10. n = Sheets("查询").PivotTables.Count
    
11.    For i = 1 To n
    
12.       Sheets("查询").PivotTables(i).PageFields("姓名").CurrentPage = pi
    
13.    Next i
    
14.    Application.EnableEvents = True
    
15.    Application.ScreenUpdating = True
    
16. End Sub

复制代码

fangniuji

suye1010 发表于 2012-11-12 16:17

谢谢你的帮忙，谢谢！！！！！！