/ / एक्सेल वीबीए घटनाक्रम

एक्सेल वीबीए घटनाक्रम

वर्कबुक ओपन इवेंट | वर्कशीट चेंज इवेंट

आयोजन उपयोगकर्ताओं द्वारा किए गए कार्यों को ट्रिगर करते हैं एक्सेल VBA कोड निष्पादित करने के लिए।

वर्कबुक ओपन इवेंट

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

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

2. परियोजना एक्सप्लोरर में इस वर्कबुक पर डबल क्लिक करें।

3. बाएं ड्रॉप-डाउन सूची से कार्यपुस्तिका चुनें। दाएं ड्रॉप-डाउन सूची से खोलें चुनें।

एक्सेल वीबीए में वर्कबुक ओपन इवेंट

4. वर्कबुक ओपन इवेंट में निम्न कोड लाइन जोड़ें:

MsgBox "Good Morning"

5. एक्सेल फ़ाइल को सहेजें, बंद करें और दोबारा खोलें।

परिणाम:

वर्कबुक ओपन इवेंट परिणाम

वर्कशीट चेंज इवेंट

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

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

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

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

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

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

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

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

End If

5. हम केवल एक्सेल वीबीए को एक संदेश बॉक्स दिखाने के लिए चाहते हैं यदि उपयोगकर्ता 80 से अधिक मान में प्रवेश करता है। इसे प्राप्त करने के लिए, यदि एंड एंड के बीच निम्न कोड पंक्ति जोड़ें।

If Target.Value > 80 Then MsgBox "Goal Completed"

6. शीट 1 पर, सेल बी 2 में 80 से अधिक संख्या दर्ज करें।

80 से अधिक संख्या दर्ज करें

परिणाम:

कार्यपुस्तिका परिवर्तन परिणाम परिणाम

यह भी पढ़ें: