Počet buněk s určitou barvou pomocí vzorce Vyřešeno

[MK_Vs]

DObrý den,

potřebuji určit počet buněk formátovaných určitnou barvou podmínečného formátování.

Použil jsem funkci:

Kód: Vybrat vše

Function ColorSummer(RangeToSum As Range, ColorToSum As Integer) As Double

Dim tmp As Double
tmp = 0
For Each cell In RangeToSum
 If cell.Interior.ColorIndex = ColorToSum Then tmp = tmp + 1
Next

ColorSummer = tmp
End Function
 Function ColorPicker(CellToPickColorFrom As Range) As Integer
      ColorPicker = CellToPickColorFrom.Interior.ColorIndex
 End Function

+ vzorec do buňky.

Odkaz na stránku se popisem zde http://answers.microsoft.com/cs-cz/office/forum/office_2003-excel/excel-jak-na-podm%C3%ADn%C4%9Bn%C3%BD-sou%C4%8Det/2b9ff7dd-4ff1-4cd7-8d90-bc80e5c6c89c

Potíž tohoto řešení je, že počítá pouze s formátem barvy, kterou vložím přímo do buňky, ne s podmíněným formátování.
Dále pak se tento vzorec automaticky neobnovuje při změně barvy některé z buněk. Pouze po vstoupení do buňky F2 a Enter.

Pracuji v Office 2010.
Prosím, jak zjisti pomocí funkce/makra počet buněk s odkazem na určitou barvou podmínečného formátování v daném rozsahu?

Děkuji.

[Reklama]

[Azuzula]

Zdravím,
na tohle bych spíš použila jednoduchou funkci COUNTIF na počítání přímo daných hodnot než zjišťování barev.
Pro větší než 100: =COUNTIF(D6:D44;">"&D4)
Pro menší než 50: =COUNTIF(D6:D44;"<"&E4)
Tak alespoň bude zajištěná funkce i v ostatních excelech a nepřestane vám to fungovat když náhodou změníte barvu podm. form.

[MK_Vs]

Dobrý den,

právě psaní delších vzorců jsem se chtěl vyhnout. Zde byl uveden zjednodušený příklad. Vstupvat zde budou roletance ± plus některé další parametry, které do daného.

Barva odkazuje na buňku, ve které jedfinována. Změna v této buňce se promítá do všech podmínek a vzorců, kde se sní počítá.

Nebude-li však jinak možné, máte pravdu, že rozumné je pracovat s funkcemi, které jsou podporovány i v ostatních verzích.

[guest]

Vykašlete se na barvy, vykašlete se na barvy, a ještě jednou - vykašlete se na barvy! Stačí třikrát?

Rozpoznávání - barvoslepost a jiné vady zraku, interpretace na různých zařízeních a vnímání okem
Tisk - černobílé laserovky a kopírky
Zpracování - bez VBA nemožné ve starších Excelech, omezené v novodobých Excelech

Taky už jste si přišel na to, že Excel kašle na to, jestli je buňka obarvená přímo nebo podmíněným formátem a že vám nestačí sáhnout si ve VBA po vlastnosti řekněme Interior.Color. Navíc se změnil způsob práce s barevnou paletou, potažmo motivy s příchodem Excelu 2007.

Zjišťování barvy coby výsledku podmíněného formátování ve VBA je malé peklo - musíte jít podmínku po podmínce, testovat ji a v případě splnění si zjistit barvu. Tohle sice před lety už udělal třeba Chip Pearson, ale už je třeba dávno pryč doba maximálně třech podmínek na buňce...

[MK_Vs]

Dobrý den, děkuji za vysvětlení.

Pravda, ve vzorcích pro podmíknku se snažím dodržet maximálně 3 podmínky, ale podle toho pak vzorec vypadá. Funkce vnořená do další a další ...

Budu řešit běžně dostupvými vzorci jako doposud.

[guest]

Filtrujte a třiďte na základě něčeho skutečného, i kdyby to bylo jen písmeno "x" ve vlastním sloupci.