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

एक्सेल में सशर्त स्वरूपण के साथ रंगों द्वारा कोशिकाओं की गिनती/योग कैसे करें?

लेखक: रवि अंतिम संशोधित: 2020-05-08

एक्सेल में, आप सशर्त स्वरूपण का उपयोग करके कुछ कोशिकाओं को रंग सकते हैं। अब यह ट्यूटोरियल आपको एक्सेल में सशर्त स्वरूपण के साथ रंग के आधार पर कोशिकाओं को तुरंत गिनने या योग करने के कुछ आसान और आसान तरीके बताएगा।

वीबीए द्वारा फ़ॉन्ट रंग और पृष्ठभूमि के आधार पर कोशिकाओं की गणना करें

Excel के लिए Kutools द्वारा सशर्त स्वरूपण के साथ फ़ॉन्ट रंग द्वारा कोशिकाओं की गणना/योग करें अच्छा विचार3      प्ले

Excel के लिए Kutools द्वारा सशर्त स्वरूपण के साथ पृष्ठभूमि रंग द्वारा कोशिकाओं की गणना/योग करें अच्छा विचार3      प्ले


तीर नीला दायां बुलबुला वीबीए द्वारा फ़ॉन्ट और पृष्ठभूमि रंग के आधार पर कोशिकाओं की गणना करें

एक्सेल में, केवल वीबीए कोड एक विशिष्ट फ़ॉन्ट और पृष्ठभूमि रंग के आधार पर कोशिकाओं की तुरंत गिनती कर सकता है।

1। दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल और पॉपिंग पर वीबीए कोड के नीचे कॉपी और पेस्ट करें मॉड्यूल खिड़की.

वीबीए: फ़ॉन्ट और पृष्ठभूमि रंग के आधार पर कोशिकाओं की गणना करें।

Sub DisplayFormatCount()
	'Updateby20150305
	Dim Rng As Range
	Dim CountRange As Range
	Dim ColorRange As Range
	Dim xBackColor As Long
	Dim xFontColor As Long
	On Error Resume Next
	xTitleId       = "KutoolsforExcel"
	Set CountRange = Application.Selection
	Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
	Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
	Set ColorRange = ColorRange.Range("A1")
	xReturn        = 0
	For Each Rng In CountRange
		qqq           = Rng.Value
		xxx           = Rng.DisplayFormat.Interior.Color
		If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
			xBackColor   = xBackColor + 1
		End If
		If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
			xFontColor = xFontColor + 1
		End If
	Next
	MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub

3। क्लिक करें रन बटन या प्रेस F5 कोड को चलाने के लिए कुंजी, फिर पॉपिंग डायलॉग में अपनी आवश्यक सीमा का चयन करें। स्क्रीनशॉट देखें:
दस्तावेज़-गिनती-दर-सशर्त-रंग-1

4। क्लिक करें OK, फिर उस सेल का चयन करें जिसके फ़ॉन्ट और पृष्ठभूमि रंग के आधार पर आप सेल की गिनती करना चाहते हैं। स्क्रीनशॉट देखें:

दस्तावेज़-गिनती-दर-सशर्त-रंग-2

5। क्लिक करें OK. फिर एक संवाद आपको यह बताने के लिए प्रकट होता है कि श्रेणी में चयनित सेल के साथ कितने सेल का पृष्ठभूमि रंग और फ़ॉन्ट रंग समान है।

दस्तावेज़-गिनती-दर-सशर्त-रंग-3


तीर नीला दायां बुलबुला Excel के लिए Kutools द्वारा सशर्त स्वरूपण के साथ फ़ॉन्ट रंग द्वारा कोशिकाओं की गणना/योग करें

एक्सेल में, आप केवल सशर्त स्वरूपण के साथ फ़ॉन्ट रंग के आधार पर कोशिकाओं की गिनती या योग नहीं कर सकते हैं। हालाँकि, एक आसान ऐड-इन कहा जाता है एक्सेल के लिए कुटूल जो आपको इस समस्या को तुरंत हल करने में मदद कर सकता है रंग के अनुसार गिनती करें सुविधा.

एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। 

बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:

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

दस्तावेज़-गिनती-दर-सशर्त-रंग-4

2. फिर में रंग के अनुसार गिनती करें संवाद, चुनें सशर्त फॉर्मेटिंग के अंतर्गत रंग विधि सूची और फॉन्ट के अंतर्गत रंग का प्रकार सूची। फिर आप संवाद में गिनती और सारांश का परिणाम देख सकते हैं। स्क्रीनशॉट देखें:

