VBA - Számolja a színes cellák számát

Probléma

VBA kódot keresek, amellyel egy oszloposzlopban meghatározhatjuk az utolsó cellának (előre meghatározott színnek) indexét.

Példa: Az oszlop, amely színes cellákat tartalmaz a 650-es vonalig, hogyan lehet ezt 650?

Megoldás

Itt van egy kis kód erre a célra:

 Subcolor_count () 'a teszthez sárga háttér = 6 sur 20 ligne' -t használunk, az utolsó sor 30 a = Range ("A1"). Interior.ColorIndex col = CountColor_bacgroung (tartomány: "A1: A120"), 6) s = MsgBox ("az utolsó cellában:" & col, vbInformation, "color of color") End Sub Function CountColor_bacgroung (index mint tartomány, szín olyan hosszú), mint hosszú Dim C mint változat Dim XX = 0 mindegyik C esetén Plage-ban Ha C.Interior.ColorIndex = Color Ezután X = C.Row End Ha a következő CountColor_bacgroung = X End Function 

Köszönjük Bidouilleu_R-nek ezt a tippet.