Как просуммировать ячейки в Excel

При создании сводной таблицы Excel, по умолчанию, или суммирует данные или подсчитывает их количество. Если все ячейки в столбце содержат числовые данные, Excel выбирает сумму. Если поля, которые вы добавляете содержат пробел или текст, Excel считает количество полей. Иногда поля, которые должны быть суммированы, содержат пробелы. В этих случаях мы вручную изменяем тип вычислений.

Данный макрос автоматически меняет тип вычисления на Сумм.

Этот макрос выполняет цикл по каждому полю данных в сводной таблице и изменяет свойство функции на xlSum. Вы можете изменить этот макрос, чтобы использовать один из вариантов расчета: xlCount, xlAverage, xlMin, xlMax и так далее.

В окне кода вы можете ввести pf.Function = и увидеть выпадающий список вариантов

1. Шаг 1 объявляет две переменные объекта. Он использует РТ в качестве контейнера памяти для нашей сводной таблицы и PF в качестве контейнера памяти для полей данных. Это позволяет макросу перебрать все поля данных в сводной таблице. Этот макрос разработан таким образом, что мы определяем сводную таблицу на основе активной ячейки. Другими словами, активная ячейка должна быть внутри сводной таблицы до запуска этого макроса. 

2. Шаг 2 присваиваем активной сводной таблице переменную РТ. Мы делаем это, используя свойство ActiveCell.PivotTable.Name, чтобы получить имя целевого диапазона. Если активная ячейка не находится внутри сводной таблицы, выдается ошибка. Именно поэтому макрос использует On Error Resume Next Statement. Это говорит Excel продолжить макрос, если есть ошибка. 

3. Шаг 3 проверяет переменную РТ - если она пустая, то выводим пользователю сообщение о том, что необходимо поместить курсор в сводную таблицу и выходим из процедуры.

4. Если макрос достигает Шага 4, значит активная ячейка была в сводной таблице. Оператор For Each перебирает каждое поле данных. Каждый раз, когда выбрано новое поле сводной, он изменяет свойство Function, чтобы изменить вычисление, используемое полем. В этом случае, мы меняем все вычисления на сумму. После того, как вычисление было изменено, мы переходим к следующему полю данных. После того, как все поля данных были оценены, макрос заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.