PivotTable Деталь назначение

Question

Я знаю, что это может быть решено с помощью более сложного сценария, но я просто хочу, чтобы иметь .ShowDetails действия для любой сводной таблицы в моей книге (я имею 15+) послать связанные данные для конкретного Pivot Item в назначенный рабочий лист каждый раз. У меня есть этот скрипт, но я считаю, что неправильно что-то закодировал (я получаю сообщение о компиляции процедуры, когда пытаюсь выполнить его).

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 - свойство, которое должно быть установлено в значение Истина, если вы хотите отображать данные для выбранной ячейки.

Следующая строка должна работать.

Selection.ShowDetail = True