VBA - policz liczbę kolorowych komórek

Kwestia

Szukam kodu VBA, pod którym możemy określić indeks ostatniej komórki (predefiniowany kolor) w kolumnach kolumn.

Przykład: kolumna zawierająca kolorowe komórki do linii 650, jak uzyskać ten 650?

Rozwiązanie

Oto mały kod w tym celu:

 Subcolor_count () 'do testu użyjemy żółtego tła = 6 sur 20 ligne' ostatnia linia to nie 30 a = Zakres ("A1"). Interior.ColorIndex col = CountColor_bacgroung (Zakres ("A1: A120"), 6) s = MsgBox („ostatnia komórka to:” & col, vbInformation, „linia koloru”) End Sub Function CountColor_bacgroung (indeks jako zakres, kolor tak długi) jak długi Dim C jako wariant Dim XX = 0 dla każdego C W Plage Jeśli C.Interior.ColorIndex = Kolor to X = Koniec C. Jeśli następny CountColor_bacgroung = Funkcja X końca 

Dziękujemy Bidouilleu_R za tę wskazówkę.