डेटासह सेलमधील चार्टचा रंग

समस्येचे सूत्रीकरण

मला हिस्टोग्रामवरील स्तंभ (किंवा पाई चार्टवरील स्लाइस इ.) आपोआप स्रोत डेटासह संबंधित सेल भरण्यासाठी वापरलेले रंग हवे आहेत:

वैयक्तिक कॉम्रेड्सच्या आश्चर्यचकित आणि संतप्त रडण्याचा अंदाज घेऊन, हे लक्षात घेतले पाहिजे की, अर्थातच, आकृतीमध्ये भरण्याचा रंग देखील व्यक्तिचलितपणे बदलला जाऊ शकतो (स्तंभावर उजवे-क्लिक करा - पॉइंट/मालिका स्वरूप (डेटा पॉइंट/मालिका फॉरमॅट करा) इ. - कोणीही वाद घालत नाही. परंतु सराव मध्ये, बर्याच परिस्थिती आहेत जेव्हा डेटासह सेलमध्ये हे करणे सोपे आणि अधिक सोयीस्कर असते आणि नंतर चार्ट स्वयंचलितपणे पुन्हा रंगविला जावा. उदाहरणार्थ, या चार्टमधील स्तंभांसाठी प्रदेशानुसार भरणे सेट करण्याचा प्रयत्न करा:

मला वाटते की तुम्हाला कल्पना आली आहे, बरोबर?

उपाय

मॅक्रोशिवाय काहीही हे करू शकत नाही. म्हणून, आम्ही उघडतो व्हिज्युअल बेसिक संपादक टॅब वरून विकसक (डेव्हलपर - व्हिज्युअल बेसिक एडिटर) किंवा कीबोर्ड शॉर्टकट दाबा Alt + F11, मेनूमधून नवीन रिकामे मॉड्यूल घाला घाला - मॉड्यूल आणि तेथे अशा मॅक्रोचा मजकूर कॉपी करा, जे सर्व कार्य करेल:

Sub SetChartColorsFromDataCells() TypeName(निवड) असल्यास <> "चार्टएरिया" नंतर MsgBox "Сначала выделите диаграмму!" j = 1 साठी c.SeriesCollection.Count f = c.SeriesCollection(j) साठी c = ActiveChart सेट केल्यास सब एंडमधून बाहेर पडा. फॉर्म्युला m = Split(f, ",") i साठी r = श्रेणी(m(2)) सेट करा = 1 ते r.Cells.Count c.Series Collection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.Color Next i Next j End Sub  

तुम्ही आता Visual Basic बंद करून Excel वर परत येऊ शकता. तयार केलेला मॅक्रो वापरणे खूप सोपे आहे. चार्ट निवडा (चार्ट क्षेत्र, भूखंड क्षेत्र, ग्रिड किंवा स्तंभ नाही!):

आणि बटणासह आमचा मॅक्रो चालवा मॅक्रो टॅब विकसक (विकासक — मॅक्रो) किंवा कीबोर्ड शॉर्टकटसह Alt + F8. त्याच विंडोमध्ये, वारंवार वापरल्यास, तुम्ही बटण वापरून मॅक्रोला कीबोर्ड शॉर्टकट नियुक्त करू शकता. घटके (पर्याय).

PS

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

• मॅक्रो म्हणजे काय, ते कसे वापरायचे, व्हिज्युअल बेसिकमध्ये मॅक्रो कोड कुठे टाकायचा
• एक्सेल 2007-2013 मध्ये सशर्त स्वरूपन
• Excel 2013 मधील चार्टमध्ये नवीन काय आहे