<पी> हमने लगातार 3 वर्षों के लिए मासिक बिक्री का डेटासेट लिया है:2020, 2021, और 2022। हम एक चार्ट तैयार करेंगे जो स्वचालित रूप से बदल जाएगा। <पी> 
चरण 1 - हेल्पर कॉलम के साथ एक चार्ट स्थापित करना
- तीन सहायक "बिक्री" कॉलम डालें।
<पी> 
<पी> नोट :आप बेहतर विज़ुअलाइज़ेशन के लिए सहायक कॉलम को हाइलाइट कर सकते हैं। - किसी रिक्त कक्ष में ले जाएँ।
- सम्मिलित करें पर नेविगेट करें टैब.
- चार्ट के अंतर्गत अनुभाग, सम्मिलित करें चुनें रेखा या क्षेत्र चार्ट और स्टैक्ड लाइन चुनें .
<पी> 
- चार्ट पर राइट-क्लिक करें और डेटा चुनें पर क्लिक करें .
<पी> 
- डेटा स्रोत चुनें संवाद बॉक्स पॉप आउट हो जाता है।
- जोड़ें चुनें लीजेंड प्रविष्टियाँ (श्रृंखला) से .
<पी> 
- आप संपादन श्रृंखला देखेंगे खिड़की.
- श्रृंखला के नाम में बॉक्स में, बिक्री (2020) चुनें , औरश्रृंखला मानमें बॉक्स में, डेटा श्रेणी $F$5:$F$16 चुनें .
- ठीक दबाएँ .
<पी> 
- सभी "बिक्री का चयन करने के लिए दोहराएं ” कॉलम और संबंधित सहायक कॉलम।
<पी> 
- इसके अलावा, क्षैतिज (श्रेणी) अक्ष लेबल में , संपादित करें पर जाएं .
<पी> 
- इसके बाद, एक्सिस लेबल डायलॉग बॉक्स पॉप आउट। $B$5:$B$16 से डेटा श्रेणी चुनें . ठीक क्लिक करें .
<पी> 
<पी> अंत में, ठीक दबाएँ डेटा स्रोत चुनें में खिड़की. <पी> 
<पी> और पढ़ें: एक्सेल में एनिमेटेड बार चार्ट रेस कैसे बनाएं चरण 2 - चार्ट को फ़ॉर्मेट करना
- चार्ट शीर्षक बनाएं , अक्ष शीर्षक , औरकिंवदंती सबसे नीचे. ये चार्ट एलिमेंट्स से उपलब्ध हैं
<पी> 
<पी> आपका चार्ट कुछ हद तक नीचे दी गई छवि के समान दिखाई देगा। <पी> 
चरण 3 - वीबीए कोड का उपयोग करना
- डेवलपर के पास जाएं टैब करें और विज़ुअल बेसिक चुनें .
<पी> 
- सम्मिलित करें चुनें टैब पर जाएं और मॉड्यूल चुनें .
<पी> 
- मॉड्यूल 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
<पी> 
<पी> कोड ब्रेकडाउन <पी> हम वेरिएबल घोषित करते हैं प्रथम. हम स्थिरांक सेट करते हैं एसआर के रूप में प्रारंभिक पंक्ति का प्रतिनिधित्व करना . हमारे मामले में, यह5है . एलआर और आरएन अंतिम पंक्ति के मानों को संदर्भित करने वाले चर भी हैं और पंक्ति संख्या क्रमशः. <पी> LR =रेंज(“C” और SR).End(xlDown).Row→ कमांड संबंधित कॉलम (F:H) के सभी मान हटा देता है ). <पी> रेंज ("एफ" और एसआर, "एच" और एलआर)।सामग्री साफ़ करें→ सेल की श्रेणी चुनी, सेल मानों को पंक्ति दर पंक्ति दिखाना शुरू किया और F के रिक्त कॉलम भर दिए। सेहं . <पी> हमने समय विलंब निर्धारित किया है से 1 दूसरा, जो हमें 1-सेकंड पर डेटा दिखाने में मदद करेगा विलंब, जो चार्ट को एक गतिशील जीवंतता देता है। चरण 4 - एनीमेशन उत्पन्न करने के लिए एक बटन दर्ज करना
- फ़ॉर्म नियंत्रण का उपयोग करके एक बटन जोड़ें आपकी वर्कशीट में.
- इसका नाम बदलकर एनीमेशन कर दें
- एनीमेशन पर राइट-क्लिक करें बटन दबाएं और मैक्रो असाइन करें चुनें संदर्भ मेनू से .
<पी> 
- मैक्रो असाइन करें संवाद बॉक्स प्रकट होता है.
- मैक्रो नाम चुनें एनीमेशनचार्ट के रूप में .
- ठीक दबाएँ .
<पी> 
- एनिमेटेड चार्ट तैयार है. एनीमेशन पर क्लिक करें बटन.
<पी> 
अभ्यास अनुभाग
<पी> हमने प्रत्येक शीट पर दाईं ओर एक अभ्यास अनुभाग प्रदान किया है ताकि आप चरणों का अभ्यास कर सकें। <पी> 
<पी> अभ्यास कार्यपुस्तिका डाउनलोड करें संबंधित लेख
- एक्सेल में टेक्स्ट को एनिमेट कैसे करें
- यूजरफॉर्म में VBA एनिमेशन
समाधान के साथ निःशुल्क उन्नत एक्सेल अभ्यास प्राप्त करें!
