深入了解 Excel 2013 年的特定总计
Drilldown to specific Total in Excel 2013
亲爱的 Whosebug 用户，
我带着另一个问题来找你。我正在按 VBA 在不同的数据透视表上创建向下钻取。我总是希望在总计单元格上向下钻取，并且当我的数据透视表扩展时，像我在代码中所做的那样引用它不起作用。如何在不使用单元格引用的情况下引用数据透视表中的单元格。
代码如下：
Sheets("16-Compliancy-Extract").Select
Range("H14").Select
Selection.ShowDetail = True
Selection.Copy
H14 是我指的单元格。问题是当我将新数据转储到数据透视表时，这个 Cell-"Adress" 不断变化。
如何取名得体？
通过以下方式修复它：它在与我试图检索的 GrandTotal 相同的列中搜索最后一个填充的单元格。
Dim rng As Range
Dim pt As PivotTable
Set pt = Sheets("16-Compliancy-Extract").PivotTables("Draaitabel1")
Set rng = pt.ColumnRange
rng.Cells(rng.Cells.Count).End(xlDown).ShowDetail = True
亲爱的 Whosebug 用户，
我带着另一个问题来找你。我正在按 VBA 在不同的数据透视表上创建向下钻取。我总是希望在总计单元格上向下钻取，并且当我的数据透视表扩展时，像我在代码中所做的那样引用它不起作用。如何在不使用单元格引用的情况下引用数据透视表中的单元格。
代码如下：
Sheets("16-Compliancy-Extract").Select
Range("H14").Select
Selection.ShowDetail = True
Selection.Copy
H14 是我指的单元格。问题是当我将新数据转储到数据透视表时，这个 Cell-"Adress" 不断变化。
如何取名得体？
通过以下方式修复它：它在与我试图检索的 GrandTotal 相同的列中搜索最后一个填充的单元格。
Dim rng As Range
Dim pt As PivotTable
Set pt = Sheets("16-Compliancy-Extract").PivotTables("Draaitabel1")
Set rng = pt.ColumnRange
rng.Cells(rng.Cells.Count).End(xlDown).ShowDetail = True