GG: 1706185
lub komórka :)

1. Kiedyś znalazłem takie coś... , Dexter 30/01/09 07:30
   I używam do dziś.
   
   Jednej komórce, załóżmy B1, nadajesz taki kolor jaki ma Ci zliczać.
   W komórkach A1:A100 masz liczby, niektóre z kolorkiem takim jak B1.
   
   
   
   Wciskasz ALT+F11, z menu Wstaw-->Moduł i wklejasz:
   
   
   
   
   Function SumColor(rColor As Range, rSumRange As Range)
   
   Dim rCell As Range
   
   Dim iCol As Integer
   
   Dim vResult
   
   iCol = rColor.Interior.ColorIndex
   
   For Each rCell In rSumRange
   
   If rCell.Interior.ColorIndex = iCol Then
   
   vResult = WorksheetFunction.Sum(rCell) + vResult
   
   End If
   
   Next rCell
   
   SumColor = vResult
   
   End Function
   
   
   
   
   Zamykasz VBasic'a.
   
   Teraz w komórce, w której ma być suma BEZ ZIELONYCH wpisujesz:
   =SUMA(A1:A100)-sumcolor(B1;A1:A100)
   
   
   Minus tego, że po zmianie kolorów komórek trzeba ręcznie przeliczyć arkusz (mi nie przelicza).

   Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
   Odpowiedzi oleję.
   THX!

   1. troche krocej , Dhoine 30/01/09 09:19
      i prosciej:
      
      Takze wstawiamy modul, tylko taki:
      
      Function Kolor(Komorka As Range)
      Application.Volatile
      Kolor = Komorka.Interior.ColorIndex
      End Function
      
      Wtedy w dowolnej komorce piszemy:
      =KOLOR(A1)
      i ta formula zwraca nam numer kolor tla komorki. Majac juz numery - mozemy dowolnie sortowac, sumowac, jezeli'owac itd.