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

Excel में सेल रंग के आधार पर चार्ट को कैसे रंगें?

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

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

वीबीए कोड के साथ सेल रंग के आधार पर चार्ट को एक या एकाधिक डेटा श्रृंखला से रंगें

एक अद्भुत विशेषता के साथ सेल रंग के आधार पर एक या एकाधिक डेटा श्रृंखला के साथ चार्ट को रंग दें


वीबीए कोड के साथ सेल रंग के आधार पर चार्ट को एक या एकाधिक डेटा श्रृंखला से रंगें

सेल रंग के आधार पर एक डेटा श्रृंखला के साथ चार्ट को रंग दें

निम्नलिखित वीबीए कोड के साथ, आप चार्ट का रंग तुरंत बदल सकते हैं जिसमें मूल सेल मान रंग के आधार पर एक डेटा श्रृंखला शामिल है, कृपया ऐसा करें:

1. सबसे पहले, दिखाए गए स्क्रीनशॉट के अनुसार एक बार या कॉलम चार्ट बनाएं (डेटा चुनें और क्लिक करें)। सम्मिलित करें > कॉलम या बार चार्ट डालें):

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

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

वीबीए कोड: सेल रंग के आधार पर एक डेटा श्रृंखला के साथ रंग चार्ट बार:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

नोट: उपरोक्त कोड में, चार्ट 1 यह वह चार्ट नाम है जिसका आप उपयोग करना चाहते हैं, कृपया इसे अपने नाम से बदलें।

4. उपरोक्त कोड को पेस्ट करने के बाद कृपया दबाएँ F5 इस कोड को चलाने के लिए कुंजी, और चार्ट बार का रंग मूल सेल रंग के आधार पर बदल दिया गया है, स्क्रीनशॉट देखें:


सेल रंग के आधार पर चार्ट को एकाधिक डेटा श्रृंखला से रंगें

यदि आपका चार्ट एकाधिक डेटा श्रृंखला वाला है, तो कृपया निम्नलिखित VBA कोड लागू करें:

1. कृपया बार या कॉलम चार्ट बनाएं जिसमें कई डेटा श्रृंखलाएं हों जैसा कि स्क्रीनशॉट में दिखाया गया है:

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

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

वीबीए कोड: सेल रंग के आधार पर एकाधिक डेटा श्रृंखला के साथ रंग चार्ट बार:

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, चार्ट बार एक ही बार में मूल सेल रंग से भर जाते हैं, स्क्रीनशॉट देखें:

टिप्पणियाँ:

1. उपरोक्त कोड में, चार्ट 1 यह वह चार्ट नाम है जिसका आप उपयोग करना चाहते हैं, कृपया इसे अपने नाम से बदलें।

2. इस कोड को लाइन चार्ट पर भी लागू किया जा सकता है।


एक अद्भुत विशेषता के साथ सेल रंग के आधार पर एक या एकाधिक डेटा श्रृंखला के साथ चार्ट को रंग दें

उपरोक्त कोड का उपयोग करके, चार्ट के रंग हमेशा सेल रंग से मेल नहीं खाएंगे, इस समस्या को हल करने के लिए, यहां, मैं एक उपयोगी टूल पेश करूंगा - सेल रंग के अनुसार चार्ट का रंग बदलें of एक्सेल के लिए कुटूल, इस उपयोगी सुविधा के साथ, आप सेल रंग के आधार पर चार्ट को जल्दी और आसानी से रंग सकते हैं।

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

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

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

2. और फिर, एक प्रॉम्प्ट बॉक्स पॉप आउट होता है, कृपया क्लिक करें OK बटन.

3. अब, आपके द्वारा चुना गया चार्ट नीचे दिखाए गए स्क्रीनशॉट के अनुसार सेल रंगों के आधार पर रंगीन हो गया है:

सेल रंग के आधार पर एक डेटा श्रृंखला के साथ चार्ट को रंग दें

सेल रंग के आधार पर चार्ट को एकाधिक डेटा श्रृंखला से रंगें

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


अधिक सापेक्ष चार्ट लेख:

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

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

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

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

Description


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

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



Sub CellColorsToChart()'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, J As Long, Y As Long
Dim xRowsOrCols As Long, xSCount As Long Dim xRg As Range, xCell As Range
On Error Resume Next

For Y = 1 To 100Set xChart = ActiveSheet.ChartObjects("Chart "&Y).Chart If xChart Is Nothing Then Exit Sub
xSCount = xChart.SeriesCollection.Count
For I = 1 To xSCount
J = 1
With xChart.SeriesCollection(I)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
If xSCount > 4 Then
xRowsOrCols = xRg.Columns.Count
Else
xRowsOrCols = xRg.Rows.Count
End If
For Each xCell In xRg
.Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
.Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
J = J + 1
Next
End WithNext
Next
End Sub

This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
This comment was minimized by the moderator on the site
It is ok. But... why simply not going to "Format Legend Entry" option in every data series in the chart, and go "Fill" and make it the color you want. I mean... all is ok, but a VBA code for this simple task is kinda overkill. But thanks. Appreciate you share it.
This comment was minimized by the moderator on the site
i cant make it work :( is this supposed to work on a stacked bar chart? Thanks
This comment was minimized by the moderator on the site
This was an awesome start, but the colors of the chart and the cells don't always match. Any idea why?
This comment was minimized by the moderator on the site
Thank you for the codes! How would you add a conditional format when the format is already established?
This comment was minimized by the moderator on the site
Thank you for these codes! This was exactly what I've been looking for with one detail not quite fitting. When I ran the code, the bar graphs colored in correctly but not legend which stayed unchanged. Is there a variation to the code that would include the legend? Or is there a way to match the Legend to the changes in the chart without a code?
This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations