枢轴选择

Question

我正在尝试使用下面的代码隐藏我的数据库中的选项，但它只隐藏第一个选择。休息就是这样。

任何有助于减轻它的帮助都会有所帮助。

Sub pivotselection()

Sheets("DailyHK").Select
Range("I16").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("type").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable1").PivotFields("NS").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable1").PivotFields("CA").Orientation = xlHidden
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Hw")
    .Orientation = xlColumnField
    .Position = 1
End With
Range("H34").Select
Selection.End(xlDown).Select
ActiveWindow.SmallScroll Down:=3
Sheets("MonthlyFS").Select
Range("P13").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Otype").Orientation = _
    xlHidden
Sheets("Calculations").Select
Range("D4").Select
End Sub

Answer 1

很抱歉，但我认为在没有看到工作簿的情况下找到确切的问题几乎是不可能的。不过，这里有一些线条可以让你朝着正确的方向前进。请注意，您不需要任何“选择”行。他们所做的就是混淆你的代码，使其更难理解和调试。

' first of all define a pivot table object that we can work with
dim pt as PivotTable

'set the object to hold the first pivot table
set pt = ActiveWorkbook.Sheets("DailyHK").PivotTables("PivotTable1")

'do stuff with pt (note the . at the beginning of each line in between "with" and "end with"
With pt
    .PivotFields("type").Orientation = xlHidden
    .PivotFields("NS").Orientation = xlHidden
    .PivotFields("CA").Orientation = xlHidden
End With

'set the object to hold the second pivot table
set pt = ActiveWorkbook.Sheets("MonthlyFS").PivotTables("PivotTable4")

With pt
    .PivotFields("Otype").Orientation = xlHidden
End With

'finally kill the object
set pt = Nothing

祝你好运！如果您仍然卡住，请确保将工作簿上传到某个地方（没有您的实际数据）或至少提供屏幕截图。