/ / एक्सेल वीबीए निर्भर कॉम्बो बॉक्स

एक्सेल वीबीए आश्रित कॉम्बो बॉक्स

नीचे हम एक कार्यक्रम देखेंगे एक्सेल VBA जो उपयोगकर्ताफॉर्म बनाता है जिसमें शामिल है आश्रित कॉम्बो बक्से। उपयोगकर्ताफॉर्म हम इस प्रकार दिखने जा रहे हैं:

उपयोगकर्ता ड्रॉप-डाउन सूची से जानवरों का चयन करता है। नतीजतन, उपयोगकर्ता एक दूसरी ड्रॉप-डाउन सूची से एक जानवर का चयन कर सकते हैं।

एक्सेल वीबीए में निर्भर कॉम्बो बॉक्स

उपयोगकर्ता ड्रॉप-डाउन सूची से खेल का चयन करता है। नतीजतन, उपयोगकर्ता एक दूसरी ड्रॉप-डाउन सूची से एक खेल का चयन कर सकते हैं।

एक्सेल वीबीए में निर्भर कॉम्बो बॉक्स

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

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

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

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

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

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

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

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

अब हम सब UserForm_Initialize बनाने जा रहे हैं। जब आप उपयोगकर्ताफॉर्म के लिए शो विधि का उपयोग करते हैं, तो यह उप स्वचालित रूप से निष्पादित हो जाएगा।

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

7. प्रोजेक्ट एक्सप्लोरर में, UserForm1 पर राइट क्लिक करें और फिर कोड देखें पर क्लिक करें।

8. बाएं ड्रॉप-डाउन सूची से उपयोगकर्ताफॉर्म चुनें। सही ड्रॉप-डाउन सूची से प्रारंभ करें चुनें।

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

Private Sub UserForm_Initialize()

With ComboBox1
    .AddItem "Animals"
    .AddItem "Sports"
    .AddItem "Food"
End With

End Sub

स्पष्टीकरण: ये कोड लाइनें पहले कॉम्बो बॉक्स को भरती हैं।

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

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

11. पहले कॉम्बो बॉक्स पर डबल क्लिक करें।

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

Private Sub ComboBox1_Change()

Dim index As Integer
index = ComboBox1.ListIndex

ComboBox2.Clear

Select Case index
    Case Is = 0
        With ComboBox2
            .AddItem "Dog"
            .AddItem "Cat"
            .AddItem "Horse"
        End With
    Case Is = 1
        With ComboBox2
            .AddItem "Tennis"
            .AddItem "Swimming"
            .AddItem "Basketball"
        End With
    Case Is = 2
        With ComboBox2
            .AddItem "Pancakes"
            .AddItem "Pizza"
            .AddItem "Chinese"
        End With
End Select

End Sub

स्पष्टीकरण: एक्सेल वीबीए प्रत्येक आगामी केस स्टेटमेंट का परीक्षण करने के लिए वेरिएबल इंडेक्स के मान का उपयोग करता है ताकि यह देखने के लिए कि दूसरा कॉम्बो बॉक्स भरना चाहिए। चयन केस संरचना के बारे में अधिक जानने के लिए हमारे चयन केस प्रोग्राम के माध्यम से जाएं।

13. आयात बटन पर डबल क्लिक करें।

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

Private Sub CommandButton1_Click()

Range("A1").Value = ComboBox2.Value

End Sub

परिणाम:

एक्सेल वीबीए में निर्भर कॉम्बो बॉक्स

यह भी पढ़ें: