Страница: 1 |
Вопрос: макрос для сводной таблицы | Добавлено: 13.12.05 10:23 |
Автор вопроса: ![]() |
Пытаюсь написать макрос, который создавал бы сводную таблицу на основе таблицы данных. Проблема в том, что границы таблицы данных в макросе получаются фиксированными, а ведь они будут меняться. Как сделать, чтобы границы получались автоматически? На данный момент получается следующее:
Sub СводнаяТаблица() ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "'Лист1 '!R1C1:R1680C5").CreatePivotTable TableDestination:="", TableName:= _ "СводнаяТаблица1" ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select ActiveSheet.PivotTables("СводнаяТаблица1").SmallGrid = False With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Кредитор") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Имя поставщика") .Orientation = xlRowField .Position = 2 End With With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Сумма") .Orientation = xlDataField .Position = 1 End With End Sub |
Ответы | Всего ответов: 1 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() Вопросов: 0 Ответов: 1876 ![]() |
Профиль | Цитата | #1 | Добавлено: 13.12.05 16:05 |
Границы таблицы будут всё равно фиксированными.
Метод первый. Менять источник данных таблицы при изменении размера диапазона. Метод второй. Вынести данные в отдельную книгу/базу данных, и построить на них сводную таблицу, используя опцию "На основе внешних данных". |
Страница: 1 |
|