NS बहुचयन संपत्ति में एक्सेल वीबीए उपयोगकर्ता को सूची बॉक्स में एकाधिक आइटम चुनने की अनुमति देता है। हम जिस यूजरफॉर्म को बनाने जा रहे हैं, वह इस प्रकार है:
इस यूजरफॉर्म को बनाने के लिए, निम्न चरणों को निष्पादित करें।
1. खोलें विजुअल बेसिक एडिटर . यदि प्रोजेक्ट एक्सप्लोरर दिखाई नहीं दे रहा है, तो देखें, प्रोजेक्ट एक्सप्लोरर पर क्लिक करें।
2. इन्सर्ट, यूजरफॉर्म पर क्लिक करें। यदि टूलबॉक्स स्वचालित रूप से प्रकट नहीं होता है, तो देखें, टूलबॉक्स पर क्लिक करें। आपकी स्क्रीन को नीचे की तरह सेट किया जाना चाहिए।
एक्सेल में सूत्र कैसे टाइप करें
3. सूची बॉक्स जोड़ें (पहला बाईं ओर, दूसरा दाईं ओर), कमांड बटन, चेक बॉक्स (पहला बाईं ओर, दूसरा दाईं ओर), फ़्रेम और विकल्प बटन (पहला शीर्ष पर, दूसरा नीचे पहला, और इसी तरह)। एक बार यह पूरा हो जाने के बाद, परिणाम पहले दिखाए गए यूजरफॉर्म की तस्वीर के अनुरूप होना चाहिए। उदाहरण के लिए, टूलबॉक्स से लिस्टबॉक्स पर क्लिक करके सूची बॉक्स नियंत्रण बनाएं। इसके बाद, आप Userform पर एक सूची बॉक्स खींच सकते हैं। जब आप 'सेलेक्ट टाइप' फ्रेम पर पहुंचते हैं, तो याद रखें कि आप इसमें तीन विकल्प बटन लगाने से पहले इस फ्रेम को पहले ड्रा करें।
4. आप नियंत्रणों के नाम और कैप्शन को बदल सकते हैं। एक्सेल वीबीए कोड में नामों का उपयोग किया जाता है। कैप्शन वे होते हैं जो आपकी स्क्रीन पर दिखाई देते हैं। नियंत्रणों के नाम बदलना अच्छा अभ्यास है, लेकिन यहां यह आवश्यक नहीं है क्योंकि इस उदाहरण में हमारे पास केवल कुछ नियंत्रण हैं। यूजरफॉर्म, कमांड बटन, चेक बॉक्स, फ्रेम और ऑप्शन बटन के कैप्शन को बदलने के लिए व्यू, प्रॉपर्टीज विंडो पर क्लिक करें और प्रत्येक कंट्रोल पर क्लिक करें।
5. यूजरफॉर्म दिखाने के लिए a place लगाएं कमांड बटन अपनी वर्कशीट पर और निम्नलिखित कोड लाइन जोड़ें:
निजी विषयकमांडबटन1_क्लिक करें ()UserForm1.दिखाएँ
समाप्त विषय
अब हम Sub UserForm_Initialize बनाने जा रहे हैं। जब आप उपयोगकर्ताफॉर्म के लिए शो विधि का उपयोग करते हैं, तो यह उप स्वचालित रूप से निष्पादित हो जाएगा।
6. खोलें विजुअल बेसिक एडिटर .
7. प्रोजेक्ट एक्सप्लोरर में UserForm1 पर राइट क्लिक करें और फिर View Code पर क्लिक करें।
8. सबसे पहले, Integer प्रकार के वेरिएबल i घोषित करें। सामान्य घोषणा अनुभाग (कोड के शीर्ष पर) में चर घोषित करें। इस तरह आपको केवल एक बार वेरिएबल घोषित करना होगा और आप उन्हें कई सबस में उपयोग कर सकते हैं।
कोई नहींमैंजैसा पूर्णांक9. बाईं ड्रॉप-डाउन सूची से उपयोगकर्ता प्रपत्र चुनें। सही ड्रॉप-डाउन सूची से प्रारंभ करें चुनें।
10. निम्नलिखित कोड लाइनें जोड़ें:
निजी विषयUserForm_Initialize ()साथ मेंलिस्टबॉक्स1
.AddItem 'बिक्री'
.AddItem 'उत्पादन'
.AddItem 'रसद'
.AddItem 'मानव संसाधन'
समाप्त साथ में
OptionButton3.Value =सत्य
समाप्त विषय
स्पष्टीकरण: पहली सूची बॉक्स भर जाएगा और तीसरा विकल्प बटन डिफ़ॉल्ट के रूप में सेट है।
हमने अब Userform का पहला भाग बना लिया है। हालाँकि यह पहले से ही साफ-सुथरा दिखता है, फिर भी जब हम कमांड बटन या अन्य नियंत्रणों पर क्लिक करेंगे तो कुछ नहीं होगा।
11. प्रोजेक्ट एक्सप्लोरर में UserForm1 पर डबल क्लिक करें।
एक्सेल में वापसी की वार्षिक दर की गणना कैसे करें
12. Add बटन पर डबल क्लिक करें।
13. निम्नलिखित कोड पंक्तियाँ जोड़ें:
निजी विषयकमांडबटन1_क्लिक करें ()के लियेमैं = 0प्रतिलिस्टबॉक्स 1. लिस्टकाउंट - 1
अगरListBox1. चयनित (i) =सत्य फिरListBox2.AddItem ListBox1.List(i)
अगलामैं
समाप्त विषय
स्पष्टीकरण: एक्सेल वीबीए पहले सूची बॉक्स (सूची में पहले आइटम के लिए शून्य (0) की सूची सूचकांक संख्या) के माध्यम से लूप करता है और, यदि चुना जाता है, तो आइटम को दूसरी सूची बॉक्स में जोड़ता है।
14. रिमूव बटन पर डबल क्लिक करें।
15. निम्नलिखित कोड पंक्तियाँ जोड़ें:
निजी विषयकमांडबटन 2_क्लिक ()कोई नहींकाउंटरजैसापूर्णांक
काउंटर = 0
के लियेमैं = 0प्रतिListBox2.ListCount - 1
अगरListBox2.Selected(i - काउंटर)फिर
ListBox2.RemoveItem (i - काउंटर)
काउंटर = काउंटर + 1
समाप्त अगर
अगलामैं
CheckBox2.Value =झूठा
समाप्त विषय
स्पष्टीकरण: एक्सेल वीबीए दूसरी सूची बॉक्स के माध्यम से लूप करता है और, यदि चुना जाता है, तो आइटम को हटा देता है। काउंटर वेरिएबल हटाए गए आइटमों की संख्या का ट्रैक रखता है।
16. पहले विकल्प वाले बटन पर डबल क्लिक करें।
17. निम्नलिखित कोड पंक्तियाँ जोड़ें:
निजी विषयविकल्पबटन1_क्लिक करें ()ListBox1.MultiSelect = 0
ListBox2.MultiSelect = 0
समाप्त विषय
18. दूसरे विकल्प के बटन पर डबल क्लिक करें।
एक्सेल 2016 में प्रिंट शीर्षक कैसे सेट करें
19. निम्नलिखित कोड पंक्तियाँ जोड़ें:
निजी विषयOptionButton2_Click ()ListBox1.MultiSelect = 1
ListBox2.MultiSelect = 1
समाप्त विषय
20. तीसरे विकल्प के बटन पर डबल क्लिक करें।
21. निम्नलिखित कोड लाइनें जोड़ें:
निजी विषयविकल्पबटन3_क्लिक करें ()ListBox1.MultiSelect = 2
ListBox2.MultiSelect = 2
समाप्त विषय
व्याख्या: विकल्प बटन पर क्लिक करके 'सेलेक्ट टाइप' सेटिंग को चुना जा सकता है। पहले दिखाया गया यूजरफॉर्म का चित्र प्रत्येक सेटिंग का विवरण देता है। इस सेटिंग को रनटाइम पर कॉन्फ़िगर करने के बजाय, आप इस सेटिंग को डिज़ाइन समय पर भी कॉन्फ़िगर कर सकते हैं। इसे प्राप्त करने के लिए, राइट माउस एक सूची बॉक्स नियंत्रण पर क्लिक करें, और फिर गुण पर क्लिक करें। मल्टीसेलेक्ट प्रॉपर्टी को 0 - fmMultiSelectSingle, 1 - fmMultiSelectMulti या 2 - fmMultiSelectExtented पर सेट करें।
22. पहले चेक बॉक्स पर डबल क्लिक करें।
23. निम्नलिखित कोड पंक्तियाँ जोड़ें:
निजी विषयचेकबॉक्स1_क्लिक करें ()अगरCheckBox1.Value =सत्य फिर
के लियेमैं = 0प्रतिलिस्टबॉक्स 1. लिस्टकाउंट - 1
ListBox1.Selected(i) = True
अगलामैं
समाप्त अगर
अगरCheckBox1.Value =झूठा फिर
के लियेमैं = 0प्रतिलिस्टबॉक्स 1. लिस्टकाउंट - 1
ListBox1.Selected(i) = False
अगलामैं
समाप्त अगर
समाप्त विषय
व्याख्या: पहले चेक बॉक्स को चेक करके, पहली सूची बॉक्स के सभी आइटम चयनित/अचयनित किए जा सकते हैं।
24. समान कोड लाइन जोड़ने के लिए दूसरे चेक बॉक्स पर डबल क्लिक करें। केवल CheckBox1 को CheckBox2 और ListBox1 को ListBox2 से बदलें।
अगले अध्याय पर जाएँ: श्रेणी
