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

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

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

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

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

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

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

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

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

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

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

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

  2. Убедитесь, что на ленте отображается вкладка «Главная».

  3. Щелкните инструмент Условное форматирование. Excel отображает серию вариантов.

  4. Щелкните «Управление правилами». Excel отображает диалоговое окно «Диспетчер правил условного форматирования».

  5. Щелкните Новое правило. Excel отображает диалоговое окно «Новое правило форматирования».

(См. Рис. 3.)

  1. В области «Выбор типа правила» в верхней части диалогового окна выберите «Использовать формулу для определения ячеек для форматирования». Excel изменяет внешний вид диалогового окна «Новое правило форматирования».

  2. В поле формулы введите следующую формулу:

ЕЧИСЛО (НАЙТИ («Общая сумма»; A1 $)). Щелкните Форматировать, чтобы открыть диалоговое окно Формат ячеек.

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

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

  3. Нажмите ОК, чтобы закрыть диалоговое окно «Новое правило форматирования». Только что созданное правило появится в диалоговом окне «Диспетчер правил условного форматирования».

  4. Щелкните Новое правило. Excel снова отображает диалоговое окно «Новое правило форматирования».

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

  6. В поле формулы введите следующую формулу:

ЕЧИСЛО (НАЙТИ («Итого»; $ A1)). Щелкните Форматировать, чтобы открыть диалоговое окно Формат ячеек. (См. Рис. 4.)

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

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

  3. Нажмите ОК, чтобы закрыть диалоговое окно «Новое правило форматирования».

  4. Нажимайте стрелки вверх и вниз, чтобы переместить созданные вами правила в порядок, в котором они должны быть оценены.

  5. Нажмите кнопку ОК, чтобы закрыть диалоговое окно «Диспетчер правил условного форматирования».

Выполняя вышеуказанные шаги, убедитесь, что вы заменили A1 (шаги 7 и 14) столбцом, в который добавлены ваши промежуточные итоги. Таким образом, если ваши промежуточные итоги находятся в столбце 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.

Этот совет (8110) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

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