Note: The other languages of the website are Google-translated. Back to English

Как суммировать / подсчитывать жирные числа в диапазоне ячеек в 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) в пустую ячейку, см. снимок экрана:

doc-count-bold-cells1

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

doc-count-bold-cells2

Примечание: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) в пустую ячейку, см. снимок экрана:

doc-count-bold-cells3

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

doc-count-bold-cells4

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


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

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

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

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

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

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

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

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


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


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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (21)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
привет, использую excel 2013 Dutch с kutools 6.5, но не могу использовать макет для чтения. спросите, прежде чем кричать решить в этой версии ???
Этот комментарий был сведен к минимуму модератором на сайте
[quote]привет, использую excel 2013 Dutch с kutools 6.5, но не могу использовать макет для чтения. спросите, прежде чем кричать решить в этой версии ???Керстен[/quote] Здравствуйте! Пожалуйста, свяжитесь со мной по адресу jaychivo#extendoffice.ком. Пожалуйста, замените # на @. :-)
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ подсчета на основе цвета ячейки, если текст выделен жирным шрифтом?
Этот комментарий был сведен к минимуму модератором на сайте
ЭТО КРУТО !!!! Это сработало отлично !! Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Это работает отлично, за исключением того, что, похоже, мои десятичные разряды не добавляются, а добавляется только весь доллар. Если у вас есть исправление для этого, я был бы очень благодарен.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кэти. Используйте приведенный ниже код, так как сумма показывает десятичные разряды. Функция SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 Для каждой rCell в rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Function
Этот комментарий был сведен к минимуму модератором на сайте
Это работает удовольствие. У меня есть только одна проблема... кажется, что после запятой ничего не добавляется. Любая помощь будет принята с благодарностью.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо.. работает...
Этот комментарий был сведен к минимуму модератором на сайте
Я скопировал и вставил код в Excel, но получил #NAME? ошибка. Я включил макросы и использовал версию Excel 2010 (не знаю, изменит ли это что-нибудь). Кто-нибудь может помочь?!
Этот комментарий был сведен к минимуму модератором на сайте
[quote]Я скопировал и вставил код в Excel, но получил #NAME? ошибка. Я включил макросы и использовал версию Excel 2010 (не знаю, изменит ли это что-нибудь). Кто-нибудь может помочь?!Мэй[/quote] Вы должны следовать инструкции. В нем говорится: «Нажмите «Вставить»> «Модуль» и вставьте следующий код в окно модуля, и вы должны сделать именно это. Убедитесь, что вы вставляете код в окно модуля, а не в окно кода листа.
Этот комментарий был сведен к минимуму модератором на сайте
Я использую Excel для Mac 2011. Как я могу запустить код в своей системе? Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
RE: формула CountBold Эта формула не является динамической. Хотя это работает при первом проходе, если я изменяю выделенные жирным шрифтом ячейки, счетчики не обновляются, пока я снова не ввожу формулу. Какие-нибудь советы?
Этот комментарий был сведен к минимуму модератором на сайте
Да, это то же самое для меня, в остальном это прекрасно работает. Но если бы это можно было решить, чтобы он обновлял счетчик после отмены выбора каждой ячейки, как и другие базовые счетчики, это было бы идеально!
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемые ребята,
Формула не будет обновляться, если вы просто измените формат числовых ячеек.
Он обновляется только при изменении содержимого ячейки.
Этот комментарий был сведен к минимуму модератором на сайте
А если в ячейках числа и текст? надо просуммировать только ячейки с числовым жирным шрифтом.
Этот комментарий был сведен к минимуму модератором на сайте
Ma se metto in grassetto nuovecelle, la somma non si aggiorna !!!
Этот комментарий был сведен к минимуму модератором на сайте
Привет Карло,

Галд в помощь. После выделения жирным шрифтом новых ячеек сумма не будет обновляться автоматически. Но если дважды щелкнуть ячейку с формулой и нажать Enter, сумма обновится. Пожалуйста, попробуйте.

С уважением,
Мэнди
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Мэнди,
Спасибо за ответ,
Да, я знаю, что после двойного щелчка сумма будет повышаться.
Есть ли способ автоматически обновить сумму?

С уважением
Карло
Этот комментарий был сведен к минимуму модератором на сайте
Привет Карло,

Извините, что у меня нет решения для автоматического обновления суммы. Самый простой способ, который я могу придумать, - это нажать Ctrl + Alt + F9, чтобы пересчитать все листы во всех открытых книгах. Хорошего дня.

С уважением,
Мэнди
Этот комментарий был сведен к минимуму модератором на сайте
Я использую функцию и продолжаю получать #NAME? ошибка. Я использую Excel 365 и Windows11.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Энтони

Вы скопировали и вставили код в Модули of Окно Microsoft Visual Basic для приложений в вашем рабочем листе? После вставки кода вы должны ввести формулу по мере необходимости.

Или вы можете загрузить свой файл здесь, мы можем проверить, где проблема.

Спасибо!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL