数据透视表显示详细信息目标

Question

我知道这可以通过更复杂的脚本来解决，但我只想在我的工作簿（我有 15 个以上）中为 any 数据透视表添加 .ShowDetails 操作以发送相关数据每次将特定的数据透视项转移到指定的工作表。我有这个脚本，但我认为我编写了错误的代码（当我尝试执行它时收到一个过程声明编译错误）。

Sub Workbook_SheetBeforeDoubleClick()

Dim WS As Worksheet

If Application.Range(ActiveCell.Address).PivotCell.PivotCellType = xlPivotCellValue Then
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name = "PivotTable Details" Then
        WS.Delete
        End If
    Next WS
    Selection.ShowDetails
    ActiveSheet.Name = "PivotTable Details"
End If

End Sub

Answer 1

几件事...

1. 我认为应该是ShowDetail，而不是ShowDetails。
2. ShowDetail 是一个属性，如果要显示需要设置为True 所选单元格的数据。

以下行应该可以工作。

Selection.ShowDetail = True