powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выделение промежуточных итогов в сводной таблице
3 сообщений из 3, страница 1 из 1
Выделение промежуточных итогов в сводной таблице
    #34470754
Inigo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте.
Подскажите, пожалуйста, как программно с помощью макроса выделить промежуточные итоги в сводной таблице (например раскрасить разным цветом ячейки)?
Пробовал анализировать свойство PivotCellType, но во-первых получается медленно, а во вторых, не удается раскрасить промежуточные итоги по разным полям в разный цвет, так как нельзя проанализировать по какому полю подводятся промежуточные итоги.
...
Рейтинг: 0 / 0
Выделение промежуточных итогов в сводной таблице
    #34470863
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
InigoЗдравствуйте.
Подскажите, пожалуйста, как программно с помощью макроса выделить промежуточные итоги в сводной таблице (например раскрасить разным цветом ячейки)?
Пробовал анализировать свойство PivotCellType, но во-первых получается медленно, а во вторых, не удается раскрасить промежуточные итоги по разным полям в разный цвет, так как нельзя проанализировать по какому полю подводятся промежуточные итоги.

Можно так, Если итоги по полю :

Код: plaintext
1.
2.
ActiveSheet.PivotTables( 1 ).PivotSelect _
        "'Наименование проекта'[All;Total]"
    Selection.Interior.ColorIndex =  38 

Если Итоги по Элементу поля:

Код: plaintext
1.
2.
 ActiveSheet.PivotTables( 1 ).PivotSelect _
        "'Наименование проекта'[Проект1;Total]"
    Selection.Interior.ColorIndex =  38 
...
Рейтинг: 0 / 0
Выделение промежуточных итогов в сводной таблице
    #34476049
Inigo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за ответ!
Я этот метод тоже пробовал, но почему-то у меня он не рабатает как надо - если указать параметр Total, вылетает ошибка "Формула не завершена. Проверьте не пропущена ли закрывающая квадратная скобка (])." Сам отчет получен через компонент для Delphi XLReport. Попробовал создать сводную таблицу "руками" из исходных данных - в ней все работает. Буду копать дальше. :)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выделение промежуточных итогов в сводной таблице
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]