点击sheet自动刷新Excel透视表的vba代码简单实用

2024-06-18 VBA 代码 0 0 55

点击Sheet自动刷新Excel透视表的vba代码简单实用。

打开开发工具中的Visual Basic代码编辑器，将代码放入有透视表的Sheet中

Private Sub Worksheet_Activate()
Dim myPivot As PivotTable
For Each myPivot In Me.PivotTables
myPivot.RefreshTable
Next
Set myPivot = Nothing
End Sub

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。