MS Excel

Téma: Výpočet hodnoty podle barvy buňky

Zaslal/a LiborL 28.8.2026 14:30

Ahoj všichni, potřeboval bych poradit. Na netu jsem si našel makro, které spočítá hodnoty v buňkach ve sloupci. Problém je, že někdo nejdřív napíše číslo a pak změní barvu buňky a někdo to udělá naopak. V tom prvním případě to excel nesečte, protože změna barvy buňky je definována uživatelem a excel to nebere. Exelem měnit barvy není v tomto případě možné. Je nějaká možnost, aby třeba po stisknutí tlačítka to excel znovu projel a vrátil správnou hodnotu? Nebo pojmout řešení nějak jinak? Nèjaký nápad?

Děkuju za pomoc Libor

Modul1:

' Function to sum cells in rRange that have the same background color as Cellcolor
Function SumColor(Cellcolor As Range, rRange As Range) As Double
Dim c As Range
Dim total As Double
Dim targetColor As Long

' Validate inputs
If Cellcolor Is Nothing Or rRange Is Nothing Then
SumColor = 0
Exit Function
End If

' Get the color index of the reference cell
targetColor = Cellcolor.Interior.Color

' Loop through each cell in the range
For Each c In rRange
' Check if the cell has the same background color
If c.Interior.Color = targetColor Then
' Ensure the cell contains a number before adding
If IsNumeric(c.Value) Then
total = total + c.Value
End If
End If
Next c

' Return the sum
SumColor = total
End Function

Funkce v Listu:
=SumColor($C$3841;QI2:QI3843)

Zaslat odpověď >

lubo(31.8.2026 1:23)#057703

Změna barvy v buňce není změna hodnoty => neaktivuje se přepočet listu.

Zajímavé je, že použití štětce přepočet spustí.

Tj. po změně barvy je nutné přepočíst list 'ctrl-shift-F9'

Nápad označit buňky barvou a pak sečíst hodnoty vypadá sice dobře, ale má své nevýhody.
1. V této podobě vyžaduje VBA
2. Snadno se vybere podobná barva, pak se složitě hledá chyba.
3. Makro je hodně pomalé, hodí se to jen na malá data
4. Je nutné zajistit přepočet listu.
c-f-f9 spustí přepočet všeho - v kombinaci s rychlostí makra a většho sešitu je to hodně otravné.
5. Obvykle jsem chtěl také některé barvy dočasně skrýt.

+ ještě něco, už si to nepamatuju.

Tak jsem přešel na pomocné sloupce s texty + podmíněné formátování.
- Barvy v pomocném sloupci se dají vybírat z menu (validace dat)
- Barvy lze snadno pomocí podmínky skrýt - přehlednější práce.
- sumace pomocí *.ifs funkcícitovat

Téma: Výpočet hodnoty podle barvy buňky

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje