VBA - Laske värillisten solujen lukumäärä

Ongelma

Etsin VBA-koodia, jonka perusteella voimme määrittää viimeisen solun (ennalta määritetyn värin) indeksin sarakkeen sarakkeissa.

Esimerkki: Sarake, joka sisältää värillisiä soluja linjaan 650 asti, miten tämä 650 saadaan?

Ratkaisu

Tässä on pieni koodi tähän tarkoitukseen:

 Subcolor_count () 'testiä varten käytämme keltaista taustaa = 6 sur 20 ligne' viimeistä riviä ei ole 30 a = Range ("A1"). 6) s = MsgBox ("viimeinen solu on:" & col, vbInformation, "värilinja") End Sub Function CountColor_bacgroung (Index as Range, Color As Long) Kuten Long Dim C Vaihtoehtona Dim XX = 0 Kullekin C: lle Plage Jos C.Interior.ColorIndex = Väri Sitten X = C.Row End Jos seuraava CountColor_bacgroung = X End Function 

Kiitos Bidouilleu_R: lle tästä vinkistä.