यसको डेटा भएको कक्षहरूबाट चार्टको रङ

समस्याको सूत्रीकरण

म हिस्टोग्राम (वा पाई चार्टमा स्लाइसहरू, आदि) मा स्तम्भहरू स्वचालित रूपमा स्रोत डेटासँग सम्बन्धित कक्षहरू भर्न प्रयोग गरिएको रङ चाहान्छु:

व्यक्तिगत कामरेडहरूको आश्चर्यचकित र क्रोधित रोएको अनुमान गर्दै, यो ध्यान दिनुपर्छ कि, निस्सन्देह, रेखाचित्रमा भरिएको रंग पनि म्यानुअल रूपमा परिवर्तन गर्न सकिन्छ (स्तम्भमा दायाँ क्लिक गर्नुहोस् - बिन्दु/श्रृङ्खला ढाँचा (ढाँचा बिन्दु/श्रृङ्खला) आदि - कसैले तर्क गर्दैन। तर व्यवहारमा, त्यहाँ धेरै परिस्थितिहरू छन् जब यो डेटाको साथ कक्षहरूमा सीधा गर्न सजिलो र अधिक सुविधाजनक छ, र त्यसपछि चार्ट स्वचालित रूपमा पुन: पेन्ट हुनुपर्छ। प्रयास गर्नुहोस्, उदाहरणका लागि, यस चार्टमा स्तम्भहरूको लागि क्षेत्र अनुसार भर सेट गर्न:

मलाई लाग्छ कि तपाईंले विचार पाउनुभयो, हैन?

समाधान

एक म्याक्रो बाहेक केहि गर्न सक्दैन। त्यसैले, हामी खोल्छौं भिजुअल बेसिक सम्पादक ट्याबबाट विकासकर्ता (विकासकर्ता - भिजुअल बेसिक सम्पादक) वा किबोर्ड सर्टकट थिच्नुहोस् Alt + F11, मेनु मार्फत नयाँ खाली मोड्युल घुसाउनुहोस् घुसाउनुहोस् - मोड्युल र त्यहाँ यस्तो म्याक्रोको पाठ प्रतिलिपि गर्नुहोस्, जसले सबै काम गर्नेछ:

Sub SetChartColorsFromDataCells() यदि TypeName(चयन) <> "चार्टएरिया" त्यसपछि MsgBox "Сначала выделите диаграмму!" j = 1 मा c.SeriesCollection.Count f = c.SeriesCollection(j) का लागि सेट गर्नुहोस् भने Sub Endबाट बाहिर निस्कनुहोस्। सूत्र m = Split(f, ",") सेट गर्नुहोस् r = दायरा(m(2)) i को लागि = 1 को r.Cells.Count c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.color Next i Next j End Sub  

तपाईं अब Visual Basic बन्द गरेर Excel मा फर्कन सक्नुहुन्छ। सिर्जना गरिएको म्याक्रो प्रयोग गर्नु धेरै सरल छ। चार्ट चयन गर्नुहोस् (चार्ट क्षेत्र, प्लट क्षेत्र, ग्रिड वा स्तम्भहरू होइन!):

र बटनको साथ हाम्रो म्याक्रो चलाउनुहोस् म्याक्रो ट्याब विकासकर्ता (विकासकर्ता - म्याक्रो) वा किबोर्ड सर्टकटको साथ Alt + F8। एउटै विन्डोमा, बारम्बार प्रयोगको अवस्थामा, तपाईले बटन प्रयोग गरेर म्याक्रोमा किबोर्ड सर्टकट तोक्न सक्नुहुन्छ। परिमिति (विकल्पहरू).

PS

मलमा मात्र फ्लाई सशर्त ढाँचा नियमहरू प्रयोग गरेर स्रोत डेटाको कक्षहरूमा रङ तोकिएको केसहरूको लागि समान प्रकार्य प्रयोग गर्ने असम्भवता हो। दुर्भाग्यवश, भिजुअल बेसिकसँग यी रङहरू पढ्नको लागि निर्मित उपकरण छैन। निस्सन्देह, केहि "बैसाखी" छन्, तर तिनीहरू सबै केसहरूमा काम गर्दैनन् र सबै संस्करणहरूमा होइन।

• म्याक्रोहरू के हुन्, तिनीहरूलाई कसरी प्रयोग गर्ने, भिजुअल बेसिकमा म्याक्रो कोड कहाँ घुसाउने
• एक्सेल 2007-2013 मा सशर्त ढाँचा
• एक्सेल 2013 मा चार्टहरूमा नयाँ के छ