यह आलेख प्रदर्शित करेगा कि Excel VBA में UserForms में नियंत्रणों का उपयोग कैसे करें।
VBA में ऐसे प्रपत्र बनाने की क्षमता है जिससे उपयोगकर्ता इनवॉइस प्रपत्रों, या संपर्क विवरण जैसे इंटरैक्ट कर सकता है। एक फॉर्म में कई प्रकार के फॉर्म कंट्रोल हो सकते हैं जैसे टेक्स्ट बॉक्स, कॉम्बो बॉक्स, लिस्ट बॉक्स और कमांड बटन। इस लेख में टेक्स्ट बॉक्स, लेबल, कॉम्बो बॉक्स, लिस्ट बॉक्स, चेक बॉक्स और विकल्प समूह जैसे उपयोगकर्ता रूपों पर उपयोग किए जाने वाले सबसे लोकप्रिय नियंत्रण शामिल होंगे।
एक्सेल में बिल्ट इन यूजर फॉर्म और कस्टम यूजर फॉर्म बनाने के बारे में अधिक जानने के लिए, यहां क्लिक करें।
एक यूजरफॉर्म बनाना
एक्सेल वीबीए में यूजरफॉर्म बनाने के लिए, हमें सबसे पहले ओपन करना होगा वीबीई संपादक.
अपने कोड में एक नया उपयोगकर्ता प्रपत्र सम्मिलित करने के लिए, चुनें userform सम्मिलित करें मेनू से विकल्प।
में एक नया उपयोगकर्ता प्रपत्र दिखाई देगा प्रोजेक्ट एक्सप्लोरर और कोड विंडो में दाईं ओर दिखाया जाएगा।
आप का उपयोग करके अपने फॉर्म का नाम बदल सकते हैं गुण डिब्बा। यह आपके नीचे दिखाई देना चाहिए प्रोजेक्ट एक्सप्लोरर.
यदि यह दिखाई दे रहा है, तो दबाएं F4 या क्लिक करें राय, गुण विंडो.
में क्लिक करें नाम संपत्ति और अपने फॉर्म का नाम बदलें।
अब हम अपने फॉर्म को नियंत्रणों से भरना शुरू कर सकते हैं - टेक्स्ट बॉक्स नियंत्रण लेबल नियंत्रण और कमांड बटन के साथ सबसे लोकप्रिय नियंत्रण है।
प्रपत्र को नियंत्रणों से भरने के लिए, हमें टूलबॉक्स को चालू करना होगा।
में मेन्यू, चुनते हैं देखें > टूलबॉक्स.
टेक्स्ट बॉक्स बनाना
अपने प्रपत्र पर टेक्स्ट बॉक्स बनाने के लिए, टूलबॉक्स में टेक्स्ट बॉक्स नियंत्रण चुनें।
अपने माउस से प्रपत्र पर एक बॉक्स आकार खींचें, बाएँ बटन को नीचे दबाए रखें, और फिर माउस बटन को छोड़ दें।
चूंकि यह पहला टेक्स्ट बॉक्स है जिसे हम बना रहे हैं, इसे टेक्स्टबॉक्स 1 नाम दिया जाएगा। प्रपत्र के साथ के रूप में, आप टेक्स्ट बॉक्स का नाम बदलने के लिए गुण विंडो का उपयोग कर सकते हैं।
हम अपने फॉर्म में जितने चाहें उतने टेक्स्ट बॉक्स बनाना जारी रख सकते हैं और गुण विंडो में नाम संपत्ति का उपयोग करके उन्हें उपयुक्त नाम दे सकते हैं।
एक लेबल नियंत्रण बनाना
एक लेबल नियंत्रण हमें बताता है कि टेक्स्ट बॉक्स को होल्ड करने के लिए क्या उपयोग किया जा रहा है। आप फ़ॉर्म को उसी तरह खींचते हैं जैसे आप टेक्स्ट बॉक्स के लिए करते हैं, और फिर आप लेबल नियंत्रण के भीतर आवश्यक टेक्स्ट टाइप कर सकते हैं जैसे: पहला नाम जैसा कि नीचे दिखाया गया है।
जैसा कि टेक्स्ट बॉक्स में होता है, फ़ॉर्म में जितनी आवश्यकता हो उतनी बनाना जारी रखें।
कॉम्बो बॉक्स कंट्रोल बनाना
एक कॉम्बो बॉक्स (या एक ड्रॉप-डाउन बॉक्स) उपयोगकर्ता को मूल्यों की सूची से चयन करने की अनुमति देता है। कॉम्बो बॉक्स बनाने के लिए, कॉम्बो बॉक्स नियंत्रण पर टूलबॉक्स में क्लिक करें, और कॉम्बो बॉक्स को अपने फॉर्म में क्लिक करके खींचें।
कॉम्बो बॉक्स को उचित नाम दें।
कॉम्बो बॉक्स में मान जोड़ना
इसे मानों से भरने के लिए, हमें इसमें कोड करना होगा प्रारंभ उपयोगकर्ता प्रपत्र वस्तु की विधि।
कोड बिहाइंड फॉर्म (सीबीएफ) तक पहुंचने के लिए, या तो फॉर्म पर डबल क्लिक करें, या कोड व्यू पर स्विच करने के लिए प्रोजेक्ट एक्सप्लोरर में कोड बटन पर क्लिक करें।
बाएं हाथ की ड्रॉप डाउन सूची में, उपयोगकर्ता प्रपत्र का चयन करें, और फिर दाईं ओर की ड्रॉप डाउन सूची में, प्रारंभ करें का चयन करें।
ड्रॉप डाउन बॉक्स को पॉप्युलेट करने के लिए सब एंड एंड सब में निम्न कोड टाइप करें:
| 1234 | Me.cboState.AddItem "अलबामा"Me.cboState.AddItem "अलास्का"Me.cboState.AddItem "एरिज़ोना"Me.cboState.AddItem "अर्कांसस" |
हम निश्चित रूप से संयुक्त राज्य अमेरिका के बाकी राज्यों के साथ सूची को आबाद कर सकते हैं!
सूची को क्रियान्वित देखने के लिए उपयोगकर्ता प्रपत्र चलाने के लिए, 1) प्रपत्र दृश्य पर वापस जाएँ और फिर, 2) टूलबार में, पर क्लिक करें Daud बटन।
सूची देखने के लिए ड्रॉप डाउन एरो पर क्लिक करें।
कॉम्बो बॉक्स को पॉप्युलेट करने के लिए हम एक्सेल में रेंज का भी उपयोग कर सकते हैं।
| 123456 | निजी उप UserForm_Initialize ()रेंज के रूप में मंद rngरेंज में प्रत्येक आरएनजी के लिए ("ए 1: ए 50")Me.cboState.AddItem rng.Valueअगला रंगअंत उप |
यह श्रेणी A1 से A50 में संग्रहीत किसी भी मान को उठाएगा और तदनुसार ड्रॉप डाउन सूची को पॉप्युलेट करेगा।
एक सूची बॉक्स नियंत्रण बनाना
लिस्ट बॉक्स कंट्रोल कॉम्बो बॉक्स कंट्रोल की तरह ही काम करता है, लेकिन हमें फॉर्म के सभी विकल्पों को लिस्ट फॉर्मेट में देखने की अनुमति देता है।
टूलबॉक्स में सूची बॉक्स नियंत्रण का चयन करें और फिर अपने प्रपत्र पर सूची बॉक्स बनाने के लिए खींचें।
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
सूची बॉक्स में मान जोड़ना
प्रपत्र की आरंभिक घटना में, निम्न कोड टाइप करें:
| 123456 | निजी उप UserForm_Initialize ()रेंज के रूप में मंद rngरेंज में प्रत्येक आरएनजी के लिए ("ए 1: ए 50")Me.lstState.AddItem rng.Valueअगला रंगअंत उप |
जब हम फॉर्म चलाते हैं, तो सूची बॉक्स नीचे दिए गए चित्र में दिखाया जाएगा:
एक चेक बॉक्स नियंत्रण बनाना
चेक बॉक्स उपयोगकर्ता को किसी विकल्प को चेक या अनचेक करने में सक्षम बनाता है।
चेक बॉक्स नियंत्रण का चयन करें, और फिर उस प्रपत्र पर क्लिक करें जहाँ आप इसे जाना चाहते हैं।
गुण विंडो में चेक बॉक्स के कैप्शन और नाम में संशोधन करें।
विकल्प बटन के साथ एक विकल्प समूह नियंत्रण बनाना
एक विकल्प समूह उपयोगकर्ता को कई उपलब्ध विकल्पों में से चयन करने की अनुमति देता है। विकल्प समूह बनाने का पहला चरण प्रपत्र में फ़्रेम नियंत्रण जोड़ना है, और फिर जोड़े गए फ़्रेम के भीतर विकल्प बटन जोड़ना है। ऐसा करने से, हम यह सुनिश्चित करते हैं कि जब हम फॉर्म चलाते हैं, तो एक समय में फ्रेम के भीतर केवल एक विकल्प बटन का चयन किया जा सकता है।
टूलबॉक्स में फ़्रेम नियंत्रण का चयन करें और फिर अपने प्रपत्र पर फ़्रेम बनाने के लिए खींचें।
टूलबॉक्स में विकल्प बटन नियंत्रण का चयन करें और फिर फ्रेम में विकल्प बटन जोड़ने के लिए ऊपर बनाए गए फ्रेम के भीतर क्लिक करें। आवश्यकतानुसार दोहराएं।
फ्रेम पर क्लिक करें और 1) फ्रेम के नाम और कैप्शन में संशोधन करें। फिर 2) प्रत्येक विकल्प बटन पर क्लिक करें और कैप्शन में संशोधन करें।
प्रपत्र से बाहर निकलने के लिए एक कमांड बटन बनाना
इस स्तर पर, प्रपत्र को बंद करने का एकमात्र तरीका प्रपत्र नियंत्रण पट्टी के दाएं कोने में बंद करें बटन का उपयोग करना है। किसी प्रपत्र से बाहर निकलने का एक अधिक कुशल तरीका, और जिस पर हमारा अधिक नियंत्रण है, वह है प्रपत्र पर बाहर निकलें बटन बनाना। यह टूलबॉक्स में कमांड बटन कंट्रोल के माध्यम से किया जाता है।
कमांड बटन नियंत्रण का चयन करें, और फिर बटन बनाने के लिए अपने फॉर्म में क्लिक करें और खींचें।
कैप्शन प्रॉपर्टी का उपयोग करके, कमांड बटन के कैप्शन को ओके और एक्सेलेरेटर को "ओ" में बदलें।
एक्सेलेरेटर का उद्देश्य उपयोगकर्ता के लिए बटन को सक्रिय करने के लिए कीबोर्ड का उपयोग करना है, इस मामले में ऑल्ट+ओ बटन को सक्रिय करेगा।
महान उत्पाद। AutoMacro सिर्फ आपका कोड नहीं लिखता है, यह आपके जाते ही सिखा देता है!" - टोनी, यूके
और अधिक जानेंहमारी 900+ समीक्षाएं पढ़ें
कमांड बटन में कोड जोड़ना
कमांड बटन को काम करने के लिए, हमें इसके पीछे कोड जोड़ना होगा ताकि जब बटन पर क्लिक किया जाए, तो कोड चलता है। इसे बटन का क्लिक इवेंट कहा जाता है।
क्लिक ईवेंट पर जाने के लिए, प्रपत्र के डिज़ाइन दृश्य में बटन पर डबल-क्लिक करें।
1) क्लिक ईवेंट स्वचालित रूप से बनाया जाएगा क्योंकि यह वह ईवेंट है जो आमतौर पर कमांड बटन के लिए उपयोग किया जाता है।
2) यदि हम दाहिनी ओर प्रक्रिया ड्रॉप-डाउन बॉक्स में क्लिक करते हैं, तो हम उन सभी ईवेंट विधियों की एक सूची देखेंगे जो कमांड बटन के लिए उपलब्ध हैं। यह सूची हमारे द्वारा बनाए गए नियंत्रण के प्रकार के अनुसार बदलती है क्योंकि विभिन्न प्रकार के नियंत्रणों के लिए अलग-अलग ईवेंट उपलब्ध हैं।
कमांड बटन के क्लिक इवेंट में निम्न कोड टाइप करें।
| 123456789101112131415 | निजी उप cmdOK_Click ()रेंज ("E1") = Me.txtFirstnameरेंज ("E2") = Me.txtSurnameरेंज ("E3") = Me.txtCellPhoneरेंज ("E4") = Me.cboStateअगर Me.ckContactInfo = सच है तोरेंज ("ई 5") = "एसएमएस की अनुमति है"अन्यथारेंज ("ई 5") = "एसएमएस की अनुमति नहीं है"अगर अंतअगर Me.opt1.Value = True तो Range("E6") = Me.opt1.Captionअगर Me.opt2.Value = True तो Range("E6") = Me.opt2.Captionअगर Me.opt3.Value = True तो Range("E6") = Me.opt3.Captionमुझे उतारोअंत उप |
फिर हम फॉर्म को चला सकते हैं, टेक्स्ट बॉक्स भर सकते हैं और ड्रॉप डाउन सूची से चयन कर सकते हैं। फिर हम एक्सेल में जानकारी दर्ज करने के लिए ओके पर क्लिक करते हैं।
