我不希望我的 VBA 代码更改工作表

Question

因此，每次在主工作表（仪表板）中进行更改时，我都尝试使用代码简单地刷新数据透视表。

因为我需要保持干净，所以我有另一张工作表，其中所有信息都在，名为historic_var 。

问题是，当我运行代码时，它运行良好，但它更改为没有用的工作表（除非保证信息安全）。 我能做什么？ 已经试过application.ScreenUpdating = False

目前的代码是：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <= 14 Then
        Sheets("historic_var").Select
        ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
    End If
End Sub

Answer 1

您可以在不更改工作表的情况下更新表格。 试试这个...

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column <= 14 Then
    
    Sheets("historic_var").PivotTables("Tabela dinâmica1").PivotCache.Refresh
    End If

End Sub