/ / एक्सेल वीबीए में नियंत्रण के माध्यम से लूप

एक्सेल वीबीए में नियंत्रण के माध्यम से लूप

कोड की कुछ पंक्तियों के साथ, हम आसानी से कर सकते हैं नियंत्रण के माध्यम से पाश एक पर एक्सेल वीबीए उपयोगकर्ताform। उपयोगकर्ताफॉर्म हम इस प्रकार दिखने जा रहे हैं:

एक्सेल वीबीए में नियंत्रण के माध्यम से लूप

इस उपयोगकर्ताफॉर्म को बनाने के लिए, निम्न चरणों को निष्पादित करें।

1. विजुअल बेसिक एडिटर खोलें। यदि प्रोजेक्ट एक्सप्लोरर दिखाई नहीं दे रहा है, तो देखें, प्रोजेक्ट एक्सप्लोरर पर क्लिक करें।

2. सम्मिलित करें, उपयोगकर्ताफॉर्म पर क्लिक करें। यदि टूलबॉक्स स्वचालित रूप से प्रकट नहीं होता है, तो व्यू, टूलबॉक्स पर क्लिक करें। आपकी स्क्रीन नीचे के रूप में स्थापित की जानी चाहिए।

एक्सेल वीबीए में उपयोगकर्ताफॉर्म स्क्रीन सेटअप

3। लेबल जोड़ें, चेक बॉक्स (शीर्ष पर सबसे पहले, पहले के नीचे दूसरा, और इसी तरह) और कमांड बटन। एक बार यह पूरा हो जाने के बाद, परिणाम पहले दिखाए गए उपयोगकर्ताफॉर्म की तस्वीर के अनुरूप होना चाहिए। उदाहरण के लिए, टूलबॉक्स से चेकबॉक्स पर क्लिक करके चेक बॉक्स नियंत्रण बनाएं। इसके बाद, आप उपयोगकर्ताफॉर्म पर एक चेक बॉक्स खींच सकते हैं।

4। आप नियंत्रणों के नाम और कैप्शन बदल सकते हैं। एक्सेल वीबीए कोड में नामों का उपयोग किया जाता है। कैप्शन वे हैं जो आपकी स्क्रीन पर दिखाई देते हैं। नियंत्रणों के नाम बदलने के लिए यह अच्छा अभ्यास है, लेकिन यह यहां जरूरी नहीं है क्योंकि हमारे पास इस उदाहरण में केवल कुछ नियंत्रण हैं। उपयोगकर्ताफॉर्म, लेबल, चेक बॉक्स और कमांड बटन के कैप्शन को बदलने के लिए, व्यू, प्रॉपर्टी विंडो पर क्लिक करें और प्रत्येक नियंत्रण पर क्लिक करें।

5. उपयोगकर्ताफॉर्म दिखाने के लिए, अपनी वर्कशीट पर एक कमांड बटन रखें और निम्न कोड लाइन जोड़ें:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

हमने अब उपयोगकर्ताफॉर्म का पहला हिस्सा बनाया है। हालांकि यह पहले से ही साफ दिखता है, फिर भी जब हम साफ़ बटन पर क्लिक करेंगे तब कुछ भी नहीं होगा।

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

7. प्रोजेक्ट एक्सप्लोरर में, UserForm1 पर डबल क्लिक करें।

8. साफ़ बटन पर डबल क्लिक करें।

9. निम्नलिखित कोड लाइन जोड़ें:

Private Sub CommandButton1_Click()

Dim contr As control

For Each contr In UserForm1.Controls
    If TypeName(contr) = "CheckBox" Then
        contr.Value = False
    End If
Next

End Sub

स्पष्टीकरण: एक्सेल वीबीए उपयोगकर्ताफॉर्म पर सभी नियंत्रणों के माध्यम से loops। TypeName फ़ंक्शन का उपयोग चेक बॉक्स नियंत्रणों को फ़िल्टर करने के लिए किया जाता है। यदि चेक बॉक्स नियंत्रण होता है, तो एक्सेल वीबीए चेक बॉक्स को अनचेक करता है। contr यादृच्छिक रूप से यहाँ चुना जाता है, आप किसी भी नाम का उपयोग कर सकते हैं। इस नाम को अपने शेष कोड में संदर्भित करना याद रखें।

परिणाम जब आप साफ़ बटन पर क्लिक करते हैं:

नियंत्रण परिणाम के माध्यम से लूप

यह भी पढ़ें: