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

Як підсумувати / підрахувати жирні цифри в діапазоні комірок у 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (22)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
привіт, використовую голландський Excel 2013 з kutools 6.5, але не можу використовувати макет для читання. запитати, перш ніж кричати вирішити в цій версії ???
Цей коментар був мінімізований модератором на сайті
[quote]привіт, використовую голландський Excel 2013 з kutools 6.5, але не можу використовувати макет для читання. запитати, перш ніж кричати вирішити в цій версії ???За Керстеном[/quote] Привіт, будь ласка, зв'яжіться зі мною на jaychivo#extendoffice.com. Будь ласка, замініть # на @. :-)
Цей коментар був мінімізований модератором на сайті
Чи є спосіб підрахунку на основі кольору клітинки, якщо текст виділено жирним шрифтом?
Цей коментар був мінімізований модератором на сайті
ЦЕ КРУТО !!!! Це спрацювало ідеально!! Дякую
Цей коментар був мінімізований модератором на сайті
Це працює ідеально, за винятком того, що, здається, не додає мої десяткові знаки, а лише додає весь долар. Якщо у вас є рішення для цього, я буду дуже вдячний.
Цей коментар був мінімізований модератором на сайті
Привіт, Кеті! Використовуйте наведений нижче код, оскільки сума показує десяткові знаки. Функція SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 Для кожної rCell In rng Якщо rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Функція
Цей коментар був мінімізований модератором на сайті
Це працює як задоволення. У мене є лише одна проблема... здається, що після десяткової коми нічого не додається. Будемо вдячні за будь-яку допомогу.
Цей коментар був мінімізований модератором на сайті
Дякую.. працює...
Цей коментар був мінімізований модератором на сайті
Я скопіював та вставив код в Excel, але отримав #NAME? помилка. Я переконався, що ввімкнув макроси та використав версію excel 2010 (не знаю, чи це щось змінить). Хтось може допомогти?!
Цей коментар був мінімізований модератором на сайті
[quote]Я скопіював та вставив код в Excel, але отримав #NAME? помилка. Я переконався, що ввімкнув макроси та використав версію excel 2010 (не знаю, чи це щось змінить). Хтось може допомогти?!Від Мей[/quote] Ви повинні дотримуватися інструкції. Там написано: «Натисніть «Вставити» > «Модуль» і вставте наступний код у вікно модуля», і ви повинні зробити саме це. Переконайтеся, що ви вставили код у вікно модуля, а не у вікно коду аркуша.
Цей коментар був мінімізований модератором на сайті
Я використовую excel для mac 2011. Як я можу запустити код у моїй системі? Спасибі!
Цей коментар був мінімізований модератором на сайті
RE: Формула CountBold Ця формула не є динамічною. Хоча це працює на першому проході, якщо я зміню виділені жирним шрифтом клітинки, лічильники не оновлюються, якщо я знову не введу формулу. Будь-які поради?
Цей коментар був мінімізований модератором на сайті
Так, це те саме для мене, інакше це чудово працює. Але якби це можна було вирішити, щоб він оновлював рахунок після кожного скасування виділення, як і інші основні підрахунки, було б ідеально!
Цей коментар був мінімізований модератором на сайті
Шановні хлопці,
Формула не оновиться, якщо ви просто зміните формат числових комірок.
Він оновлюється лише тоді, коли ви змінюєте вміст осередку.
Цей коментар був мінімізований модератором на сайті
А если в ячейках числа і текст? треба просуммувати тільки ячейки з числами жирним шрифтом.
Цей коментар був мінімізований модератором на сайті
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
Цей коментар був мінімізований модератором на сайті
Привіт Карло,

Галд на допомогу. Після виділення жирним шрифтом нових клітинок сума не оновлюватиметься автоматично. Але коли ви двічі клацнете комірку формули, а потім натиснете Enter, сума оновиться. Будь ласка, спробуйте.

З повагою,
Менді
Цей коментар був мінімізований модератором на сайті
Привіт Менді,
Дякуємо за Ваш відповідь,
Так, я знаю, що після подвійного клацання сума буде змінена.
Чи є спосіб автоматично збільшити суму?

привіт
Карло
Цей коментар був мінімізований модератором на сайті
Привіт Карло,

Вибачте, що я не маю рішення для автоматичного оновлення суми. Найпростіший спосіб, який я можу придумати, це натиснути Ctrl + Alt + F9, щоб перерахувати всі аркуші у всіх відкритих книгах. Гарного дня.

З повагою,
Менді
Цей коментар був мінімізований модератором на сайті
Я користуюся цією функцією та постійно отримую #NAME? помилка. Я використовую Excel 365 і Windows11.
Цей коментар був мінімізований модератором на сайті
Привіт, Ентоні

Ви скопіювали та вставили код у Модулі of Вікно Microsoft Visual Basic для програм у вашому робочому аркуші? Після вставлення коду вам слід ввести потрібну вам формулу.

Або ви можете завантажити свій файл тут, ми зможемо перевірити, де проблема.

Дякую!
Цей коментар був мінімізований модератором на сайті
Привіт Ентоні,
Я боровся з тією ж проблемою. Для мене рішення виявилося дуже простим. Я помітив, що в списку було 4 модулі. Я видалив їх усі, а потім почав заново, дотримуючись наведених вище інструкцій. Тепер працює ідеально.
There are no comments posted here yet

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL