/ / एक्सेल वीबीए में एकाधिक सूची बॉक्स चयन

एक्सेल वीबीए में एकाधिक सूची बॉक्स चयन

The MultiSelect गुण में एक्सेल VBA किसी सूची बॉक्स में एकाधिक आइटंस का चयन करने के लिए उपयोगकर्ता को अनुमति देता है ।Userform हम इस प्रकार के रूप में लगता है बनाने जा रहे हैं:

एक्सेल वीबीए में एकाधिक सूची बॉक्स चयन

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

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

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

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

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

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

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

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

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

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

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

8. सबसे पहले, मैं प्रकार पूर्णांक के चर घोषित । सामान्य घोषणा खंड (कोड के शीर्ष पर) में चर घोषित करें ।इस तरह आप केवल एक बार चर की घोषणा की है और आप उंहें कई बाद के चरणों में उपयोग कर सकते हैं ।

Dim i As Integer

9. बाएं ड्रॉप-डाउन सूची से Userform चुनें । दाएँ ड्रॉप-डाउन सूची से प्रारंभ करें चुनें.

10. निम्न कोड पंक्तियाँ जोड़ें:

Private Sub UserForm_Initialize()

With ListBox1
    .AddItem "Sales"
    .AddItem "Production"
    .AddItem "Logistics"
    .AddItem "Human Resources"
End With

OptionButton3.Value = True

End Sub

स्पष्टीकरण: पहली सूची बॉक्स भरा जाएगा और तीसरा विकल्प बटन डिफ़ॉल्ट के रूप में सेट किया गया है ।

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

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

12. Add बटन पर डबल क्लिक करें ।

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

Private Sub CommandButton1_Click()

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
Next i

End Sub

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

14. निकालें बटन पर डबल क्लिक करें ।

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

Private Sub CommandButton2_Click()

Dim counter As Integer
counter = 0

For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i - counter) Then
        ListBox2.RemoveItem (i - counter)
        counter = counter + 1
    End If
Next i

CheckBox2.Value = False

End Sub

स्पष्टीकरण: Excel VBA लूप दूसरी सूची बॉक्स के माध्यम से और, यदि चयनित है, तो आइटम को निकालता है ।काउंटर चर निकाले गए आइटमों की संख्या का ट्रैक रखता है ।

16. पहला विकल्प बटन पर डबल क्लिक करें ।

17. निम्न कोड पंक्तियाँ जोड़ें:

Private Sub OptionButton1_Click()

ListBox1.MultiSelect = 0
ListBox2.MultiSelect = 0

End Sub

18. दूसरा विकल्प बटन पर डबल क्लिक करें ।

19. निम्न कोड पंक्तियाँ जोड़ें:

Private Sub OptionButton2_Click()

ListBox1.MultiSelect = 1
ListBox2.MultiSelect = 1

End Sub

20. तीसरे विकल्प बटन पर डबल क्लिक करें ।

21. निम्न कोड पंक्तियाँ जोड़ें:

Private Sub OptionButton3_Click()

ListBox1.MultiSelect = 2
ListBox2.MultiSelect = 2

End Sub

स्पष्टीकरण: विकल्प बटन पर क्लिक करके "प्रकार का चयन करें" सेटिंग चुना जा सकता है ।पहले दिखाए गए Userform का चित्र प्रत्येक सेटिंग का वर्णन देता है ।इस सेटिंग को रनटाइम पर कॉंफ़िगर करने के बजाय, आप डिज़ाइन समय पर इस सेटिंग को कॉंफ़िगर भी कर सकते हैं ।इस लक्ष्य को प्राप्त करने के लिए, सही माउस एक सूची बॉक्स नियंत्रण पर क्लिक करें, और फिर गुण पर क्लिक करें ।MultiSelect गुण को 0-fmMultiSelectSingle, 1-fmMultiSelectMulti या 2-fmMultiSelectExtented पर सेट करें ।

22. पहले चेक बॉक्स पर डबल क्लिक करें ।

23. निम्न कोड पंक्तियाँ जोड़ें:

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = True
    Next i
End If

If CheckBox1.Value = False Then
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = False
    Next i
End If

End Sub

स्पष्टीकरण: पहले चेक बॉक्स की जांच कर रहा है, सभी आइटम पहली सूची बॉक्स चयनित/

24. एक ही कोड लाइनों को जोड़ने के लिए दूसरा चेक बॉक्स पर डबल क्लिक करें ।केवल ListBox2 के साथ स2 और ListBox1 के साथ CheckBox1 की जगह ।

यह भी पढ़ें: