इस सप्ताह के एक्सेल प्रश्न में शैरी भेजता है।
मैं इसका जवाब हमारे आईटी विभाग, एक्सेल हेल्प फाइल्स, या Microsoft एक्सेल ऑनलाइन की मदद से नहीं खोज पा रहा हूं और उम्मीद है कि आप मदद कर सकते हैं।
मैं बीस साल की अवधि में एक्सेल डेटा का विश्लेषण कर रहा हूं, और प्रत्येक वर्ष के लिए एक्सेल पाई चार्ट बनाने की आवश्यकता है। एक्सेल चार्ट एक पिवट टेबल पर आधारित हैं (या एक्सेल 2000 में पिवट चार्ट), पेज फ़ील्ड के रूप में वर्ष के साथ। समस्या यह है कि सभी वर्षों में समान आइटम नहीं होते हैं, इसलिए प्रत्येक एक्सेल चार्ट उसी के लिए एक अलग रंग का उपयोग करेगा पाई का टुकड़ा।
हम इन 20 वर्षों में डेटा की तुलना करने की कोशिश कर रहे हैं, इसलिए प्रत्येक चार्ट के लिए समान रंग होना आवश्यक है। मैं अंत में पहले वाले मैच के लिए कई चार्ट पर प्रत्येक स्लाइस को बदलना चाहता हूं, कभी-कभी कई बार क्योंकि रंग बदल सकते हैं यदि डेटा बदलता है और मुझे चार्ट पर आधारित पिवट टेबल को फिर से स्थापित करना होगा।
MrExcel ने पहली बार धुरी चार्ट को आज़माया। पिवट चार्ट डेटा के कई अलग-अलग परिदृश्यों के लिए एक चार्ट बनाने के लिए एक बहुत शक्तिशाली तरीका है, लेकिन उनके पास यह कष्टप्रद दोष है। मैंने कक्षा वर्ष के साथ पृष्ठ के रूप में वर्ष के साथ धुरी तालिका की स्थापना की। मैंने उतरते अंकों के आधार पर कक्षा वर्ष के लिए कहा। जैसे-जैसे आप साल-दर-साल पिवट चार्ट बदलते हैं, फ्रेशमैन से जुड़े पाई स्लाइस के रंग बदल जाएंगे। कुछ वर्षों में सभी चार वर्गों के सदस्य हैं, अन्य वर्षों में सिर्फ 3 वर्गों के सदस्य हैं।
एक्सेल प्रत्येक स्लाइस पर रंगों का एक डिफ़ॉल्ट क्रम लागू करता है, इसलिए संबंधित रंग वर्ष-दर-वर्ष बदल जाएंगे। मैं अपने प्रबंधक को घृणा में अपना सिर हिलाते हुए देख सकता हूं क्योंकि मैंने उसे ये चार्ट दिए थे।
इस समस्या को हल करने के लिए एक दृश्य मूल मैक्रो के साथ एक तरीका है। यदि आप लेबल नाम प्रदर्शित करने के लिए डटलैबल्स सेट करते हैं, तो विज़ुअल बेसिक के भीतर प्रत्येक स्लाइस का नाम ढूंढना संभव है। एक बार जब आपके पास एक नाम होता है, तो आप नाम के मूल्य के आधार पर उस स्लाइस के रंग को फिर से रंग सकते हैं।
एक्सेल ने 1990 के लिए ऊपर के रंगों का उपयोग किया, लेकिन 1991 में रंग वस्तुओं की संख्या और उनके अनुक्रम में परिवर्तन के रूप में बदल जाते हैं:
शैरी के विशिष्ट उदाहरण के लिए निम्नलिखित मैक्रो हार्ड-कोडेड है जहां उसके पास फ्रेशमैन, सोफोमोर, जूनियर और सीनियर के संभावित मूल्य हैं। अलग-अलग रंग सूचकांकों के साथ अतिरिक्त केस स्टेटमेंट जोड़कर, आप अपनी विशेष स्थिति को संभालने के लिए इसे अनुकूलित कर सकते हैं।
Sub ColorPieSlices() ' Copyright 1999.com ' This macro will re-color the pie slices in a chart ' So that slices for a specific category are similarly colored ' Select the chart before calling the macro ' ' Find the number of pie slices in this chart NumPoints = ActiveChart.SeriesCollection(1).Points.Count ' Loop through each pie slice For x = 1 To NumPoints ' Save the label currently attached to this slice If ActiveChart.SeriesCollection(1). _ Points(x).HasDataLabel = True Then SavePtLabel = ActiveChart.SeriesCollection(1) _ .Points(x).DataLabel.Text Else SavePtLabel = "" End If ' Assign a new data label of just the point name ActiveChart.SeriesCollection(1).Points(x).ApplyDataLabels Type:= _ xlDataLabelsShowLabel, AutoText:=True ThisPt = ActiveChart.SeriesCollection(1).Points(x).DataLabel.Text ' Based on the label of this slice, set the color Select Case ThisPt Case "Freshman" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 3 Case "Sophomore" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 4 Case "Junior" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 5 Case "Senior" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 6 Case Else ' Add code here to handle an unexpected label End Select ' Return the label to it's original pre-macro state ActiveChart.SeriesCollection(1). _ Points(x).DataLabel.Text = SavePtLabel Next x End SubVB संपादक की शुरुआत F-F11 से करें। क्या सम्मिलित करें - मॉड्यूल। प्रक्रिया डालें। नाम के रूप में ColorPieSlices टाइप करें और OK पर क्लिक करें। उपरोक्त मैक्रो दर्ज करें।
जीवन को आसान बनाने के लिए, एक्सेल में शॉर्टकट को मैक्रो असाइन करें। एक्सेल में, टूल्स करें - मैक्रो। ColorPieSlices हाइलाइट करें और विकल्प बटन पर क्लिक करें। शॉर्टकट कुंजी बॉक्स में, "d" दर्ज करें। ठीक पर क्लिक करें और ऊपरी दाहिने हाथ के कोने में "x" पर क्लिक करके मैक्रो संवाद बॉक्स को बंद करें। अब, अपना पिवट चार्ट बदलने के बाद, आप अपने पसंदीदा रंग सेट में पाई स्लाइस को पुनः प्राप्त करने के लिए Ctrl + D को हिट कर सकते हैं।
