regain
30.03.13,14:02
Ahoj.
Potreboval by som radu.Viem ze sa to nejak da,no neviem ako. Chcel by som zadat podmienku na sucet udajov v konkretnych poliach pokial je splnena podmienka. (konkretne ak by sa dalo podla farby pola-cervene,alebo zelene-to by som si oznacil sam)
Fuuuha,no neviem ci mi niekto poradi,o ak sa niekto najde,tak vopred dakujem ;)
Potreboval by som radu.Viem ze sa to nejak da,no neviem ako. Chcel by som zadat podmienku na sucet udajov v konkretnych poliach pokial je splnena podmienka. (konkretne ak by sa dalo podla farby pola-cervene,alebo zelene-to by som si oznacil sam)
Fuuuha,no neviem ci mi niekto poradi,o ak sa niekto najde,tak vopred dakujem ;)
PaloPa
31.03.13,08:50
Neexistuje žiadna vstavaná funkcia na súčet podľa farby. Ale je možné použiť UDF (user defined function), ktorá prebehne zadaný rozsah a vráti súčet podľa farby.
UDF (User Defined funkcie) – sú vlastne makrá, t.j. VBA kód:
Alt + F11 – zobraziť VBE prostredie
Vložiť modul a nižšie uvedenú funkciu
Function ColorSum(varRange As Range, varColor As Range) As Variant
Application.Volatile
Dim varTemp As Variant, cell As Range
ColorSum = 0
For Each cell In varRange
If cell.Interior.ColorIndex = varColor.Interior.ColorIndex Then
If IsNumeric(cell.Value) Then ColorSum = ColorSum + cell.Value
End If
Next
End Function
!!!: treba mať povolené makrá.
P.
UDF (User Defined funkcie) – sú vlastne makrá, t.j. VBA kód:
Alt + F11 – zobraziť VBE prostredie
Vložiť modul a nižšie uvedenú funkciu
Function ColorSum(varRange As Range, varColor As Range) As Variant
Application.Volatile
Dim varTemp As Variant, cell As Range
ColorSum = 0
For Each cell In varRange
If cell.Interior.ColorIndex = varColor.Interior.ColorIndex Then
If IsNumeric(cell.Value) Then ColorSum = ColorSum + cell.Value
End If
Next
End Function
!!!: treba mať povolené makrá.
P.