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

Jak počítat / sčítat buňky podle barev s podmíněným formátováním v aplikaci Excel?

V aplikaci Excel můžete vybarvit některé buňky pomocí podmíněného formátování. Tento výukový program vám nyní řekne několik praktických a snadných metod, jak rychle spočítat nebo sečíst buňky podle barvy s podmíněným formátováním v aplikaci Excel.

Počítání buněk podle barvy písma a pozadí podle VBA

Počítání / součet buněk podle barvy písma s podmíněným formátováním programem Kutools pro Excel dobrý nápad3      hrát

Počítání / součet buněk podle barvy pozadí s podmíněným formátováním programem Kutools pro Excel dobrý nápad3      hrát


šipka modrá pravá bublina Počítání buněk podle písma a barvy pozadí podle VBA

V aplikaci Excel může pouze kód VBA rychle spočítat buňky na základě konkrétního písma a barvy pozadí.

1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul a zkopírujte a vložte pod kód VBA do praskání Modul okno.

VBA: Počítání buněk na základě písma a barvy pozadí.

Sub DisplayFormatCount()
	'Updateby20150305
	Dim Rng As Range
	Dim CountRange As Range
	Dim ColorRange As Range
	Dim xBackColor As Long
	Dim xFontColor As Long
	On Error Resume Next
	xTitleId       = "KutoolsforExcel"
	Set CountRange = Application.Selection
	Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
	Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
	Set ColorRange = ColorRange.Range("A1")
	xReturn        = 0
	For Each Rng In CountRange
		qqq           = Rng.Value
		xxx           = Rng.DisplayFormat.Interior.Color
		If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
			xBackColor   = xBackColor + 1
		End If
		If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
			xFontColor = xFontColor + 1
		End If
	Next
	MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub

3. cvaknutí Běh nebo stiskněte tlačítko F5 klíč ke spuštění kódu, poté v rozbalovacím dialogovém okně vyberte požadovaný rozsah. Viz snímek obrazovky:
doc-count-by-conditional-color-1

4. cvaknutí OK, poté vyberte buňku, jejíž písmo a barvu pozadí chcete buňky spočítat. Viz snímek obrazovky:

doc-count-by-conditional-color-2

5. cvaknutí OK. Poté se zobrazí dialogové okno, které vám řekne, kolik buněk má stejnou barvu pozadí a barvu písma s vybranou buňkou v rozsahu.

doc-count-by-conditional-color-3


šipka modrá pravá bublina Počítání / součet buněk podle barvy písma s podmíněným formátováním programem Kutools pro Excel

V aplikaci Excel nemůžete počítat nebo sčítat buňky podle barvy písma pouze s podmíněným formátováním. Existuje však šikovný doplněk s názvem Kutools pro Excel které vám mohou pomoci rychle vyřešit tento problém Počítat podle barvy vlastnost.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte rozsah, který chcete spočítat, nebo sečtěte buňky podle barvy písma s podmíněným formátováním, a poté klikněte Kutools Plus> Počítat podle barvy. Viz snímek obrazovky:

doc-count-by-conditional-color-4

2. Pak v Počítat podle barvy , vyberte Podmíněné formátování pod Barevná metoda seznam a Písmo pod Typ barvy seznam. Poté můžete v dialogu zobrazit výsledek počítání a sčítání. Viz snímek obrazovky:

doc-count-by-conditional-color-5

Poznámka: Chcete-li výsledek výpočtu odeslat jako zprávu, můžete kliknout Generovat zprávu in Počítat podle barvy dialog, pak bude sestava vytvořena v novém sešitu. Viz snímek obrazovky:

doc-count-by-conditional-color-6      doc-count-by-conditional-color-7


Počítání / součet buněk podle barvy pozadí s podmíněným formátováním programem Kutools pro Excel

Pokud chcete počítat nebo sečíst buňky podle barvy pozadí s podmíněným formátováním, můžete také použít Počítat podle barvy užitečnost Kutools pro Excel.

1. Vyberte rozsah, který chcete spočítat nebo sečíst buňky podle barvy pozadí s podmíněným formátováním, a poté klikněte Kutools Plus > Počítat podle barvy.

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

2. Pak v Počítat podle barvy , vyberte Podmíněné formátování pod Barevná metoda seznam a Pozadí pod Typ barvy seznam. Poté můžete v dialogu zobrazit výsledek počítání a sčítání. Viz snímek obrazovky:

doc-count-by-conditional-color-8

Poznámka: Chcete-li výsledek výpočtu odeslat jako zprávu, můžete kliknout Generovat zprávu v Počítat podle barvy dialog, pak bude sestava vytvořena v novém sešitu. Viz snímek obrazovky:

doc-count-by-conditional-color-9

Kliknutím sem zobrazíte další informace o počtu podle barev.

Spropitné.S Počítat podle barvy můžete také počítat/sčítat/průměrovat buňky podle barvy pozadí nebo barvy písma pouze se standardním formátováním nebo se standardním i podmíněným formátováním. Pokud chcete použít Count by Color bez omezení v 30 dnů, prosím stáhněte si a získejte bezplatnou zkušební verzi hned teď.


šipka modrá pravá bublina Vypočítejte buňky podle barvy písma nebo barvy pozadí



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 (7)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Dovolte mi, abych vám poblahopřál k nejsnáze srozumitelnému a dobře napsanému programu VBA, který dokáže provést tak jednoduchý úkol – tj. spočítat počet buněk se specifickou barvou odvozenou z podmíněného formátování. Překonává to příšerný program od Pearsona a ten jeho ani nefunguje, alespoň v Excelu 2013. Nefungují ani jiné předpokládané počítací programy, které jsem zkoušel. Tvoje je jediná!! Tohle fungovalo perfektně. Děkuji, děkuji, děkuji. Nejlepší přání k svátku, Mort v Dallas
Tento komentář byl moderátorem webu minimalizován
hi


laskavě pošlete výše uvedený kód VBA stejný kód, potřebuji prosím pomoc.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Jak upravím kód pro buňku obsahující podmíněné formátování? Protože to počítá pozadí jako "prázdné".


Díky.
Tento komentář byl moderátorem webu minimalizován
Omlouvám se, nemám ponětí o kódu VBA.
Tento komentář byl moderátorem webu minimalizován
Ahoj.

VBA đếm ô màu rất seno, tuy nhiên bạn có thể sửa giúp mình để kết quả không hiện thành mshinh box msg thêm cả hàm suma, průměr nữa thì càng tốt :D . Mail của mình là tranvanlong.dne@gmail.com. Mình cám ơn.
Tento komentář byl moderátorem webu minimalizován
Mohl byste mě prosím naučit kódy VBA Chtěl bych se naučit VBA pomocí listu Excel
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

Toto je skvělý kus VBA a funguje perfektně. Jste schopni upravit tento kód tak, aby z něj byla funkce a poté byl použit jako vzorec?

např
=DisplayFormatCount(A14:E14,A2,False) pro počítání barvy pozadí (Count Range, Color Match Cell, type)

=DisplayFormatCount(C29:D29,A2,True) pro počítání barvy písma

Chtěl bych vám něco takového pro vstupní formulář mnoha tabulek a ověřovacích polí, které jsou povinné. Pak bych byl schopen spočítat, kolik polí nebylo správně vyplněno.


Na zdraví
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