उदाहरण कार्यपुस्तिका डाउनलोड करें
यह ट्यूटोरियल आपको दिखाएगा कि वीबीए का उपयोग करके एक निश्चित पृष्ठभूमि रंग की कोशिकाओं की गणना या योग कैसे करें।
एक्सेल में निम्न श्रेणी पर विचार करें।
रंगीन कोशिकाओं की गणना करने के लिए एक्सेल फ़ंक्शन में कोई अंतर्निहित नहीं है। इसके बजाय हमें वीबीए का उपयोग करके उपयोगकर्ता-परिभाषित फ़ंक्शन बनाना होगा।
कोशिकाओं की गणना करें - एक वीबीए कस्टम फ़ंक्शन बनाएं
VBA का उपयोग करके एक निश्चित रंग के कितने सेल हैं, यह गिनना एक उपयोगकर्ता-परिभाषित फ़ंक्शन (UDF) बनाने का मामला है जो सीमा में सभी कोशिकाओं के माध्यम से लूप करेगा, और यह निर्धारित करेगा कि क्या प्रत्येक सेल का पृष्ठभूमि रंग उस पृष्ठभूमि रंग से मेल खाता है जो आप के लिए परीक्षण कर रहे हैं, और फिर एक्सेल वर्कशीट में उस फ़ंक्शन का उपयोग कर रहे हैं।
वीबीए में, हम चयनित कोशिकाओं की गणना करने के लिए एक फ़ंक्शन बनाते हैं।
| 12345678910111213141516 | फंक्शन काउंटसेल्सबायकोलर (रेंज के रूप में आरएनजी, रेंज के रूप में कलरसेल) डबल के रूप मेंडबल के रूप में मंद डीबीएल गणनारेंज के रूप में मंद rngCell'रेंज में प्रत्येक सेल के माध्यम से लूप'प्रत्येक rngCell के लिए rng . में'यह देखने के लिए जांचें कि क्या आंतरिक रंग आपके द्वारा चुने गए सेल के समान रंग है'अगर rngCell.Interior.Color = ColorCell.Interior.Color फिरअगर IsNumeric(rngCell.Value) = सही है तो'अगर रंग सही है तो गिनती 1 से बढ़ा दें।डीबीएलकाउंट = डीबीएलकाउंट + 1अगर अंतअगर अंतअगला'एक्सेल को मान वापस करें'काउंटसेल्सबायकोलर = डीबीएलकाउंटअंत समारोह |
फिर मान वापस करने के लिए कार्यपत्रक में इस फ़ंक्शन का उपयोग करें।
| 1 | =काउंटसेल्सबायकलर(बी२:ई१०,जी४) |
- G4 में ऑरेंज सेल में क्लिक करें और इन्सर्ट फंक्शन पर क्लिक करें।
- चुनते हैं उपयोगकर्ता परिभाषित श्रेणी के रूप में, और फिर चुनें काउंटसेल्सबाय कलर उपयोग करने के लिए समारोह के रूप में।
- क्लिक ठीक है.
- उस श्रेणी को हाइलाइट करें जिसमें सभी रंगीन सेल हों।
- को चुनिए कलरसेल, और फिर क्लिक करें ठीक है.
हरे रंग की पृष्ठभूमि के साथ कोशिकाओं की गणना करने के लिए प्रक्रिया को दोहराएं।
| 1 | =काउंटसेल्सबायकलर(बी२:ई१०,जी५) |
Sum Cells - एक कस्टम VBA फ़ंक्शन बनाएँ
हम एक निश्चित रंग की कोशिकाओं के मूल्यों को योग करने के लिए वीबीए में एक समान कस्टम फ़ंक्शन बनाते हैं।
| 12345678910111213141516 | समारोह SumCellsByColor (रेंज के रूप में रंग, रेंज के रूप में ColorCell) डबल के रूप मेंमंद dblSum डबल के रूप मेंरेंज के रूप में मंद rngCell'रेंज में प्रत्येक सेल के माध्यम से लूप'प्रत्येक rngCell के लिए rng . में'यह देखने के लिए जांचें कि क्या आंतरिक रंग आपके द्वारा चुने गए सेल के समान रंग हैअगर rngCell.Interior.Color = ColorCell.Interior.Color फिरअगर IsNumeric(rngCell.Value) = सही है तो'यदि रंग सही है तो अपने वेरिएबल में मान जोड़ें'dblSum = dblSum + rngCell.Valueअगर अंतअगर अंतअगला'एक्सेल को मान वापस करें'SumCellsByColor = dblSumअंत समारोह |
फिर हम एक बार फिर इस फ़ंक्शन का उपयोग वर्कशीट में आवश्यक कोशिकाओं को जोड़ने के लिए करेंगे।
| 1 | =SumCellsByColor(B2:E10,G7) |
