एक्सेल में एनिमेटेड सेल्स चार्ट बनाएं - स्टेप-बाय-स्टेप गाइड

हमने लगातार 3 वर्षों के मासिक बिक्री का डेटासेट लिया है: 2020, 2021, और 2022। हम एक चार्ट बनाएंगे जो ऑटोमैटिकली बदलता है।

चरण 1 - हेल्पर कॉलम के साथ चार्ट सेट करना

• तीन हेल्पर "Sales" कॉलम इन्सर्ट करें।

नोट: बेहतर विज़ुअलाइज़ेशन के लिए आप हेल्पर कॉलम को हाइलाइट कर सकते हैं।

• एक खाली सेल पर जाएं।
• इन्सर्ट टैब पर नेविगेट करें।
• चार्ट्स सेक्शन के तहत, इन्सर्ट लाइन या एरिया चार्ट चुनें और स्टैक्ड लाइन चुनें।

• चार्ट पर राइट-क्लिक करें और सिलेक्ट डेटा पर क्लिक करें।

• सिलेक्ट डेटा सोर्स डायलॉग बॉक्स खुलेगा।
• लीजेंड एंट्रीज़ (सीरीज़) से ऐड चुनें।

• आप एडिट सीरीज़ विंडो देखेंगे।
• सीरीज़ नाम बॉक्स में, Sales (2020) सेलेक्ट करें, और सीरीज़ वैल्यूज़ बॉक्स में, डेटा रेंज $F$5:$F$16 सेलेक्ट करें।
• OK दबाएं।

• सभी "Sales" कॉलम और संबंधित हेल्पर कॉलम सेलेक्ट करने के लिए दोहराएं।

• इसके अलावा, हॉरिजॉन्टल (कैटेगरी) एक्सिस लेबल्स में, एडिट पर जाएं।

• इसके बाद, एक्सिस लेबल्स डायलॉग बॉक्स खुलेगा। $B$5:$B$16 से डेटा रेंज सेलेक्ट करें। OK पर क्लिक करें।

अंत में, सिलेक्ट डेटा सोर्स विंडो में OK दबाएं।

और पढ़ें: एक्सेल में एनिमेटेड बार चार्ट रेस कैसे बनाएं

चरण 2 - चार्ट फॉर्मेट करना

• चार्ट टाइटल, एक्सिस टाइटल्स, और नीचे लीजेंड बनाएं। ये चार्ट एलिमेंट्स से उपलब्ध हैं।

आपका चार्ट नीचे दी गई इमेज के समान दिखेगा।

चरण 3 - VBA कोड का उपयोग

• डेवलपर टैब पर जाएं और विजुअल बेसिक चुनें।

• इन्सर्ट टैब चुनें और मॉड्यूल सेलेक्ट करें।

• मॉड्यूल 1 में, आप जनरल बॉक्स देखेंगे।
• वहां निम्न VBA कोड डालें और सेव करें।

Sub AnimationChart()
Const SR As Long = 5
Dim LR As Long
Dim RN As Long
LR = Range("C" & SR).End(xlDown).Row
Range("F" & SR, "H" & LR).ClearContents
DoEvents
Application.Wait (Now + TimeValue("00:00:1"))
For RN = SR To LR
    DoEvents
    Range("F" & RN, "H" & RN).Value = Range("C" & RN, "E" & RN).Value
    Application.Wait (Now + TimeValue("00:00:1"))
    DoEvents
Next RN
End Sub

कोड ब्रेकडाउन

हम पहले वेरिएबल्स डिक्लेयर करते हैं। हम कॉन्स्टेंट को SR के रूप में सेट करते हैं जो शुरुआती पंक्ति दर्शाता है। हमारे मामले में, यह 5 है। LR और RN भी वेरिएबल हैं जो क्रमशः अंतिम पंक्ति और पंक्ति संख्या के मानों को संदर्भित करते हैं।

LR = Range("C" & SR).End(xlDown).Row→ कमांड संबंधित कॉलम (F:H) के सभी मानों को हटा देता है।

Range("F" & SR, "H" & LR).ClearContents→ सेल्स की रेंज चुनी, पंक्ति दर पंक्ति सेल मान दिखाना शुरू किया और F से H के खाली कॉलम भर दिए।

हमने समय देरी को 1 सेकंड पर सेट किया है, जो हमें डेटा को 1-सेकंड की देरी से दिखाने में मदद करेगा, जो चार्ट को डायनामिक वाइब देता है।

चरण 4 - एनिमेशन जनरेट करने के लिए बटन जोड़ना

• अपनी वर्कशीट में फॉर्म कंट्रोल्स का उपयोग करके एक बटन जोड़ें।
• इसे एनिमेशन नाम दें।
• एनिमेशन बटन पर राइट-क्लिक करें और कॉन्टेक्स्ट मेनू से असाइन मैक्रो चुनें।

• असाइन मैक्रो डायलॉग बॉक्स दिखाई देगा।
• मैक्रो नाम के रूप में AnimationChart सेलेक्ट करें।
• OK दबाएं।

• एनिमेटेड चार्ट तैयार है। एनिमेशन बटन पर क्लिक करें।

प्रैक्टिस सेक्शन

हमने प्रत्येक शीट के दाईं ओर एक प्रैक्टिस सेक्शन प्रदान किया है ताकि आप चरणों का अभ्यास कर सकें।

प्रैक्टिस वर्कबुक डाउनलोड करें

संबंधित आर्टिकल

• एक्सेल में टेक्स्ट कैसे एनिमेट करें
• यूजरफॉर्म में VBA एनिमेशन

मुफ्त एडवांस एक्सेल अभ्यास समाधान के साथ प्राप्त करें!