VBA - saskaitiet krāsainu šūnu skaitu

Izdevums

Es meklēju VBA kodu, saskaņā ar kuru mēs varam noteikt pēdējās šūnas (iepriekš definētas krāsas) rādītāju kolonnu kolonnās.

Piemērs: kolonna, kas satur krāsainas šūnas līdz līnijai 650, kā iegūt šo 650?

Risinājums

Šim nolūkam ir neliels kods:

 Subcolor_count () 'testam mēs izmantosim dzeltenu fonu = 6 sur 20 ligne' pēdējo rindu Nr. 30 a = diapazonu ("A1"). Interior.ColorIndex col = CountColor_bacgroung (diapazons ("A1: A120"), 6) s = MsgBox ("pēdējā šūna ir:" & col, vbInformācija, "krāsu līnija") Beigas apakšfunkcija CountColor_bacgroung (indekss kā diapazons, krāsa tik garš) kā garš Dim C kā variants Dim XX = 0 katram C Plage If C.Interior.ColorIndex = Krāsa Tad X = C.Row End Ja nākamais CountColor_bacgroung = X End Function 

Paldies Bidouilleu_R par šo padomu.