VBNet - Форум - макрос для сводной таблицы

Вопрос: макрос для сводной таблицы Добавлено: 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 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| Цитата \| #1	Добавлено: 13.12.05 16:05
	Границы таблицы будут всё равно фиксированными. Метод первый. Менять источник данных таблицы при изменении размера диапазона. Метод второй. Вынести данные в отдельную книгу/базу данных, и построить на них сводную таблицу, используя опцию "На основе внешних данных". Ответить

Страница: 1 |