Сумма ячеек сумма жирным шрифтом в excel

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

Подсчет жирных чисел в диапазоне с помощью функции, определяемой пользователем (VBA и формула)
Суммирование жирных чисел в диапазоне с помощью функции, определяемой пользователем (VBA и формула)
Несколько кликов, чтобы подсчитать и суммировать выделенные жирным шрифтом ячейки в диапазоне с Kutools for Excel

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

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

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: подсчет жирных чисел в диапазоне ячеек

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Затем сохраните этот код и введите эту формулу = Жирный счетчик (A1: C9) в пустую ячейку, см. снимок экрана:

4, Затем нажмите Enter key, и вы будете считать выделенные жирным шрифтом ячейки в диапазоне A1: C9.

Примечание:A1: C9 в формуле указывает диапазон, в котором вы хотите использовать функцию для подсчета выделенных жирным шрифтом ячеек, вы можете изменить его по своему усмотрению.

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

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

1. Удерживая нажатой ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: суммирование полужирных чисел в диапазоне ячеек

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Затем сохраните этот код и введите эту формулу = sumbold (A1: C9) в пустую ячейку, см. снимок экрана:

4. Затем нажмите Enter key, все жирные числа в диапазоне A1: C9 добавлены. Смотрите скриншот:

Примечание:A1: C9 в формуле указывает диапазон, в котором вы хотите использовать функцию для суммирования ячеек, выделенных жирным шрифтом, вы можете изменить его по своему усмотрению.

Несколько кликов, чтобы подсчитать и суммировать выделенные жирным шрифтом ячейки в диапазоне с Kutools for Excel

YВы можете легко подсчитать или суммировать все выделенные жирным шрифтом ячейки в диапазоне несколькими щелчками мыши, не обрабатывая сложный код VBA и не запоминая формулы.

1. Для подсчета ячеек, выделенных жирным шрифтом, выберите пустую ячейку для поиска результата, а затем щелкните Кутулс > Kutools Функции > Статистические и математические > COUNTBYFONTBOLD.

А для суммирования выделенных жирным шрифтом ячеек нажмите Кутулс > Kutools Функции > Статистические и математические > SUMBYFONTBOLD. Смотрите скриншот:

2. В FАргументы соборования диалоговом окне, укажите диапазон, выделенный жирным шрифтом, который необходимо подсчитать или суммировать, в поле Ссылка, а затем щелкните значок OK кнопку.

Теперь подсчет или суммирование всех выделенных жирным шрифтом ячеек в указанном диапазоне немедленно заполняется в выбранной ячейке. Смотрите скриншот:

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Сохраните постоянную ссылку на ячейку формулы с помощью Kutools for Excel

Статьи по теме:

Как определить и выделить все жирные ячейки или текст в Excel?

Hi @Jalil1985 

I agree that it seems not possible without a macro, but with VBA it is possible.

Put the different parts in separate cells and generate A2 as static text;

Sub boldSum()
    part1 = Range("Part_1").Value
    part2 = Range("Part_2").Value
    part3 = Range("Part_3").Value
    
    Range("a2").Select
    ActiveCell.Value = part1 & part2 & part3
    
    ActiveCell.Characters(Start:=Len(part1), Length:=Len(part2)).Font.FontStyle = "Bold"
End Sub

Thus, the attached file is xlsM.

-/-

i5:i7 are named Part_1 to 3 to be easy possible to move to another sheet with preferences. Cut and paste and tha macro will still be functional.

Найти сумму чисел,оформленных курсивом (без макросов)

Автор Листьяясеня, 26.05.2011, 21:46

« назад — далее »

Расскажи друзьям, если статья оказалась полезной:

    Видеоинструкции по использованию надстройки MulTEx

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

Когда вы работаете с таблицей, в которой есть промежуточные итоги, созданные командой Данные → Итоги (Data → Subtotals), иногда бывает трудно отличить итоги от других данных, поэтому читать таблицу тяжело. Это особенно часто случается, если промежуточные итоги были созданы для таблицы данных с множеством столбцов.

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

Чтобы проверить эту проблему, введите некоторые данные, схожие с данными на рис. 2.19.

Теперь добавьте промежуточные итоги, выбрав команду Данные → Итоги (Data → Subtotals) и приняв в диалоговом окне Промежуточные итоги (Subtotals) значения параметров по умолчанию (просто щелкните кнопку ОК). На рис. 2.20 заголовки промежуточных итогов выделены жирным шрифтом, а соответствующие значения — нет. Так как в этой таблице только два столбца, ее нетрудно читать и выделять промежуточные итоги.

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

Выделите ячейки А1:В9, следя за тем, чтобы ячейка А1 была активной. Выберите команду Главная → Условное форматирование (Home → Conditional Formatting), выберите пункт Формула (Formula Is) и введите следующую формулу: =RIGHT($A1,5)="Total", в русской версии Excel: =ПРАВСИМВ($А1;5)="Тоtаl". Теперь щелкните кнопку Формат (Format), перейдите на вкладку Шрифт (Font) и в поле Начертание (Font Style) выберите Полужирный (Bold). Щелкните кнопку ОК, затем еще раз щелкните кнопку ОК.

Важным свойством формулы является использование абсолютной ссылки на столбец ($А) и относительной ссылки на строку (1). Так как выделение вы начали с ячейки Al, Excel автоматически изменит формулу для каждой ячейки. Например, в ячейках А2 и В2 формула условного форматирования будет выглядеть как =RIGHT($A2,5)="Total" (=ПРАВСИМВ($А2,5)="Total"), а в ячейках A3 и ВЗ — как =RIGHT($A3,5)="Total" (=ПРАВСИМВ($A3;5)="Total"). Добавьте промежуточные итоги. Необходимо помнить, что после удаления промежуточных итогов жирный шрифт также исчезнет.

Трюк в трюке

Единственный подвох в этом способе — то, что общий итог (Grand Total) выводится в том же стиле, что и промежуточные итоги. Было бы удобно отформатировать общий итог по-другому, чтобы он отличался от промежуточных итогов и был легко заметен. Мы сделаем это, используя тот же пример.

Начните с необработанных данных. Выделите ячейки А1:В9, следя за тем, чтобы ячейка А1 была активной при выделении. Выберите команду Главная → Условное форматирование (Home → Conditional Formatting). Выберите пункт Формула (Formula Is) и введите следующую формулу: =$Al="Grand Total".

Щелкните кнопку Формат (Format), перейдите на вкладку Шрифт (Font) и в поле Начертание (Font Style) выберите Полужирный (Bold). Щелкните кнопку ОК, а затем кнопку Добавить (Add), чтобы добавить второе условие форматирования. Выберите пункт Формула (Formula Is) и введите следующую формулу: =RIGHT($A1;5)="Total", в русской версии Excel: =ПРАВСИМВ($А1;5)="Total". Щелкните кнопку Формат (Format), перейдите на вкладку Шрифт (Font) и в поле Начертание (Font Style) выберите Полужирный курсив (Bold Italic). В поле Подчеркивание (Underline) выберите Одинарное, по значению (Single), щелкните кнопку ОК, а затем еще раз щелкните кнопку ОК. Теперь выберите команду Данные → Итоги (Data → Subtotals) и щелкните кнопку ОК, приняв значения по умолчанию.

Чтобы улучшить читаемость промежуточных итогов, можно использовать любое форматирование.