एक्सेल में फॉन्ट कलर द्वारा योग (2 प्रभावी तरीके)

यह आलेख दिखाता है कि एक्सेल में कोशिकाओं को उनके फ़ॉन्ट रंग से कैसे जोड़ा जाए। यदि आपके पास विभिन्न फ़ॉन्ट रंगों वाले एकाधिक कक्ष हैं, तो आपको इसकी आवश्यकता हो सकती है। निम्नलिखित चित्र इस लेख के उद्देश्य पर प्रकाश डालता है। इसे कैसे करना है, यह जानने के लिए इसे तुरंत देखें।

आप नीचे दिए गए डाउनलोड बटन से अभ्यास कार्यपुस्तिका डाउनलोड कर सकते हैं।

एक्सेल में फॉन्ट कलर द्वारा योग करने के 2 प्रभावी तरीके

मान लें कि आपके पास एक कॉलम में विभिन्न रंगीन फोंट वाला डेटासेट निम्नानुसार है। तब यह विधि उन्हें उनके फ़ॉन्ट रंग से जोड़ने के लिए सबसे अच्छी हो सकती है। इस विधि को लागू करने के लिए नीचे दिए गए चरणों का पालन करें।

📌 कदम

• सबसे पहले, सेल में निम्न सूत्र दर्ज करें C13 . 9 सूत्र में SUM फ़ंक्शन को संदर्भित करता है . यह SUBTOTAL फ़ंक्शन . को सक्षम करता है पसंदीदा श्रेणी का योग वापस करने के लिए।

• अब डेटासेट में कहीं भी चुनें। फिर CTRL+SHIFT+L दबाएं फ़िल्टर apply लागू करने के लिए डेटासेट पर। उसके बाद, आप हेडर सेल के निचले दाएं कोने में फ़िल्टर बटन देखेंगे जैसा कि नीचे चित्र में दिखाया गया है।

• अब, जैसा कि नीचे दिखाया गया है, फ़िल्टर बटन का उपयोग करके डेटासेट को एक विशेष रंग से फ़िल्टर करें।

• फिर, आपको निम्न परिणाम प्राप्त होंगे।

और पढ़ें: Excel में फ़िल्टर किए गए कक्षों का योग कैसे करें (5 उपयुक्त तरीके)

समान रीडिंग

• Excel में चयनित कक्षों का योग कैसे करें (4 आसान तरीके)
• एक्सेल में एक कॉलम के अंत तक का योग (8 आसान तरीके)
• एक्सेल में कॉलमों का योग कैसे करें (7 तरीके)
• [फिक्स्ड!] एक्सेल एसयूएम फॉर्मूला काम नहीं कर रहा है और रिटर्न 0 (3 समाधान)
• Excel में एकाधिक पंक्तियों का योग कैसे करें (4 त्वरित तरीके)

यदि आपके पास निम्न जैसा डेटासेट है तो पहले वाला तरीका काम नहीं करेगा। आप एक उपयोगकर्ता परिभाषित कार्य (UDF) का उपयोग कर सकते हैं बजाय। ऐसा करने के लिए नीचे दिए गए चरणों का पालन करें।

📌 कदम

• सबसे पहले, कार्यपुस्तिका को मैक्रो-सक्षम कार्यपुस्तिका . के रूप में सहेजें . इसके बाद, ALT+F11 दबाएं वीबीए विंडो खोलने के लिए। फिर सम्मिलित करें>> मॉड्यूल . चुनें जैसा कि नीचे चित्र में दिखाया गया है। यह एक नया रिक्त मॉड्यूल बनाएगा।

• उसके बाद, नीचे दिए गए कोड को कॉपी करें।

Function SUMBYFONTCOLOR(ref_color As Range, sum_range As Range)
Dim cell_color, sum_color As Long
Dim Cell As Range
Application.Volatile
sum_color = 0
cell_color = ref_color.Font.ColorIndex
For Each Cell In sum_range
If cell_color = Cell.Font.ColorIndex Then
sum_cell = WorksheetFunction.Sum(Cell, sum_cell)
End If
Next Cell
SUMBYFONTCOLOR = sum_cell
End Function

• अब, कॉपी किए गए कोड को मॉड्यूल विंडो पर इस प्रकार चिपकाएं।

• उसके बाद, अपनी वर्कशीट पर जाएं। फिर कोशिकाओं में वांछित रंग के नाम लिखें I5:I9 . इसके बाद, तदनुसार उनके फ़ॉन्ट रंग बदलें।
• अब, सेल में निम्न सूत्र दर्ज करें J5 . फिर, हैंडल आइकन भरें का उपयोग करें नीचे दिए गए कक्षों में सूत्र लागू करने के लिए।

अंत में, आपको निम्न परिणाम प्राप्त होंगे।👇

अब, यदि आप सीमा के भीतर किसी भी सेल का फ़ॉन्ट रंग बदलते हैं, तो परिणाम अपडेट नहीं होगा। आपको किसी सेल पर डबल-क्लिक करना होगा और फिर पुनर्गणना को बाध्य करने के लिए दूर क्लिक करना होगा। वैकल्पिक रूप से, आप CTRL+ALT+F9 press दबा सकते हैं एक ही परिणाम प्राप्त करने के लिए।

• अब, यदि आप भी नहीं करना चाहते हैं तो निम्न कोड को कॉपी करें।

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
ActiveSheet.Calculate
End If
End Sub

• फिर, VBA विंडो पर वापस जाएं। इसके बाद, UDF . नामक वर्कशीट पर डबल-क्लिक करें . यह एक खाली विंडो खोलेगा। उसके बाद, कॉपी किए गए कोड को उस विंडो पर पेस्ट करें जैसा कि निम्न चित्र में दिखाया गया है।

अब आप फ़ॉन्ट रंग बदल सकते हैं और परिणामों को अपडेट करने के लिए दूर क्लिक कर सकते हैं।

VBA कोड की व्याख्या

कार्य SUMBYFONTCOLOR(ref_color as रेंज, sum_range as Range)
यह सार्वजनिक समारोह दो तर्क लेगा। ref_color तर्क संदर्भ सेल से फ़ॉन्ट रंग लेगा। हम sum_range . द्वारा निर्दिष्ट सीमा के भीतर उनके फ़ॉन्ट रंगों के आधार पर सेल मानों का योग करेंगे तर्क।

मंद सेल_रंग, sum_color जितना लंबा हो
डिम सेल ऐज़ रेंज
आवश्यक चर घोषित करना।

एप्लिकेशन.अस्थिर
जब भी उपयोगकर्ता कोई बदलाव करता है तो यह कोड लाइन एक्सेल को पुनर्गणना करने के लिए मजबूर करती है।

sum_color =0
चर के लिए प्रारंभिक मान को परिभाषित करना।

cell_color =ref_color.Font.ColorIndex
cell_color वेरिएबल ref_color . द्वारा निर्दिष्ट सेल के फ़ॉन्ट रंग को संग्रहीत करता है तर्क।

प्रत्येक सेल के लिए sum_range में
यह लूप के लिए sum_range . द्वारा निर्दिष्ट सीमा के भीतर प्रत्येक सेल के माध्यम से अगली कोड पंक्तियों को निष्पादित करेगा तर्क।

यदि cell_color =Cell.Font.ColorIndex तो
केवल अगर sum_range . के भीतर किसी सेल का फ़ॉन्ट रंग ref_color . द्वारा निर्दिष्ट सेल के फ़ॉन्ट रंग से मेल खाता है तर्क के बाद अगली कोड पंक्तियाँ निष्पादित होंगी।

sum_cell =वर्कशीट फ़ंक्शन। योग (सेल, sum_cell)
यह कोड लाइन SUM फ़ंक्शन . को सक्रिय करती है मेल खाने वाले फ़ॉन्ट रंगों के साथ सेल मान जोड़ने के लिए।

SUMBYFONTCOLOR =sum_cell
यह कोड लाइन योग को स्टोर करती है ताकि फ़ंक्शन इस मान को वापस कर सके।

निजी उप वर्कशीट_चयन परिवर्तन(ByVal Target as Range)
यह निजी विषय प्रक्रिया केवल तभी काम करती है जब विशेष कार्यपत्रक में कोई परिवर्तन होता है।

यदि प्रतिच्छेद नहीं है(लक्ष्य, श्रेणी(“A:Z”)) तो कुछ भी नहीं है
यह कोड लाइन सुनिश्चित करती है कि अगली कोड लाइन तभी निष्पादित होगी जब उपयोगकर्ता परिभाषित सीमा के भीतर कोई बदलाव करता है (A:Z )।

ActiveSheet.गणना करें
यह सक्रिय वर्कशीट के भीतर सभी फ़ार्मुलों के पुनर्गणना को बाध्य करता है ताकि परिवर्तन अपडेट किए जा सकें।

और पढ़ें: Excel VBA (6 आसान तरीके) का उपयोग करके पंक्ति में कक्षों की श्रेणी का योग कैसे करें

याद रखने वाली बातें

• यदि आप फ़ॉन्ट का रंग बदलते हैं तो किसी सेल पर डबल-क्लिक करना न भूलें और अपडेट किए गए परिणाम देखने के लिए दूर क्लिक करें। वैकल्पिक रूप से, आपको CTRL+SHIFT+F9 press दबाना होगा उसके लिए।
• आपको निर्धारित सीमा के भीतर दूर क्लिक करना होगा (A:Z ) फ़ॉन्ट रंग बदलने के बाद परिणाम अपडेट करने के लिए।

निष्कर्ष

अब आप एक्सेल में कोशिकाओं को उनके फ़ॉन्ट रंग द्वारा योग करने के 2 सबसे प्रभावी तरीके जानते हैं। कृपया हमें बताएं कि क्या इस लेख ने आपकी समस्या में आपकी मदद की है। आप आगे के प्रश्नों या सुझावों के लिए नीचे दिए गए टिप्पणी अनुभाग का भी उपयोग कर सकते हैं। हमारे ExcelDemy . पर अवश्य जाएं एक्सेल के बारे में अधिक जानने के लिए ब्लॉग। हमारे साथ रहें और सीखते रहें।

संबंधित लेख

• एक्सेल में रंगीन सेलों का योग कैसे करें (4 तरीके)
• एक्सेल में योग सेल:सतत, यादृच्छिक, मानदंड के साथ, आदि।
• VBA के बिना Excel में रंगीन कक्षों का योग कैसे करें (7 तरीके)
• एक्सेल में नंबर जोड़ें (2 आसान तरीके)
• Excel में एकाधिक पंक्तियों और स्तंभों का योग कैसे करें