मुख्य सामग्री पर जाएं

एक्सेल में फ़ॉन्ट रंगों के आधार पर कोशिकाओं की गिनती या योग कैसे करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-05-26

आप Excel में उन कक्षों की संख्या कैसे प्राप्त कर सकते हैं या उन सभी कक्षों का योग कैसे प्राप्त कर सकते हैं जिनमें एक विशेष फ़ॉन्ट रंग है? उदाहरण के लिए, मेरे पास एक वर्कशीट में डेटा की एक श्रृंखला है जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है, और अब मैं उन कोशिकाओं को क्रमशः गिनना या जोड़ना चाहता हूं जिनमें लाल, नीला और काला फ़ॉन्ट रंग है। आम तौर पर, इस कार्य से निपटने का कोई सीधा तरीका नहीं है, यहां, मैं इस कार्य को हल करने के लिए कुछ तरकीबों के बारे में बात करूंगा।

उपयोगकर्ता परिभाषित फ़ंक्शन के साथ फ़ॉन्ट रंगों के आधार पर कोशिकाओं की गणना या योग करें

कुछ उपयोगी कार्यों के साथ फ़ॉन्ट रंग के आधार पर कोशिकाओं की गणना या योग करें

एक अद्भुत सुविधा के साथ फ़ॉन्ट रंग के आधार पर कोशिकाओं की गणना या योग करें - रंग द्वारा गणना


उपयोगकर्ता परिभाषित फ़ंक्शन के साथ फ़ॉन्ट रंगों के आधार पर कोशिकाओं की गणना या योग करें

फ़ॉन्ट रंगों के आधार पर कोशिकाओं की गणना करें:

विशिष्ट फ़ॉन्ट रंगों वाले कक्षों की संख्या की गणना करने के लिए, कृपया निम्न कार्य करें:

1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.

वीबीए कोड: फ़ॉन्ट रंगों के आधार पर कोशिकाओं की गणना करें:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
'Update by Extendoffice
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

3. फिर इस कोड को सेव करें और वर्कशीट पर वापस जाएं, और फिर इस फॉर्मूले को एक खाली सेल में दर्ज करें =गणनारंग(A1:D10,A2) , स्क्रीनशॉट देखें:

नोट: उपरोक्त सूत्र में, ए1:डी10 वह सीमा है जिसका आप उपयोग करना चाहते हैं और A2 एक विशेष फ़ॉन्ट रंग वाला सेल है जिसे आप गिनना चाहते हैं।

4. फ़ॉर्मूला टाइप करने के बाद दबाएँ दर्ज कुंजी, और आपको लाल फ़ॉन्ट रंगों वाले कक्षों की संख्या मिल जाएगी। यदि आप अन्य फ़ॉन्ट रंगीन कोशिकाओं की गिनती करना चाहते हैं, तो कृपया आवश्यकतानुसार बार-बार सूत्र दर्ज करें। आपको निम्नलिखित परिणाम मिलेंगे:


फ़ॉन्ट रंगों के आधार पर कोशिकाओं का योग:

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

1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.

वीबीए कोड: फ़ॉन्ट रंगों के आधार पर कोशिकाओं का योग:

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
'Update by Extendoffice
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        xTotal = xTotal + rng.Value
    End If
Next
SumByColor = xTotal
End Function

3. फिर इस कोड को सहेजें और मूल वर्कशीट पर लौटें, और फिर इस सूत्र को दर्ज करें =SumByColor(A1:D8,A1) एक रिक्त कक्ष में, स्क्रीनशॉट देखें:

नोट: उपरोक्त सूत्र में, ए1:डी10 वह सीमा है जिसका आप उपयोग करना चाहते हैं और A2 एक विशेष फ़ॉन्ट रंग वाला सेल है जिसे आप जोड़ना चाहते हैं।

4। फिर दबायें दर्ज कुंजी, और आप सभी कक्षों को लाल फ़ॉन्ट रंगों के साथ जोड़ देंगे। यदि आप अन्य फ़ॉन्ट रंगीन कोशिकाओं का योग करना चाहते हैं, तो कृपया सूत्र को बार-बार दर्ज करें। आपको निम्नलिखित परिणाम मिलेगा:


