Excel - jeden problem

Cześć
Ktoś kto dobrze ogarnia excela mógłby mi pomóc w ogarnięciu pewnego problemu ? Mam tabelę i jej poszczególne komórki wypełnione trzema różnymi kolorami. Chciałbym jakoś pozliczać ilość komórek wypełnionych danym kolorem tak by potem utworzyć z tego wykres, bez używania makr itd. Czy to możliwe ? Z tego co się zorientowałem nie ma na to żadnej formuły i trzeba się bawić w VB ale może jednak ktoś zna łatwiejszy sposób ?
Dzięki


edit :
Dobra chyba ogarnąłem z VB ale kolejny problem to jak sprawdzić indeks koloru ?

http://office.microsoft.com/pl-pl/ex...#_Toc246836973

Ale to jest sortowanie a nie zliczanie, jak posortuję tę tabelę to wszystko będzie źłe bo kolory odpowiadają danej osobie a jest ich trochę więc kolory muszą zostać na swoim miejscu i chcę jedynie policzyć całościowo ilość danych kolorów w całej tabeli.

Zastosowałem takie coś :

Kod:

---

Function LiczKolory(zakres As Range, kolor As Integer)
For Each kom In zakres
  If kom.Interior.ColorIndex = kolor Then
    LiczKolory = LiczKolory + 1
  End If
Next
End Function

---

ale nie mam indeksów kolorów ;d

Cytuj:

---

udarr napisał

Ale to jest sortowanie a nie zliczanie, jak posortuję tę tabelę to wszystko będzie źłe bo kolory odpowiadają danej osobie a jest ich trochę więc kolory muszą zostać na swoim miejscu i chcę jedynie policzyć całościowo ilość danych kolorów w całej tabeli.

Zastosowałem takie coś :

Kod:

---

Function LiczKolory(zakres As Range, kolor As Integer)
For Each kom In zakres
  If kom.Interior.ColorIndex = kolor Then
    LiczKolory = LiczKolory + 1
  End If
Next
End Function

---

ale nie mam indeksów kolorów ;d

---

Wlasnie mialem to wyslac, pojebao mi sie.
Znalazlem cos takiego
http://www.specjalistawexcelu.pl/fun...nienia-komorki

Ewentualnie zapoznaj sie z tym http://www.elektroda.pl/rtvforum/topic1681130.html ten sam problem.

I

Kod:

---

oczywiście że można zrobić tak jak chcesz. Wszystko czego potrzebujesz to jednej króciutkiej funkcji w vba, która zwróci numer koloru tła wskazanej komórki:

 Function kolor(adres As Range) As Long
 kolor = adres.Interior.Color
 End Function

 (jak zdefiniować w excelu taką nową funkcję? Alt+F11 wklejasz powyższą funkcję i zapisujesz)

 Teraz powinieneś sobie dla przeżystości zrobić słownik, listę kolorów z odpowiadającymi im Twoimi numerkami, tzn. pokoloruj sobie kolejno komórki powiedzmy h1:h6 na żółto, zielono, niebiesko, czerwono, pomarańczowo, fioletowo. W komórkę h1 wpisz formułę "=kolor(H1)" i przekopiuj ją na wszystkie kolorowe komórki (ctrl+C na h1 i zaznaczasz h1:h6 edycja->wklej_specjalnie->formuły). Teraz w i1:i6 poindeksuj sobie kolory wg. swojego uznania, tzn. przy żółtej komórce wpisz 8, przy pozostałych kolorach dowolne swoje oznaczenia.

 Teraz powiedzmy że twoje kolorowe dane są w A1:A20. W B1 wpisujesz formułę "=WYSZUKAJ.PIONOWO(kolor(A1);$H$1:$I$6;2;0)" i kopiujesz formułę w dół.

 Gotowe teraz przy kolorowych komórkach pojawiają się zdefiniowane przez Ciebie cyferki.

 Takim samym sposobem można również policzyć ilość komórek z pogrubionym tekstem czy pomalowanych na niebiesko

 Pozdrawiam
 gajowy

---