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

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 zkušební verzi (30-den) této utility, 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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (21)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
ahoj, používám excel 2013 holandštinu s kutools 6.5, ale neumím číst pomocí rozložení čtení. zeptat se před výkřikem být vyřešen v této verzi ???
Tento komentář byl moderátorem webu minimalizován
[quote] ahoj, používám excel 2013 holandštinu s kutools 6.5, ale neumím parapet pomocí rozložení pro čtení. zeptat se před výkřikem být vyřešen v této verzi ???Od Kerstena[/quote] Dobrý den, kontaktujte mě prosím na jaychivo#extendoffice.com. Nahraďte # znakem @. :-)
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak počítat na základě barvy buňky, pokud je text tučně?
Tento komentář byl moderátorem webu minimalizován
TO JE ÚŽASNÉ!!!! Fungovalo to perfektně!! Děkuji
Tento komentář byl moderátorem webu minimalizován
Funguje to perfektně, až na to, že to nepřidává moje desetinná místa, ale přidává celý dolar. Pokud byste to měli opravit, byl bych vám velmi vděčný.
Tento komentář byl moderátorem webu minimalizován
Ahoj Katie, použijte níže uvedený kód, protože součet ukazuje desetinná místa. Funkce SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 Pro každý rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Další konec Funkce
Tento komentář byl moderátorem webu minimalizován
Tohle funguje jako lahůdka. Mám jen jeden problém...zdá se, že za desetinnou čárkou nic nepřidává. Jakákoli pomoc by byla velmi oceněna.
Tento komentář byl moderátorem webu minimalizován
Děkuji.. už to funguje...
Tento komentář byl moderátorem webu minimalizován
Zkopíroval jsem a vložil kód do excelu, ale dostal jsem #NAME? chyba. Ujistil jsem se, že povolím makra a používám verzi Excel 2010 (nevím, jestli to něco změní). Může někdo prosím pomoci?!
Tento komentář byl moderátorem webu minimalizován
[quote]Zkopíroval jsem a vložil kód do excelu, ale dostal jsem #NAME? chyba. Ujistil jsem se, že povolím makra a používám verzi Excel 2010 (nevím, jestli to něco změní). Může někdo prosím pomoci?!Od Maey[/quote] Musíte postupovat podle pokynů. Říká: "Klikněte na Vložit > Modul a vložte následující kód do okna Modul" a musíte to udělat přesně tak. Ujistěte se, že jste kód vložili do okna modulu, nikoli do okna s kódem listu.
Tento komentář byl moderátorem webu minimalizován
Používám excel pro mac 2011. Jak mohu spustit kód ve svém systému? dík!
Tento komentář byl moderátorem webu minimalizován
RE: Vzorec CountBold Tento vzorec se nezdá být dynamický. I když to funguje při prvním průchodu, pokud změním tučné buňky, čítače se neaktualizují, dokud znovu nezadám vzorec. Nějaké tipy?
Tento komentář byl moderátorem webu minimalizován
Ano, u mě je to stejné, jinak to funguje skvěle. Ale pokud by se to dalo vyřešit, aby se obnovil počet po každém zrušení výběru buňky jako ostatní základní počty, bylo by to perfektní!
Tento komentář byl moderátorem webu minimalizován
Drahí kluci,
Vzorec se neaktualizuje, pokud pouze změníte formát číselných buněk.
Aktualizuje se pouze tehdy, když změníte obsah buňky.
Tento komentář byl moderátorem webu minimalizován
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
Tento komentář byl moderátorem webu minimalizován
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
Tento komentář byl moderátorem webu minimalizován
ahoj carlo,

Radost pomoci. Po označení nových buněk tučným písmem se součet automaticky neaktualizuje. Ale když dvakrát kliknete na buňku vzorce a poté stisknete Enter, součet se aktualizuje. Zkuste to prosím.

S pozdravem,
Mandy
Tento komentář byl moderátorem webu minimalizován
Ahoj Mandy,
děkuji za Vaši odpověď,
Ano, vím, že po dvojitém kliknutí se součet uograduje.
Existuje nějaký způsob, jak automaticky upgradovat částku?

Pozdravy
Carlo
Tento komentář byl moderátorem webu minimalizován
ahoj carlo,

Je mi líto, že nemám řešení pro automatickou aktualizaci sumy. Nejjednodušší způsob, který mě napadá, je stisknout Ctrl + Alt + F9 a přepočítat všechny listy ve všech otevřených sešitech. Hezký den.

S pozdravem,
Mandy
Tento komentář byl moderátorem webu minimalizován
Používám funkci a stále dostávám #JMÉNO? chyba. Používám Excel 365 a Windows 11.
Tento komentář byl moderátorem webu minimalizován
Ahoj, Anthony

Zkopírovali jste a vložili kód do Modul of Okno Microsoft Visual Basic pro aplikace ve vašem pracovním listu? Po vložení kódu byste měli zadat vzorec, jak potřebujete.

Nebo můžete nahrát svůj soubor sem, můžeme zkontrolovat, kde je problém.

Děkuji!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL