Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zwracanie ilosci pokolorowanych komórek w excelu
barylek




Typ: neutral
Postów: 19
Zarejestrowany: Dec 2004
Zwracanie ilosci pokolorowanych komórek w excelu

Mam pewien kłopot. W jaki sposób w arkuszu do danej komórki zwrócić ilość komórek o odpowiednim formacie i wartości.
Np. licz jeżeli [zakres ; kolor komórki ; wartość]
oraz np: ile zielonych [zakres ; wartość]
Zgóry dziękuje za podpowiedź...

22-02-2005 13:09
Pokaż profil barylek  Wyślij email do barylek   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Musisz napisać własną funkcję.
W tym celu wstaw nowy moduł w oknie eksploratora kodu i skopiuj i wklej taką funkcję.
Następnie w arkuszu wskaż obszar do przeszukania (zakres komórek) i komórkę wzrocową, czyli pokolorowaną na kolor którego szukasz.

Odpowiednio to zmodyfikuj, by jeszcze uzależnić wynik funkcji od jakiejś wartości.


Function ZliczKolory(obszar As Range, kolor As Range)
Dim rng As Range
Dim i As Long

For Each rng In obszar
    If rng.Interior.Color = kolor.Interior.Color Then i = i + 1
Next rng

ZliczKolory = i

End Function



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

25-02-2005 18:25
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
barylek




Typ: neutral
Postów: 19
Zarejestrowany: Dec 2004

Dziękuje Maćku...
O to dokładnie mi chodziło, resztę sobie już dokończę.
pozdrawiam barylek

25-02-2005 19:28
Pokaż profil barylek  Wyślij email do barylek   
barylek




Typ: neutral
Postów: 19
Zarejestrowany: Dec 2004
Jak ożywić tą funkcję??



Odpowiednio to zmodyfikuj, by jeszcze uzależnić wynik funkcji od jakiejś wartości.


Po modyfikacji:

Function ZliczWartosci(Obszar As Range, Kolor As Range, Wartosc As Double)
Dim rng As Range
Dim i As Long
For Each rng In Obszar
If rng.Interior.Color = Kolor.Interior.Color And rng.Value = Wartosc Then
i = i + 1
End If
Next rng
ZliczWartosci = i
End Function



Funkcja działa tylko jeszcze żeby chciała aktualizować zwracany wynik w czasie gdy mam wpisane wartości do komórek i zmieniam kolor komórek na ten z którego ma zwracać wartości.
Bardzo proszę o pomoc (jeśli to możliwe)

[Post edytowany dnia 03-03-2005 20:27 przez barylek]

02-03-2005 20:46
Pokaż profil barylek  Wyślij email do barylek   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1