VBA - Tæl antallet af farvede celler

Problem

Jeg leder efter VBA-kode, hvorefter vi kan bestemme indekset for den sidste celle (foruddefineret farve) i kolonnekolonner.

Eksempel: Søjlen indeholdende farvede celler op til linjen 650, hvordan får man denne 650?

Opløsning

Her er en lille kode til dette formål:

 Subcolor_count () 'til testen vil vi bruge en gul baggrund = 6 sur 20 ligne' den sidste linje er nej 30 a = Range ("A1"). Interior.ColorIndex col = CountColor_bacgroung (Range ("A1: A120") 6) s = MsgBox ("den sidste celle er:" & col, vbInformation, "farvelinie") Slut Subfunktion CountColor_bacgroung (Indeks som rækkevidde, farve så lang) Så lang Dim C Som Variant Dim XX = 0 For hver C I Plage Hvis C.Interior.ColorIndex = Farve Så X = C.Row End Hvis Næste CountColor_bacgroung = X End Function 

Tak til Bidouilleu_R for dette tip.