Příspěvky uživatele
< návrat zpět
Dobrý den,
děkuji, že se mi snažíte pomoct ale nějak tomu nerozumím...
"Proč "mustr"? Do pomocného slouce napište kód barvy třeba zelená, oranžová, červená, ...
Raději zkratky, celé názvy se hůře vyplňují.
Pro lepší orientaci přidejte podmíněný formát, který kód (název, zkratku, ...) v pomocném sloupci převede na skutečnou barvu.
Vzorec viz výše. Ve vzorci z příkladu nahraďte hledanou hodnotu (1) za odkaz na buňku, ve které je skutečný kód."
...a šlo by to tedy vyřešit vzorcem? Mám ve sloupci hodnoty a dole součet jen tech buněk, které mají jen zelenou barvu, o řádek níž součet toho samého sloupce ale jen těch buněk, které jsou oranžové atd. V pomocném sloupci budou obsažené tyto barvy jako mustr.
Děkuju za odpověď. Nevím jak bych to jinak udělal než pomocí makra. Problém je, že funkce dokáží fungovat jen s číselnými hodnotami. Aspoň všechny nápovědy na netu k funkcím se tak tváří. Ale to je jen moje doměnka. Nevím, pomocí které funkce bych to měl udělat. Dokonce jsem zkoušel hit poslední doby. Nechal jsem si napsat makro od AI. Bylo super. Co tohle makro přepočítá během pár sekund (4000 řádek), to od AI vytěžovalo všech 12 jader a asi 10 sekund se nedalo s listem pracovat. Pokud by někdo věděl nějaké konkrétní elegantnější řešení, byl bych moc rád.
Díky
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)
Uživatelské menu
\nFormulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články