कुछ उपयोगी कार्यों के साथ फ़ॉन्ट रंग के आधार पर कोशिकाओं की गणना या योग करें

हो सकता है कि उपयोगकर्ता परिभाषित फ़ंक्शन को सहेजना और लागू करना आपके लिए परेशानी भरा हो, यहां, मैं आपको एक उपयोगी टूल सुझाऊंगा-एक्सेल के लिए कुटूल, इसके उन्नत कार्यों के साथ, आप इस कार्य को जल्दी और आसानी से हल कर सकते हैं।

सुझाव:इसे लागू करने के लिए काउंटबायफॉन्टकलर और सुम्बीफॉन्टकलर सुविधाएँ, सबसे पहले, आपको डाउनलोड करना चाहिए एक्सेल के लिए कुटूल, और फिर सुविधा को जल्दी और आसानी से लागू करें।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

फ़ॉन्ट रंगों के आधार पर कोशिकाओं की गणना करें:

1. उस सेल पर क्लिक करें जहां आप गणना परिणाम डालना चाहते हैं, और फिर क्लिक करें कुटूल > कुटूल्स फ़ंक्शंस > सांख्यिकी एवं गणित > काउंटबायफॉन्टकलर,स्क्रीनशॉट देखें:

2. में कार्य तर्क संवाद बॉक्स में, डेटा रेंज और रंग इंडेक्स सेल निर्दिष्ट करें जिसे आप फ़ॉन्ट रंग द्वारा गिनना चाहते हैं, स्क्रीनशॉट देखें:

3. और फिर, क्लिक करें OK बटन, आपको पहला गणना परिणाम मिलेगा, अन्य परिणाम प्राप्त करने के लिए, आपको बस इस सूत्र को कॉपी करना होगा और सेल संदर्भों को अपनी आवश्यकता के अनुसार बदलना होगा। स्क्रीनशॉट देखें:


फ़ॉन्ट रंगों के आधार पर कोशिकाओं का योग:

1. उस सेल पर क्लिक करें जहां आप गणना परिणाम डालना चाहते हैं, और फिर क्लिक करें कुटूल > कुटूल्स फ़ंक्शंस > सांख्यिकी एवं गणित > सुम्बीफॉन्टकलर,स्क्रीनशॉट देखें:

2. में कार्य तर्क संवाद बॉक्स में, डेटा रेंज और रंग इंडेक्स सेल निर्दिष्ट करें जिसे आप फ़ॉन्ट रंग द्वारा जोड़ना चाहते हैं, स्क्रीनशॉट देखें:

3. और फिर, क्लिक करें OK बटन, आपको पहला योग परिणाम मिलेगा, अन्य परिणाम प्राप्त करने के लिए, आपको बस इस सूत्र को कॉपी करना होगा और सेल संदर्भों को अपनी आवश्यकता के अनुसार बदलना होगा। स्क्रीनशॉट देखें:

एक्सेल के लिए कुटूल्स डाउनलोड करने और अभी निःशुल्क परीक्षण करने के लिए क्लिक करें!


एक अद्भुत सुविधा के साथ फ़ॉन्ट रंग के आधार पर कोशिकाओं की गणना या योग करें - रंग द्वारा गणना

एक्सेल के लिए कुटूल एक आसान सुविधा भी प्रदान करता है- रंग के अनुसार गिनती करें, इस उपयोगिता के साथ, आप अपनी आवश्यकता के अनुसार पृष्ठभूमि रंग, फ़ॉन्ट रंग, सशर्त स्वरूपण द्वारा गणना परिणाम जैसे गिनती, योग, औसत सेल इत्यादि तुरंत प्राप्त कर सकते हैं।

सुझाव:इसे लागू करने के लिए रंग के अनुसार गिनती करें सुविधा, सबसे पहले, आपको डाउनलोड करना चाहिए एक्सेल के लिए कुटूल, और फिर सुविधा को जल्दी और आसानी से लागू करें।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1. उस डेटा श्रेणी का चयन करें जिसे आप अलग-अलग रंगों के आधार पर गिनना और जोड़ना चाहते हैं।

2। क्लिक करें कुटूल्स प्लस> रंग के अनुसार गिनती करें, स्क्रीनशॉट देखें:

3. में रंग के अनुसार गिनती करें संवाद बॉक्स, चुनें मानक स्वरूपण से रंग विधि नीचे छोड़ें, और चुनें फॉन्ट नीचे गणना प्रकार ड्रॉप डाउन करें, और समान फ़ॉन्ट रंग वाले कक्षों को गिना गया, जोड़ा गया, औसत किया गया इत्यादि, स्क्रीनशॉट देखें:

4। और फिर क्लिक करें रिपोर्ट बनाओ बटन, आपको आँकड़े एक नई कार्यपुस्तिका में मिलेंगे। स्क्रीनशॉट देखें:

एक्सेल के लिए कुटूल्स डाउनलोड करने और अभी निःशुल्क परीक्षण करने के लिए क्लिक करें!


अधिक लेख:

  • एक्सेल में पृष्ठभूमि रंग के आधार पर कोशिकाओं की गणना और योग करें
  • मान लीजिए कि आपके पास अलग-अलग पृष्ठभूमि रंगों वाली कोशिकाओं की एक श्रृंखला है, जैसे कि लाल, हरा, नीला और इसी तरह, लेकिन अब आपको यह गिनना होगा कि उस श्रेणी में कितनी कोशिकाओं में एक निश्चित पृष्ठभूमि रंग है और रंगीन कोशिकाओं को उसी निश्चित रंग के साथ जोड़ दें . एक्सेल में, रंग कोशिकाओं के योग और गणना की गणना करने का कोई सीधा सूत्र नहीं है, यहां मैं आपको इस समस्या को हल करने के कुछ तरीकों से परिचित कराऊंगा।
  • Excel में कक्षों की एक श्रेणी में बोल्ड संख्याओं का योग/गणना करें
  • जब आपके पास एक डेटा रेंज होती है जिसमें वर्कशीट में कुछ बोल्ड नंबर होते हैं, और अब आप केवल बोल्ड सेल को जोड़ना या गिनना चाहते हैं, तो बेशक आप उन्हें एक-एक करके मैन्युअल रूप से जोड़ सकते हैं, लेकिन इसमें समय लगेगा। आप एक्सेल में केवल बोल्ड सेल को आसान और त्वरित तरीके से कैसे जोड़ या गिन सकते हैं?
  • एकाधिक कोशिकाओं पर रंग ग्रेडिएंट लागू करें
  • एक्सेल में, हम आसानी से एक सेल या एकाधिक सेल में पृष्ठभूमि रंग भर सकते हैं, लेकिन, कभी-कभी, हमें रंग को ग्रेडिएंट से भरने की आवश्यकता होती है जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है, एक्सेल में एक सेल में या कई सेल में रंग ग्रेडिएंट कैसे प्राप्त किया जा सकता है?
  • सेल कॉलम को जोड़ें और एक्सेल में टेक्स्ट का रंग रखें
  • जैसा कि हम सभी जानते हैं, सेल कॉलम को एक कॉलम में संयोजित या संयोजित करते समय, सेल फ़ॉर्मेटिंग (जैसे टेक्स्ट फ़ॉन्ट रंग, संख्या फ़ॉर्मेटिंग, आदि) खो जाएगी। इस लेख में, मैं सेल कॉलम को एक में संयोजित करने और एक्सेल में टेक्स्ट का रंग यथासंभव आसानी से बनाए रखने के लिए कुछ तरकीबें पेश करूंगा।
  • Google शीट में सेल रंग के आधार पर सेल की गणना या योग करें
  • दिखाए गए स्क्रीनशॉट के अनुसार परिणाम प्राप्त करने के लिए विशिष्ट सेल पृष्ठभूमि रंग के आधार पर सेल मानों की गणना या योग करें। इस लेख में, मैं Google शीट और Microsoft Excel में इस समस्या को कैसे हल किया जाए, इसके बारे में बात करूंगा।

फ़ॉन्ट/पृष्ठभूमि/सशर्त स्वरूपण रंग के आधार पर कोशिकाओं की गणना या योग करें:

एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अभी डाउनलोड करें और निःशुल्क परीक्षण करें!

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (52)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi..


I used it to count and sum from matrix. The problem is that the I need to count/sum in multiple range of cells. Is it possible to update this code to do this?
This comment was minimized by the moderator on the site
Hello, Joseph,

Maybe there is no direct way for you to count or sum the cell values based on font color in multiple ranges, but, you can apply the third method in this article and use Count by Color feature of Kutools for Excel, with this feature, you just need to select the multiple ranges first, and then apply the feature.
https://www.extendoffice.com/documents/excel/1418-excel-count-sum-by-font-color.html#a3

Please try it, thank you!
This comment was minimized by the moderator on the site
COUNT CELLS BY FONT COLOR tutorial was great! But it is not working when the font color was based on the conditional formatting. Do you have something for this concern?
This comment was minimized by the moderator on the site
Hello,
The codes in this article can not support the conditional formatting, but, you can use our Kutools for Excel's Count by Color feature, it can help you to count or sum conditional font colors. Please try it.
This comment was minimized by the moderator on the site
This was exactly what I needed - Thanks!
This comment was minimized by the moderator on the site
= SumByColor (A1: D8, A1) NÃO FUNCIONOU


=SumByColor(A1:D8;A1) FUNCIONOU

TIRANDO ESPAÇO E USANDO " ; " AO INVÉS DE " , " AI FUNCIONOU LEGAL.

USO EXCEL 10


MUITO BOM.


OBRIGADO
This comment was minimized by the moderator on the site
Is there a way to change Count Or Sum Cells Based On Font Colors With User Defined Function into count or sum cells based on de conditional formating?

I've tried with

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double

Application.Volatile
Dim rng As Range
For Each rng In pRange1

If rng.FormatConditions.Font.Color = pRange2.FormatConditions.Font.Color Then
CountColour = CountColour + 1

End If
Next
End Function

But it appears not to work, any suggestion?
Thanks
This comment was minimized by the moderator on the site
Hello, Borja,
May be you can use our product, Kutools for Excel, with its Count by Color feature, you can quickly count or sum the cell values based on the conditional formatting without any VBA code, please try. You can download it and free trial in 60 day.
Thank you!
This comment was minimized by the moderator on the site
I tried the SumByColor. It works, but not if the numbers have been coloured by conditional formatting. For example, I have a list of different numbers that are coloured red if they are within a range set by a conditional formatting rule. I would then like to sum only the red-coloured numbers. But the SumByColor VBA code does not work in this situation. Any suggestions to make it work. Thanks
This comment was minimized by the moderator on the site
Hello, Xiahui,
The above code can not applied to conditional formatting color, but, you can use our Kutools for Excel' Count by color feature, with it, you can quickly get the result for counting or summing based on the conditional formatting color. See the below screenshot:
This comment was minimized by the moderator on the site
Hey
Nice macro. I used it to just count from a simple matrix. The problem is that the macro counts also empty cells. How to exclude empty cells from counting?
This comment was minimized by the moderator on the site
Hello, Kriss,
To count the cells based on font color excluding the blank cells, please apply the below User Defined Function, please try:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
If rng.Value <> "" Then
If rng.Font.Color = pRange2.Font.Color Then
CountColour = CountColour + 1
End If
End If
Next
End Function
This comment was minimized by the moderator on the site
Exactly what I was looking for! This will save me lots of time. Thank You
This comment was minimized by the moderator on the site
Muito obrigada já ajudou muito, porém a minha formula só adiciona à soma outro número quando eu uso o pincel para mudar a cor, se eu trocar a cor da fonte pela barra de ferramenta não dá certo, alguém saber me explicar -
This comment was minimized by the moderator on the site
This was SO helpful - Thanks very much!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations