Метод Consolidate
Метод consolidate (консолидация) применяется для объединения данных из нескольких диапазонов в одну итоговую таблицу, которые могут находиться на различных рабочих листах. Этот метод позволяет подвести итоги и обобщить однородные данные, размещенные в нескольких диапазонах. Вручную метод consolidate выполняется с помощью команды Данные, Консолидация (Data, Consolidate).
Синтаксис:
Объект.Consolidate(Sources, Function, TopRow, LeftColumn, CreateLinks)
Аргументы:
Объект |
Диацазон, где будет построена итоговая таблица | ||||
Sources |
Массив ссылок в R1C1 -формате на диапазоны, по которым строится итоговая таблица. Ссылки должны содержать полные имена диапазонов с указанием имен рабочих листов, на которых они расположены | ||||
Function |
Функция, на основе которой строится итоговая таблица. Допустимые значения: xlVarp (смещенное отклонение) |
| |||
TopRow |
Допустимые значения: True (консолидация основывается на заголовках столбцов, консолидируемых диапазонов) и False (в противном случае) | ||||
LeftColumn |
Допустимые значения: True (консолидация основывается на заголовках строк, консолидируемых диапазонов) и False (в противном случае) Флажок Создавать связи с исходными данными (Create Links to Source Data) позволяет установить связь между исходными данными и итоговым диапазоном так, что результаты будут обновляться при изменении данных. В данном случае сбросим этот флажок. |
| |||
Рис. 3.10. Диалоговое окно диапазонов
Рис. 3.11. Диалоговое окно Консолидация
ШагЗ |
Нажатие кнопки ОК приводит к построению итоговой таблицы (рис. 3.12). В методе Consolidate за исходные диапазоны отвечает аргумент Sources, за способ консолидации данных — аргумент Function, за установку флажков подписи верхней строки (Top Row), значения левого столбца (Left Column) и Создавать связи с исходными данными (Create Links to Source Data) — аргументы TopRow, LeftColumn и CreateLinks. Подытожим все присвоения значений аргументов для рассмотренного примера: Range ( "Al : D4 " ) . Consolidate_ Sources :=Ar r ay (" ' [Книга1] 1998 ' ! R1C1 : R4C4", " ' [Книга2] 1999' !R1C1:R4C4") , Function :=xlSum, TopRow: =True, Left Column :=True, CreateLinks :=False |
||
Рис. 3.12. Результат консолидации