Příspěvky uživatele
< návrat zpět
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