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
Excel - jeden problem
Odpowiedź z cytatem
Zakładki