निम्न फ़ंक्शन किसी विशेष श्रेणी में सभी कक्षों के कुल मान की गणना करता है जो एक विशेष रंग हैं:
दुर्भाग्य से, सेल रंग के आधार पर योग करने के लिए कोई SUMIF फ़ंक्शन नहीं है। यदि आप रंग के आधार पर योग करना चाहते हैं, तो आपको VBA के भीतर एक फ़ंक्शन बनाना होगा।
इस कोड का उपयोग करने के लिए: विजुअल बेसिक एडिटर (Alt + F11) खोलें, एक नया मॉड्यूल डालें (सम्मिलित करें> मॉड्यूल) और मॉड्यूल में वांछित कोड को कॉपी और पेस्ट करें।
रंग द्वारा योग करने का कार्य
| 1234567891011121314151617181920 | फ़ंक्शन Color_By_Numbers (Color_Range as Range, Color_Index as Integer) डबल के रूप में' मंद Color_By_Numbers डबल के रूप मेंमंद सेल'उन कोशिकाओं को देखेंगे जो सीमा में हैं और यदि''रंग की आंतरिक संपत्ति आवश्यक सेल रंग से मेल खाती है''तो यह योग होगा'लूप थ्रू रेंज'Color_Range में प्रत्येक सेल के लिएअगर (सेल। इंटीरियर। कलरइंडेक्स = कलर_इंडेक्स) तोColor_By_Numbers = Color_By_Numbers + Cell.Valueअगर अंतअगली सेलअंत समारोह |
यह वास्तव में "रंग से योग" है - इसलिए यदि आप एक्सेल के 56 रंग पैलेट को जानते हैं और उदाहरण के लिए आप जानते हैं कि रंग 4 हल्का हरा है तो निम्न कॉल करें:
Color_By_Numbers(“A1:P20”,4)
A1:P20 श्रेणी के सभी कक्षों के मानों को जोड़ देगा जो हल्के हरे रंग के होते हैं।
फ़ंक्शन का उपयोग करना आसान बनाने के लिए, निम्नलिखित सबरूटीन एक्सेल के 56 रंगों में से प्रत्येक के लिए कुल मूल्य का काम करेगा। यह पूरे तालू को भी देता है ताकि प्रत्येक रंग के लिए सूचकांक संख्या को देखना आसान हो।
सबरूटीन शीट 1 पर लागू होता है और श्रेणी को देखता है
| 12345678910111213141516171819202122 | निजी उप कमांडबटन1_क्लिक करें ()'प्रत्येक रंग को देखेंगे और मूल्यों की सारांश तालिका तैयार करेंगे'सेल A1 में शीट 1 पर और नीचे की ओरमंद Current_Color_Number के रूप में पूर्णांकमंद रंग_कुल डबल के रूप मेंCurrent_Color_Number = 1 से 56 . के लिएColor_Total = Color_By_Numbers(Sheets("Sheet2").Range("a11:aa64"), Current_Color_Number)वर्कशीट्स ("शीट 1")। रेंज ("ए 1")। ऑफसेट (वर्तमान_Color_Number, 0) = Current_Color_Numberवर्कशीट्स ("शीट 1")। रेंज ("ए 1")। ऑफसेट (करंट_कलर_नंबर, 0)। इंटीरियर। कलरइंडेक्स = करंट_कोलर_नंबरअगर Color_Total 0# तोवर्कशीट्स ("शीट 1")। रेंज ("ए 1")। ऑफसेट (Current_Color_Number, 1)। मान = Color_Totalअगर अंतअगला वर्तमान_Color_Numberअंत उप |
XLS फ़ाइल डाउनलोड करने के लिए, कृपया यहाँ क्लिक करें