दस्तावेज़-गिनती-दर-सशर्त-रंग-5

नोट: यदि आप गणना परिणाम को रिपोर्ट के रूप में आउटपुट करना चाहते हैं, तो आप क्लिक कर सकते हैं रिपोर्ट तैयार करें Iएन रंग के अनुसार गिनती करें डायलॉग, फिर एक नई कार्यपुस्तिका में एक रिपोर्ट बनाई जाएगी। स्क्रीनशॉट देखें:

दस्तावेज़-गिनती-दर-सशर्त-रंग-6      दस्तावेज़-गिनती-दर-सशर्त-रंग-7


Excel के लिए Kutools द्वारा सशर्त स्वरूपण के साथ पृष्ठभूमि रंग द्वारा कोशिकाओं की गणना/योग करें

यदि आप सशर्त स्वरूपण के साथ पृष्ठभूमि रंग के आधार पर कोशिकाओं की गिनती या योग करना चाहते हैं, तो आप भी आवेदन कर सकते हैं रंग के अनुसार गिनती करें की उपयोगिता एक्सेल के लिए कुटूल.

1. उस श्रेणी का चयन करें जिसे आप सशर्त स्वरूपण के साथ पृष्ठभूमि रंग के आधार पर कोशिकाओं को गिनना या जोड़ना चाहते हैं, फिर क्लिक करें कुटूल्स प्लस > रंग के अनुसार गिनती करें.

बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:

2. फिर में रंग के अनुसार गिनती करें संवाद, चुनें सशर्त फॉर्मेटिंग के अंतर्गत रंग विधि सूची और पृष्ठभूमि के अंतर्गत रंग का प्रकार सूची। फिर आप संवाद में गिनती और सारांश का परिणाम देख सकते हैं। स्क्रीनशॉट देखें:

दस्तावेज़-गिनती-दर-सशर्त-रंग-8

नोट: यदि आप गणना परिणाम को रिपोर्ट के रूप में आउटपुट करना चाहते हैं, तो आप क्लिक कर सकते हैं रिपोर्ट बनाओ में रंग के अनुसार गिनती करें डायलॉग, फिर एक नई कार्यपुस्तिका में एक रिपोर्ट बनाई जाएगी। स्क्रीनशॉट देखें:

दस्तावेज़-गिनती-दर-सशर्त-रंग-9

रंग के अनुसार गणना पर अधिक जानकारी के लिए यहां क्लिक करें।

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


तीर नीला दायां बुलबुला फ़ॉन्ट रंग या पृष्ठभूमि रंग के आधार पर कोशिकाओं की गणना करें


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

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

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

Description


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

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

This is a great piece of VBA and works perfectly. Are you able to modify this code to make it a function and then be used as a formula?

e.g.
=DisplayFormatCount(A14:E14,A2,False) for counting background colour (Count Range, Colour Match Cell, type)

=DisplayFormatCount(C29:D29,A2,True) for counting font colour

I would like to you something like this for an input form of many tables and validation fields that are compulsory. I would then be able to count how many fields that have not been completed correctly.


Cheers
This comment was minimized by the moderator on the site
Could you please teach me VBA codes I would like to learn VBA using excel sheet
This comment was minimized by the moderator on the site
Chào bạn.

VBA đếm ô màu rất hay, tuy nhiên bạn có thể sửa giúp mình để kết quả không hiện thành msg box mà hiện luôn trên ô excel chỉ định được không? thêm cả hàm sum, average nữa thì càng tốt :D . Mail của mình là . Mình cám ơn.
This comment was minimized by the moderator on the site
Hi,
How do I modified the code for the cell contain conditional formatting? Because it count the background as "blank".


Thanks.
This comment was minimized by the moderator on the site
Sorry I have no idea about the VBA code.
This comment was minimized by the moderator on the site
May I congratulate you on a most easily understood and well written VBA program to perform such a simple task - i.e., count the number of cells with a specific color derived from Conditional Formatting. It beats the pants of the monster program by Pearson, and his does not even work, at least in Excel 2013. Nor do other supposed counting programs work that I have tried. Yours is the only one!! This worked perfectly. Thank you, thank you, thank you. Best Holiday Wishes, Mort in Dallas
This comment was minimized by the moderator on the site
hi


kindly send the above VBA code same code is I need please help.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations