Excel में फॉन्ट कलर के आधार पर सेल जोड़ें आसानी से - 2 सिद्ध विधियाँ

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

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

Excel में फॉन्ट कलर के आधार पर जोड़ने के 2 प्रभावी तरीके

1. SUBTOTAL और Filter के साथ फॉन्ट कलर के आधार पर जोड़ें

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

📌 चरण

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

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

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

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

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

समान लेख

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

2. Excel में यूजर डिफाइंड फंक्शन (UDF) के साथ फॉन्ट कलर के आधार पर जोड़ें

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

📌 चरण

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

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

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 में निम्न फॉर्मूला दर्ज करें। फिर, फॉर्मूला को नीचे की सेल्स पर लागू करने के लिए Fill Handle आइकन का उपयोग करें।

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

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

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

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 कोड की व्याख्या

Function SUMBYFONTCOLOR(ref_color As Range, sum_range As Range)
यह पब्लिक फंक्शन दो आर्गुमेंट लेगा। ref_color आर्गुमेंट रेफरेंस सेल से फॉन्ट कलर लेगा। हम sum_range आर्गुमेंट द्वारा संदर्भित रेंज के भीतर उनके फॉन्ट कलर के आधार पर सेल वैल्यू जोड़ेंगे।

Dim cell_color, sum_color As Long
Dim Cell As Range
आवश्यक वेरिएबल घोषित करना।

Application.Volatile
यह कोड लाइन Excel को बाध्य करती है कि जब भी उपयोगकर्ता कोई परिवर्तन करे तो पुनर्गणना करे।

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

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

For Each Cell In sum_range
यह For Loop sum_range आर्गुमेंट द्वारा संदर्भित रेंज के भीतर प्रत्येक सेल के माध्यम से अगली कोड लाइनों को निष्पादित करेगा।

If cell_color = Cell.Font.ColorIndex Then
केवल तभी जब sum_range के भीतर किसी सेल का फॉन्ट कलर ref_color आर्गुमेंट द्वारा संदर्भित सेल के फॉन्ट कलर से मेल खाता है, तो अगली कोड लाइनें निष्पादित होंगी।

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
यह प्राइवेट सब प्रोसीजर केवल तभी काम करता है जब विशेष वर्कशीट के भीतर कोई परिवर्तन होता है।

If Not Intersect(Target, Range("A:Z")) Is Nothing Then
यह कोड लाइन सुनिश्चित करती है कि अगली कोड लाइन केवल तभी निष्पादित होगी जब उपयोगकर्ता परिभाषित रेंज (A:Z) के भीतर कोई परिवर्तन करे।

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

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

याद रखने योग्य बातें

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

निष्कर्ष

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

संबंधित लेख

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