VBA - Renkli hücrelerin sayısını say

Konu

Sütun sütunlarında son hücrenin dizinini (önceden tanımlanmış renk) belirleyebileceğimiz VBA kodunu arıyorum.

Örnek: 650 numaralı çizgiye kadar renkli hücreleri içeren sütun, bu 650 nasıl elde edilir?

Çözüm

İşte bu amaç için küçük bir kod:

 Subcolor_count () 'test için sarı bir arka plan kullanacağız = 6 sur 20 ligne' son satır no 30 a = Aralık ("A1"). Interior.ColorIndex col = CountColor_bacgroung (Aralık ("A1: A120"), 6) s = MsgBox ("en son hücre:" & col, vbInformation, "renk satırı") End Sub Function CountColor_bacgroung (İndeks Aralığı, Renk Uzunluğu) Uzun Dim C Olarak Varyant Dim XX = 0 Her C C.Interior.ColorIndex = Renkli Sonra X = C.Rem Sonunda Sonraki Sayısı CountColor_bacgroung = X Bitiş İşlevi 

Bu ipucu için Bidouilleu_R'ye teşekkür ederiz.