/ / एक्सेल वीबीए में रोलिंग औसत

एक्सेल वीबीए में रोलिंग औसत

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA जो एक बनाता है रोलिंग औसत तालिका। अपने वर्कशीट पर कमांड बटन रखें और निम्न कोड लाइन जोड़ें:

Range("B3").Value = WorksheetFunction.RandBetween(0, 100)

यह कोड लाइन 0 के बीच एक यादृच्छिक संख्या में प्रवेश करती हैऔर सेल बी 3 में 100। हम एक्सेल वीबीए को नया स्टॉक वैल्यू लेना चाहते हैं और इसे रोलिंग औसत टेबल की पहली स्थिति में रखना चाहते हैं। अन्य सभी मूल्यों को एक स्थान पर ले जाना चाहिए और अंतिम मान हटा दिया जाना चाहिए।

एक्सेल वीबीए में रोलिंग औसत तालिका

एक्सेल वीबीए में रोलिंग औसत तालिका

वर्कशीट चेंज इवेंट बनाएं। वर्कशीट चेंज इवेंट में जोड़ा गया कोड एक्सेल वीबीए द्वारा निष्पादित किया जाएगा जब आप वर्कशीट पर सेल बदलते हैं।

1. विजुअल बेसिक एडिटर खोलें।

2. प्रोजेक्ट एक्सप्लोरर में शीट 1 (शीट 1) पर डबल क्लिक करें।

3. बाएं ड्रॉप-डाउन सूची से वर्कशीट चुनें। दाएं ड्रॉप-डाउन सूची से बदलें चुनें।

एक्सेल वीबीए में वर्कशीट चेंज इवेंट

वर्कशीट चेंज इवेंट में निम्न कोड लाइन जोड़ें:

4. प्रकार परिवर्तक और दो श्रेणियों (firstfourvalues ​​और lastfourvalues) के नए प्रकार नामक एक चर घोषित करें।

Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range

5. वर्कशीट चेंज इवेंट शीट 1 पर सभी बदलावों को सुनता है। सेल बी 3 में कुछ बदलाव होने पर हम केवल एक्सेल वीबीए कुछ करना चाहते हैं। इसे प्राप्त करने के लिए, निम्न कोड पंक्ति जोड़ें:

If Target.Address = "$B$3" Then

6. हम सेल बी 3 के मूल्य के साथ नए स्तर को शुरू करते हैं, रेंज ("डी 3: डी 6") के साथ पहलेफॉरवेल्यूज और रेंज ("डी 4: डी 7") के साथ अंतिम फाउलव्यू।

newvalue = Range("B3").Value
Set firstfourvalues = Range("D3:D6")
Set lastfourvalues = Range("D4:D7")

7. अब सरल चाल आता है। हम रोलिंग औसत तालिका को अपडेट करना चाहते हैं। आप पिछले चार मानों को तालिका के पहले चार मानों के साथ बदलकर और नए स्टॉक मान को पहले स्थान पर रखकर प्राप्त कर सकते हैं।

lastfourvalues.Value = firstfourvalues.Value
Range("D3").Value = newvalue

8. अगर कथन को बंद करना न भूलें।

End if

9। अंत में, सूत्र डी = एवरेज (डी 3: डी 7) सेल डी 8 में दर्ज करें।

10. कमांड बटन पर क्लिक करके प्रोग्राम का परीक्षण करें।

यह भी पढ़ें: