शीर्ष 3 तरीके एक्सेल में रंगीन कोशिकाओं की गणना करने के लिए
एक्सेल में रंगीन कोशिकाओं को गिनने के लिए कोई अंतर्निहित कार्य नहीं है, लेकिन इस कार्य को करने के लिए नीचे तीन तरीके दिए गए हैं।
- ऑटो फ़िल्टर विकल्प का उपयोग करके रंगीन कोशिकाओं की गणना करें
- VBA कोड का उपयोग करके रंगीन कोशिकाओं की गणना करें
- FIND विधि का उपयोग करके रंगीन कोशिकाओं की गणना करें
अब, हम उनमें से प्रत्येक पर विस्तार से चर्चा करते हैं -
# 1 - ऑटो फ़िल्टर विकल्प का उपयोग करके एक्सेल गणना रंगीन कोशिकाओं
इस उदाहरण के लिए, नीचे दिए गए डेटा को देखें।
जैसा कि हम देख सकते हैं, प्रत्येक शहर अलग-अलग रंगों से चिह्नित है। इसलिए हमें सेल कलर के आधार पर शहरों की संख्या गिनने की जरूरत है। कोशिकाओं को रंग से गिनने के लिए नीचे दिए गए चरणों का पालन करें।
- चरण 1: डेटा पर फ़िल्टर लागू करें।
- चरण 2: डेटा के निचले भाग में, कोशिकाओं को गिनने के लिए एक्सेल में SUBTOTAL फ़ंक्शन को लागू करें।
- चरण 3: SUBTOTAL फ़ंक्शन में कई सूत्र हैं; यदि हम गणना, योग, औसत केवल दृश्यमान सेल डेटा चाहते हैं तो यह सहायक है। अब "पिन" शीर्षक के तहत, ड्रॉप-डाउन सूची फ़िल्टर पर क्लिक करें और "रंग चुनें" चुनें।
- चरण 4: जैसा कि हम देख सकते हैं, डेटा के सभी रंग। अब उस रंग को चुनें जिसे आप फ़िल्टर करना चाहते हैं।
वाह क्या बात है!!! जैसा कि हम सेल D21 में देख सकते हैं, हमारे SUBTOTAL फ़ंक्शन को 18 के पिछले परिणाम के बजाय 6 के रूप में फ़िल्टर्ड कोशिकाओं की गिनती दी गई है।
इसी तरह, अब उसी की गिनती प्राप्त करने के लिए अन्य रंगों का चयन करें।
इसलिए नीले रंग की कोशिकाएँ अब पाँच गिनती हैं।
# 2 - VBA कोड का उपयोग करके एक्सेल काउंट कलर्ड सेल
VBA की स्ट्रीट स्मार्ट तकनीक कुछ जटिल मुद्दों के लिए हमारे कार्यस्थल पर समय की खपत को कम करने में हमारी मदद करती है।
न केवल हम समय कम कर सकते हैं, बल्कि हम अपनी आवश्यकताओं को पूरा करने के लिए अपने स्वयं के कार्य भी बना सकते हैं। ऐसा ही एक फंक्शन हम रंग के आधार पर कोशिकाओं को गिनने के लिए एक फंक्शन बना सकते हैं। रंग के आधार पर कोशिकाओं को गिनने के लिए फ़ंक्शन बनाने के लिए VBA कोड नीचे है।
कोड:
फ़ंक्शन Color_Cell_Count (ColorCell As Range, DataRange As Range) Dim Data_Range As Range Dim Cell_Color as Long Cell_Color = ColorCell.Interior.ColorIndex प्रत्येक DataRange के लिए DataRange में यदि Data_Range.Interior.ColorIndex = Cell_Cell के द्वारा फिर से डेटा फिर से शुरू किया गया है। समारोह
उपरोक्त कोड को अपने मॉड्यूल में कॉपी और पेस्ट करें।
यह कोड चलाने के लिए एक उप प्रक्रिया नहीं है; बल्कि, यह एक "उपयोगकर्ता परिभाषित कार्य" (UDF) है।
कोड "Color_Cell_Count" की पहली पंक्ति फ़ंक्शन का नाम है। अब तीन सेल बनाएं और उन्हें नीचे की तरह रंग दें।
अब G2 सेल में “Color_Cell_Count” फंक्शन खोलें।
भले ही हमें इस फ़ंक्शन का सिंटैक्स न दिखाई दे, लेकिन पहला तर्क यह है कि हमें किस रंग को गिनना है, इसलिए सेल F2 चुनें।
दूसरा तर्क कोशिकाओं की श्रेणी को D2: D19 के रूप में चुनना है।
ब्रैकेट बंद करें और एंटर कुंजी दबाएं। यह उन कोशिकाओं की गिनती देगा जिनके पास चयनित सेल रंग है।
इस तरह, VBA में UDF की मदद से, हम सेल रंग के आधार पर कोशिकाओं की गिनती कर सकते हैं।
# 3 - FIND विधि का उपयोग करके एक्सेल गणना रंगीन कोशिकाओं
हम FIND पद्धति के आधार पर भी कोशिकाओं को गिन सकते हैं।
- चरण 1: सबसे पहले, उन कक्षों की श्रेणी का चयन करें, जहाँ हमें कोशिकाओं की गणना करने की आवश्यकता है।
- चरण 2: अब FIND संवाद बॉक्स खोलने के लिए Ctrl + F दबाएं।
- चरण 3: अब, "विकल्प >>" पर क्लिक करें।
- चरण 4: यह FIND संवाद बॉक्स का विस्तार करेगा। अब “Format” ऑप्शन पर क्लिक करें।
- चरण 5: अब, यह "प्रारूप खोजें" संवाद बॉक्स खुल जाएगा। "सेल से प्रारूप चुनें" विकल्प पर क्लिक करें।
- चरण 6: अब, अपने माउस पॉइंटर को मूवमेंट में देखने के लिए पॉइंटर सेल का चयन करने के लिए पॉइंटर देखें, जिसे हम गिनना चाहते हैं।
- चरण 7: उस सेल का चयन करें जिसे वांछित सेल काउंट के रूप में स्वरूपित किया गया है। मैंने वांछित सेल प्रारूप के रूप में F2 सेल को चुना है, और अब मैं पूर्वावलोकन देख सकता हूं।
- स्टेप 8: अब सेल के चुने हुए सेल फॉर्मेट काउंट की गिनती पाने के लिए FIND ALL ऑप्शन पर क्लिक करें।
तो, चयनित स्वरूपण रंगों के साथ कुल 6 कोशिकाएं पाई गईं।
याद रखने वाली चीज़ें
- बशर्ते VBA कोड VBA में एक उपप्रक्रम नहीं है; यह एक यूडीएफ है।
- SUBTOTAL में कई सूत्र होते हैं जिनका उपयोग केवल फ़िल्टर दिखाई देने पर दिखाई देने वाली कोशिकाओं के लिए परिणाम प्राप्त करने के लिए किया जाता है।
- हमारे पास सेल के रंग के आधार पर कोशिकाओं को गिनने के लिए एक्सेल में कोई अंतर्निहित कार्य नहीं है।
