VBA - Пребройте броя на цветните клетки

Проблем

Търся VBA код, под който можем да определим индекса на последната клетка (предварително определен цвят) в колона колони.

Пример: Колоната, съдържаща оцветени клетки до линията 650, как да се получи тази 650?

Решение

Ето малък код за тази цел:

 Subcolor_count () "за теста ще използваме жълт фон = 6 sur 20 ligne" последният ред не е 30 a = Range ("A1"). Interior.ColorIndex col = CountColor_bacgroung (Обхват ("A1: A120"), 6) s = MsgBox ("последната клетка: В Plage Ако C.Interior.ColorIndex = Цвят тогава X = C.Row End Ако Следващ CountColor_bacgroung = X End Function 

Благодарение на Bidouilleu_R за този съвет.