Přejít k hlavnímu obsahu

Jak sčítat / počítat tučná čísla v řadě buněk v aplikaci Excel?

Pokud máte rozsah dat, který obsahuje některá tučná čísla v listu, a nyní chcete sečíst nebo spočítat pouze tučné buňky, můžete je samozřejmě sečíst po jednom ručně, ale bude to časově náročné. Jak můžete snadno a rychle sčítat nebo počítat pouze tučné buňky v aplikaci Excel?

Počítejte tučná čísla v rozsahu pomocí funkce definované uživatelem (VBA a vzorec)
Součet tučných čísel v rozsahu s funkcí definovanou uživatelem (VBA a vzorec)
Několik kliknutí k počítání a součtu tučných buněk v rozsahu pomocí Kutools pro Excel


Počítejte tučná čísla v rozsahu pomocí funkce definované uživatelem

Následující Uživatelem definovaná funkce vám pomůže rychle získat počet tučných buněk. Udělejte prosím toto:

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Počítejte tučná čísla v řadě buněk

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. Poté uložte tento kód a zadejte tento vzorec = CountBold (A1: C9) do prázdné buňky, viz screenshot:

doc-count-bold-cells1

4. Pak stiskněte tlačítko vstoupit a spočítáte tučné buňky v rozsahu A1: C9.

doc-count-bold-cells2

Poznámka:A1: C9 ve vzorci označuje rozsah, ve kterém chcete funkci použít k počítání tučných buněk, můžete ji podle potřeby změnit.


Shrňte tučná čísla v rozsahu pomocí funkce definované uživatelem

A pokud chcete v datovém rozsahu shrnout pouze tučná čísla, můžu pro vás vytvořit také uživatelsky definovanou funkci.

1. Podržte stisknuté tlačítko ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Součet tučných čísel v řadě buněk

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. Poté uložte tento kód a zadejte tento vzorec = sumbold (A1: C9) do prázdné buňky, viz screenshot:

doc-count-bold-cells3

4. A pak stiskněte vstoupit klíč, všechna tučná čísla v rozsahu A1: C9 byla sečtena. Viz screenshot:

doc-count-bold-cells4

Poznámka:A1: C9 ve vzorci označuje rozsah, ve kterém chcete funkci použít k součtu tučných buněk, můžete jej podle potřeby změnit.


Několik kliknutí k počítání a součtu tučných buněk v rozsahu pomocí Kutools pro Excel

You můžete snadno spočítat nebo sečíst všechny tučné buňky v rozsahu několika kliknutími bez manipulace s komplikovaným kódem VBA a zapamatování vzorců.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Chcete-li počítat tučné buňky, vyberte prázdnou buňku pro vyhledání výsledku a poté klikněte Kutools > Funkce Kutools > Statistické a matematické > COUNTBYFONTBOLD.

Chcete-li sečíst tučné buňky, klikněte na Kutools > Funkce Kutools > Statistické a matematické > SUMBYFONTBOLD. Viz snímek obrazovky:

2. Ve Fargumenty pomazání V dialogovém okně zadejte do pole Reference rozsah s tučnými buňkami, které je třeba spočítat nebo sečíst, a poté klikněte na OK .

Nyní se počítání nebo sčítání všech tučných buněk ve specifikovaném rozsahu okamžitě naplní do vybrané buňky. Viz screenshot:

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Udržujte konstantní odkaz na buňku vzorce pomocí programu Kutools pro Excel


Související články:

Jak identifikovat a vybrat všechny tučné buňky nebo text v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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