Друзья, делаю в день кучу сводных таблиц и ВСЕГДА заканчиваю тем, что в макете отчета приходится выбирать "показать в табличной форме" и убираю промежуточные итоги. Есть ли в экселе такая возможность, чтоб сразу настроить формат сводной таблицы?
Друзья, делаю в день кучу сводных таблиц и ВСЕГДА заканчиваю тем, что в макете отчета приходится выбирать "показать в табличной форме" и убираю промежуточные итоги. Есть ли в экселе такая возможность, чтоб сразу настроить формат сводной таблицы?ЩтуКув
Есть макросы. Сводную можно создавать макросом - я так уже давно создаю. В макросе пропишите что Вы хотите включить, а что отключить. И останется выбрать диапазон и нажать волшебную кнопку
Есть макросы. Сводную можно создавать макросом - я так уже давно создаю. В макросе пропишите что Вы хотите включить, а что отключить. И останется выбрать диапазон и нажать волшебную кнопку SLAVICK
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Пятница, 25.12.2015, 11:09
Sub SvodTablFormat() With ActiveCell.PivotTable .RowAxisLayout xlTabularRow .ColumnGrand = False .RowGrand = False n_ = .PivotFields.Count For i = 1 To n_ .PivotFields(i).Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) Next i End With End Sub
[/vba]
Вроде вот так должно работать [vba]
Код
Sub SvodTablFormat() With ActiveCell.PivotTable .RowAxisLayout xlTabularRow .ColumnGrand = False .RowGrand = False n_ = .PivotFields.Count For i = 1 To n_ .PivotFields(i).Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) Next i End With End Sub
В Персонал. В нем создаете модуль (или используете уже имеющийся), вставляете туда код. Затем вешаете этот макрос на кнопку на панели быстрого доступа (ПКМ по ней - настройка - в "Выбрать из" выбираете макросы - дальше разберетесь, там легко. Персонал - где и как
В Персонал. В нем создаете модуль (или используете уже имеющийся), вставляете туда код. Затем вешаете этот макрос на кнопку на панели быстрого доступа (ПКМ по ней - настройка - в "Выбрать из" выбираете макросы - дальше разберетесь, там легко. Персонал - где и как_Boroda_
таааак, кажется, я на правильном пути..... скопировал туда код, теперь вылезло окно "run-time error '1004': Невозможно получить свойство Pivot Table класса Range". жму debug и желтым подсвечивает With ActiveCell.PivotTable. Где я ступил?
таааак, кажется, я на правильном пути..... скопировал туда код, теперь вылезло окно "run-time error '1004': Невозможно получить свойство Pivot Table класса Range". жму debug и желтым подсвечивает With ActiveCell.PivotTable. Где я ступил?ЩтуКув
Это я забыл дописать в коде, что перед его запуском нужно встать в любое место сводной. Иначе как мы объясним Excelю, что именно эту таблицу нужно преобразовывать?
Это я забыл дописать в коде, что перед его запуском нужно встать в любое место сводной. Иначе как мы объясним Excelю, что именно эту таблицу нужно преобразовывать?_Boroda_
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
