Перейти до основного матеріалу

Як підсумувати / підрахувати жирні цифри в діапазоні комірок у Excel?

Якщо у вас є діапазон даних, який містить кілька жирних цифр на аркуші, і тепер ви хочете підсумувати або підрахувати лише жирні комірки, звичайно, ви можете складати їх по одному вручну, але це забирає багато часу. Як ви могли підсумувати або підрахувати лише жирні клітинки в Excel простим і швидким способом?

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


Підраховуйте жирні цифри в діапазоні за допомогою функції користувача

Наступні Визначена користувачем функція допоможе швидко отримати кількість жирних комірок. Будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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. Потім збережіть цей код і введіть цю формулу = CountBold (A1: C9) в порожню комірку, див. знімок екрана:

doc-count-bold-cells1

4. Потім натисніть Що натомість? Створіть віртуальну версію себе у клавішу, і ви порахуєте жирні клітинки в діапазоні A1: C9.

doc-count-bold-cells2

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


Сумуйте жирні цифри в діапазоні за допомогою функції, визначеної користувачем

І якщо ви хочете підсумувати лише жирні цифри в діапазоні даних, я також можу створити призначену користувачем функцію для її вирішення.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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. Потім збережіть цей код і введіть цю формулу = сумний (A1: C9) в порожню комірку, див. знімок екрана:

doc-count-bold-cells3

4. А потім натисніть Що натомість? Створіть віртуальну версію себе у клавіші, усі жирні цифри в діапазоні A1: C9 були додані. Дивіться знімок екрана:

doc-count-bold-cells4

Примітка:A1: C9 у формулі вказує діапазон, який ви хочете використовувати для підсумовування жирних комірок, ви можете змінити його за вашими потребами.


Кілька клацань, щоб підрахувати та підсумувати жирним шрифтом клітинки в діапазоні за допомогою Kutools для Excel

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

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

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

А для підсумовування жирних комірок натисніть Кутулс > Функції Kutools > Статистика та математика > SUMBYFONTBOLD. Дивіться знімок екрана:

2. У Fаргументи ункції у діалоговому вікні вкажіть діапазон із напівжирними клітинками, які потрібно підрахувати або підсумувати у полі Довідка, а потім клацніть на OK кнопки.

Тепер підрахунок або підсумовування всіх жирних комірок у вказаному діапазоні негайно заповнюються у вибраній комірці. Дивіться знімок екрана:

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Зберігайте посилання на клітинку формули постійним за допомогою Kutools для Excel


Статті по темі:

Як визначити та виділити всі жирні комірки або текст у Excel?

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello Anthony,
I was struggling with the same problem. For me, the solution ended up being very simple. I noticed I had 4 Modules listed. I removed all of them and then started over with the above instructions. Now it works perfectly.
This comment was minimized by the moderator on the site
I use the function and keep getting the #NAME? error. I am using Excel 365 and Windows11.
This comment was minimized by the moderator on the site
Hello, Anthony

Have you copied and pasted the code into the Module of Microsoft Visual Basic for Applications window in your worksheet? Afetr pasting the code, then, you should enter the formula as you need.

Or you can upload your file here, we can check where the problem is.

Thank you!
This comment was minimized by the moderator on the site
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
This comment was minimized by the moderator on the site
Hello Carlo,

Gald to help. After you bold new cells, the sum won't update automatically. But when you double-click the formula cell, then press Enter, the sum will update. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hi Mandy,
thanks for your reply,
Yes I know that after double click the sum will uograde.
Is there any way to upgrade automatically the sum ?

Regards
Carlo
This comment was minimized by the moderator on the site
Hello Carlo,

Sorry that I don't have the solution for automatically upgrading the sum. The easiest way I can think of is to press Ctrl + Alt + F9 to recalculate all worksheets in all open workbooks. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
This comment was minimized by the moderator on the site
RE: CountBold formula This formula does not appear to be dynamic. While it works at first pass, if i change the bolded cells the counters do not update unless i re-enter the formula again. Any tips?
This comment was minimized by the moderator on the site
Yea this is the same for me, otherwise it works great. But if this could be solved so it refreshes the count after each cell deselect like other basic counts it would be perfect!
This comment was minimized by the moderator on the site
Dear guys,
The formula won't update if you just change the format of the number cells.
It updates only when you change the cell content.
This comment was minimized by the moderator on the site
I'm using excel for mac 2011. How can I run the code on my system? thanks!
This comment was minimized by the moderator on the site
I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!
This comment was minimized by the moderator on the site
[quote]I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!By Maey[/quote] You have to follow the instruction. It says: "Click Insert > Module, and paste the following code in the Module Window", and you have to do exactly so. Make sure you paste the code in the Module Window, not in the Sheet code Window.
This comment was minimized by the moderator on the site
Thank you.. it's working...
This comment was minimized by the moderator on the site
This works a treat. I only have one issue...it doesn't seem to be adding anything after a decimal point. Any help would be greatly appreciated.
This comment was minimized by the moderator on the site
This works perfectly except it doesn't seem to add my decimal places, only adds the whole dollar. If you have a fix for this I would be very grateful.
This comment was minimized by the moderator on the site
Hi Katie, Use the below code, as the sum shows decimal places. Function SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 For Each rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations