Когда вы добавляете промежуточные итоги на рабочий лист, Excel автоматически форматирует промежуточные итоги, используя полужирный шрифт. Однако вы можете захотеть использовать какой-то другой тип форматирования для промежуточных итогов, например, закрасить их желтым или другим цветом.

Если вы используете промежуточные итоги экономно и хотите применить другой формат только для одного или двух рабочих листов, вы можете выполнить следующие общие шаги:

  1. При необходимости примените промежуточные итоги.

  2. Выберите всю таблицу данных, включая промежуточные итоги.

  3. Используя область Outline в левой части экрана, сверните детали на вашем листе, чтобы отображались только промежуточные итоги.

  4. Нажмите F5, чтобы открыть диалоговое окно «Перейти». (См. Рис. 1.)

  5. Щелкните Special, чтобы отобразить диалоговое окно Go To Special. (См. Рис. 2.)

  6. Выберите кнопку параметра Только видимые ячейки.

  7. Щелкните ОК. Теперь выбраны только видимые строки промежуточных итогов.

  8. Примените желаемое форматирование.

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

  1. Перед применением промежуточных итогов выберите всю таблицу данных.

  2. Выберите «Условное форматирование» в меню «Форматирование». Excel отображает диалоговое окно «Условное форматирование».

  3. В крайнем левом раскрывающемся списке выберите Formula Is. Диалоговое окно изменится, отражая ваш выбор. (См. Рис. 3.)

  4. В поле формулы справа от раскрывающегося списка, использованного на шаге 3, введите следующую формулу: = ЕЧИСЛО (НАЙТИ («Общая сумма», $ A1)). Щелкните Форматировать, чтобы открыть диалоговое окно Формат ячеек.

  5. Используя элементы управления в диалоговом окне, установите форматирование, которое вы хотите применить к строке «Общий итог».

  6. Нажмите кнопку ОК, чтобы закрыть диалоговое окно Формат ячеек.

  7. Щелкните Добавить. Excel добавляет второй условный формат.

  8. В крайнем левом раскрывающемся списке второго условия выберите Formula Is. Диалоговое окно изменится, отражая ваш выбор.

  9. В поле формулы справа от раскрывающегося списка, использованного на шаге 9, введите следующую формулу: = ISNUMBER (FIND («Total», $ A1)). Щелкните Форматировать, чтобы открыть диалоговое окно Формат ячеек. (См. Рис. 4.)

  10. Используя элементы управления в диалоговом окне, установите форматирование, которое вы хотите применить к строке Итого.

  11. Нажмите кнопку ОК, чтобы закрыть диалоговое окно Формат ячеек.

  12. Нажмите OK, чтобы закрыть диалоговое окно «Условное форматирование».

Выполняя вышеуказанные шаги, убедитесь, что вы заменили A1 (шаги 4 и 10) столбцом, в который добавлены ваши промежуточные итоги. Таким образом, если ваши промежуточные итоги находятся в столбце G, вы должны использовать G1 вместо A1.

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

Следующий макрос проверяет все ячейки в выбранном диапазоне, а затем при необходимости применяет раскраску ячеек.

Sub FormatTotalRows()

Dim rCell as Range

For Each rCell In Selection         If Right(rCell.Value, 5) = "Total" Then             Rows(rCell.Row).Interior.ColorIndex = 36         End If

If Right(rCell.Value, 11) = "Grand Total" Then             Rows(rCell.Row).Interior.ColorIndex = 44         End If     Next End Sub

Макрос окрашивает строки промежуточных итогов в желтый цвет, а строку общего итога — в оранжевый. Макрос, хотя и прост по своей природе, не так эффективен, как мог бы, поскольку проверяется каждая ячейка в выбранном диапазоне.

Тем не менее, на листе из 10 столбцов и 5000 строк этот макрос выполняется менее чем за 5 секунд.

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

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

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

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

Этот совет (2984) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Formatting_Subtotal_Rows [Форматирование строк промежуточных итогов].