excel - 防止 VBA 选择不同的工作表

Question

我需要重写此代码以在不选择“Random_Cal”表的情况下进行计算。

Sheets("Random_Cal").PivotTables("PivotTable3").PivotCache.Refresh
Sheets("Random_Cal").Select
ActiveSheet.PivotTables("PivotTable3").PivotFields("3a").PivotFilters.Add Type _
    :=xlValueIsBetween, DataField:=ActiveSheet.PivotTables("PivotTable3"). _
    PivotFields("3b"), Value1:=1, Value2:=Range("AI52")

代码一切正常，但激活代码的按钮位于与“Random_Cal”不同的工作表上。目前，当按下按钮时，屏幕会跳转到“Random_Cal”，然后跳转回起始表。我只需要更改这部分代码以保留在第一张表上，但要计算“Random_Cal”表。谢谢

Answer 1

使用 With ... End With block 来传递父工作表引用。

with workSheets("Random_Cal")
    .PivotTables("PivotTable3").PivotCache.Refresh
    .PivotTables("PivotTable3").PivotFields("3a").PivotFilters.Add _
       Type:=xlValueIsBetween, DataField:=.PivotTables("PivotTable3"). _
       PivotFields("3b"), Value1:=1, Value2:=.Range("AI52")
end with

How to avoid using Select in Excel VBA