не могу программно прочесть исходные данные ячейки сводной
[vba]Код
With ActiveCell ''обычная сводная
Debug.Print
Debug.Print 11, .PivotItem.Name
Debug.Print 12, .PivotItem.Value
Debug.Print 13, .Address
Debug.Print 14, .Value
''11 Количество по полю Статус
''12 Количество по полю Статус
''13 $H$8
''14 4
''как получить 4 строки основного листа(например столбец 1, в реалии надо 10 столбцов), которые относятся к этой сводной ячейке
j1 = 0
j1k = 4
Do While j1 < j1k
j1 = j1 + 1
Debug.Print j1, "------------------------------",
Loop
'1 ааааааааааааааа
'2 вввввввввввввв
'3 ддддд
'4 ооооооооооооооооооооооооооооооооо
End With
[/vba]