VBA - रंगीन कोशिकाओं की संख्या की गणना करें

मुद्दा

मैं VBA कोड की तलाश कर रहा हूं जिसके तहत हम एक कॉलम में अंतिम सेल (पूर्वनिर्धारित रंग) के सूचकांक को निर्धारित कर सकते हैं।

उदाहरण: स्तंभ जो रंगीन रेखाएँ 650 तक हैं, यह 650 कैसे प्राप्त करें?

उपाय

इस उद्देश्य के लिए एक छोटा कोड है:

 परीक्षण के लिए Subcolor_count () 'हम एक पीले रंग की पृष्ठभूमि = 6 sur 20 ligne' का उपयोग करेंगे अंतिम पंक्ति कोई 30 a = श्रेणी ("A1") नहीं है। आंतरिक ।ColorIndex col = CountColor_baccoung (रेंज ("A1: A120")। 6) s = MsgBox ("अंतिम सेल है:" & col, vbInformation, "color की लाइन") End Sub Function CountColor_bacgroung (इंडेक्स के रूप में अनुक्रमणिका, रंग लंबे समय तक) के रूप में लंबे समय तक C वेरिएंट डिम XX = 0 प्रत्येक C के लिए। प्लेज में अगर C.Interior.ColorIndex = कलर तब X = C.Row समाप्त होता है तो अगला CountColor_bacgroung = X End फ़ंक्शन 

इस टिप के लिए Bidouilleu_R को धन्यवाद।