Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

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

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

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


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

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

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

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

Код VBA: підраховуйте жирні цифри в діапазоні комірок

Function CountBold(WorkRng As Range)
'Update 20131202
Dim Rng As Range
Dim xCount As Long
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 20131202
Dim Rng As Range
Dim xSum As Long
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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Djn · 3 years ago
    А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
  • To post as a guest, your comment is unpublished.
    Kal · 5 years ago
    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?
    • To post as a guest, your comment is unpublished.
      Daniel · 5 years ago
      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!
      • To post as a guest, your comment is unpublished.
        crystal · 4 years ago
        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.
  • To post as a guest, your comment is unpublished.
    Julia · 7 years ago
    I'm using excel for mac 2011. How can I run the code on my system? thanks!
  • To post as a guest, your comment is unpublished.
    Maey · 7 years ago
    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?!
    • To post as a guest, your comment is unpublished.
      Vadim · 7 years ago
      [quote name="Maey"]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?![/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.
  • To post as a guest, your comment is unpublished.
    Anil · 7 years ago
    Thank you..

    it's working...
  • To post as a guest, your comment is unpublished.
    Katie · 7 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Katie · 7 years ago
    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.
    • To post as a guest, your comment is unpublished.
      Taz · 7 years ago
      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
  • To post as a guest, your comment is unpublished.
    Peter · 7 years ago
    THIS IS AWESOME !!!! It worked perfectly !! Thank you
  • To post as a guest, your comment is unpublished.
    kersten · 8 years ago
    hello,
    using excel 2013 Dutch with kutools 6.5 but can't sill using reading layout.
    ask before shout be solved in this version ???
    • To post as a guest, your comment is unpublished.
      Admin-jay · 8 years ago
      [quote name="kersten"]hello,
      using excel 2013 Dutch with kutools 6.5 but can't sill using reading layout.
      ask before shout be solved in this version ???[/quote]

      Hello, Please contact me at jaychivo#extendoffice.com. Please replace # with @.

      :-)
      • To post as a guest, your comment is unpublished.
        Trenton · 7 years ago
        Is there a way to count based on cell color if text is bolded?