Shairal ежедневно разрабатывает сводные таблицы, используя различные источники данных, такие как списки Excel, таблицы Access и данные OLAP. Одна из самых неприятных вещей, с которыми он имеет дело, — это подавление функции автоматического подытога для каждого поля, по одному. Это может занять много времени в зависимости от количества используемых полей. Шейрал поинтересовался, не проще ли использовать макрос для подавления промежуточных итогов для всех полей сразу.

Ответ в том, что было бы проще использовать макрос. (Именно для этого нужны макросы — чтобы позаботиться о утомительных вещах, от которых вы устали.) Однако вместо того, чтобы изобретать велосипед, хорошим решением будет рассмотреть следующий код, адаптированный с сайта Microsoft MVP Дебры Даглишеш:

Sub NoSubtotals()

'turns off subtotals in pivot table     '.PivotFields could be changed to     '.RowFields or .ColumnFields

Dim pt As PivotTable     Dim pf As PivotField

On Error Resume Next     For Each pt In ActiveSheet.PivotTables         For Each pf In pt.PivotFields             'First, set index 1 (Automatic) to True,             'so all other values are set to False             pf.Subtotals(1) = True             pf.Subtotals(1) = False         Next pf     Next pt End Sub

Просто отобразите сводную таблицу, на которую вы хотите повлиять, а затем запустите макрос.

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

http://www.contextures.com/xlPivot03.html#Subtotals

На сайте также есть другая полезная информация по работе со сводными таблицами.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3103) применим к Microsoft Excel 97, 2000, 2002 и 2003.