excel 2016 mac上的基本宏

Question

我在办公室2016上使用了一个基本的宏，但是当我尝试在mac上运行时，没有任何事情发生。

    Private Sub Workbook_Open()
    ThisWorkbook.RefreshAll
    Selection.SpecialCells(xlCellTypeConstants, 1).NumberFormat = "0"
    End Sub

我的目标是更新所有数据透视表。

Answer 1

如果您的Excel计算不是手动模式，即Application.Calculation = xlCalculationManual，那么 ThisWorkbook.RefreshAll 可能无效！

试试这个，

Sub RefreshPivots()
    Dim pivot As PivotTable
    For Each pivot In ActiveSheet.PivotTables
        pivot.RefreshTable
    Next pivot
End Sub