0

我的工作簿中有数据透视图。不知何故，当我运行我的宏时，数据透视表没有显示。当我再次运行宏时，将显示数据透视图。怎么来的？

有时，但并非总是如此，下一行会给出错误（在部分 Resfresh 输出中）：Selection.NumberFormat = "0%"

我已尝试使用 .Visible = True 取消隐藏数据透视图的代码。它仍然没有显示数据透视表

Sub CopyOrders()

' Unhide all Sheets
For Each ws In ActiveWorkbook.Worksheets
    ws.Visible = xlSheetVisible
    If ws.AutoFilterMode Or ws.FilterMode Then
        ws.ShowAllData
    End If
    ws.Columns.EntireColumn.Hidden = False
    ws.Rows.EntireRow.Hidden = False
Next ws

ActiveWorkbook.SlicerCaches("Slicer_Site_Peros_Number___Name"). _
    ClearManualFilter

' Other code is showing here to calculate and form the tables my pivotcharts are coming from


' Refresh Output
Sheets("Output Frames").Select
ActiveSheet.PivotTables("PivotTableArticles").PivotCache.Refresh
Sheets("Output Frames").PivotTables("PivotTableArticles").DataBodyRange.NumberFormat = "dd/mm/yyyy"
Sheets("Output Frames").PivotTables("PivotTableSoldPerSite").PivotSelect "Percentage", _
    xlDataAndLabel, True
Selection.NumberFormat = "0%"
Columns("A:R").EntireColumn.AutoFit
Range("A2:P4").Font.Size = 30
Range("A6:P8").Font.Size = 20
Range("A42:P44").Font.Size = 20
Range("A1").Select

' Hide Data
Sheets("Output Frames").Columns("R:XFD").EntireColumn.Hidden = True
Sheets("Output Frames").Columns("H").EntireColumn.Hidden = True
Sheets("Output Frames").Columns("N").EntireColumn.Hidden = True
Sheets("Sales").Visible = xlSheetHidden
Sheets("Orders vs Sales").Visible = xlSheetHidden
Sheets("Sitenumbers").Visible = xlSheetHidden
Sheets("PivotTables").Visible = xlSheetHidden

End Sub

有人能说出为什么数据透视表没有第一次显示如何解决这个问题吗？

4

0 回答 0