यह ट्यूटोरियल प्रदर्शित करेगा कि वीबीए इनपुट बॉक्स वाले उपयोगकर्ता से इनपुट कैसे प्राप्त करें।
NS वीबीए इनपुट बॉक्स हमें उपयोगकर्ता को जानकारी इनपुट करने के लिए प्रेरित करने की अनुमति देता है। जानकारी का उपयोग हमारे वीबीए कोड या एक्सेल वर्कशीट में किया जा सकता है।
एक चर के साथ VBA इनपुट बॉक्स
हम अपने वीबीए कोड में एक वेरिएबल घोषित कर सकते हैं जो तब इनपुट बॉक्स में टाइप की गई जानकारी को स्टोर करता है। फिर हम इस वेरिएबल को अपने कोड में इस्तेमाल कर सकते हैं।
जानकारी के प्रकार के आधार पर हम इनपुट बॉक्स से वापस लौटना चाहते हैं, हम एक विशिष्ट प्रकार के चर को या तो पाठ (एक स्ट्रिंग या भिन्न चर) या एक संख्या (एक पूर्णांक, लंबा, दोहरा या एकल चर) वापस करने के लिए घोषित कर सकते हैं।
एक इनपुट बॉक्स के साथ स्ट्रिंग वैरिएबल
यहां बताया गया है कि आप एक इनपुटबॉक्स कैसे बना सकते हैं जहां डेटा एक स्ट्रिंग वेरिएबल में वापस किया जाता है।
| 123 | स्ट्रिंग के रूप में मंद strInputstrInput = InputBox ("यह मेरा इनपुटबॉक्स है", "MyInputTitle", "यहां अपना इनपुट टेक्स्ट दर्ज करें") |
ध्यान दें कि पहले हम एक वेरिएबल घोषित करते हैं। इस चर को वह मान दिया जाएगा जो उपयोगकर्ता दर्ज करता है। हमने टेक्स्ट स्ट्रिंग्स (जिसमें कोई भी अल्फा न्यूमेरिक वर्ण शामिल हैं) को स्वीकार करने के लिए इनपुट बॉक्स के लिए चर प्रकार स्ट्रिंग का उपयोग किया है।
एक इनपुट बॉक्स के साथ संख्या चर
यदि आप एक संख्या चर घोषित करते हैं, तो आपको केवल इनपुट बॉक्स में एक संख्या दर्ज करनी होगी।
| 12 | पूर्णांक के रूप में मंद iInputiInput = InputBox ("कृपया एक नंबर दर्ज करें", "चालान नंबर बनाएं", 1) |
पहले हम संख्या चर को पूर्णांक चर के रूप में घोषित करते हैं। फिर हम इनपुट बॉक्स में 1 का डिफ़ॉल्ट मान भी डाल सकते हैं।
यदि हम एक संख्या के बजाय एक स्ट्रिंग दर्ज करते हैं और फिर ठीक पर क्लिक करते हैं, तो हमें एक प्रकार की बेमेल त्रुटि मिलेगी क्योंकि एक संख्या चर एक स्ट्रिंग को स्वीकार नहीं करता है।
एक उपयोगकर्ता से इनपुट प्राप्त करें
इनपुटबॉक्स की सबसे लोकप्रिय विशेषताओं का उपयोग करके यहां एक और उदाहरण दिया गया है।
निम्नलिखित कोड तीन काम करता है:
1. एक इनपुटबॉक्स के साथ इनपुट के लिए संकेत देता है और इसे एक चर के लिए असाइन करता है
2. इनपुट की पुष्टि करता है, अन्यथा उप से बाहर निकलता है
3. एक संदेश बॉक्स में इनपुट लौटाता है
| 12345678910111213 | सार्वजनिक उप MyInputBox ()स्ट्रिंग के रूप में मंद MyInputMyInput = InputBox ("यह मेरा इनपुटबॉक्स है", "MyInputTitle", "यहां अपना इनपुट टेक्स्ट दर्ज करें")यदि MyInput = "अपना इनपुट टेक्स्ट यहाँ दर्ज करें" या MyInput = "" तोउप से बाहर निकलेंअगर अंतMsgBox "MyInputBox से टेक्स्ट है" और MyInputअंत उप |
किसी एक्सेल शीट में इनपुट लौटाना
आप इनपुट बॉक्स में टाइप किए गए इनपुट को अपनी एक्सेल शीट में एक विशिष्ट सेल में वापस कर सकते हैं।
| 1 | रेंज ("पी 1") = इनपुटबॉक्स ("कृपया अपना नाम टाइप करें", "नाम दर्ज करें", "यहां नाम दर्ज करें") |
हम एक वेरिएबल का उपयोग करके इनपुट डेटा को एक्सेल शीट में भी वापस कर सकते हैं।
| 12345678910 | सब एंटरनंबर ()त्रुटि पर फिर से शुरू करें अगलामंद dblअमाउंट डबल के रूप मेंdblAmount = इनपुटबॉक्स ("कृपया आवश्यक राशि दर्ज करें", "राशि दर्ज करें")अगर dblAmount 0 तोरेंज ("A1") = dblAmountअन्यथाMsgBox "आपने एक नंबर दर्ज नहीं किया!"अगर अंतअंत उप |
ऊपर के उदाहरण में, हमें एक संख्या दर्ज करनी है। यदि हम एक संख्या दर्ज करते हैं, तो चर डीबीएलअमाउंट सेल A1 पर नंबर को एक्सेल शीट में डाल देगा। हालांकि, अगर हम एक नंबर दर्ज नहीं करते हैं, तो एक संदेश बॉक्स हमें बताएगा कि हमने एक नंबर दर्ज नहीं किया है और सेल ए 1 में कुछ भी नहीं डाला जाएगा।
एक्सेस वीबीए में वीबीए इनपुटबॉक्स का उपयोग करना
वीबीए इनपुट बॉक्स एक्सेस में ठीक उसी तरह काम करता है जैसे एक्सेल में संदेश बॉक्स के रूप में उपयोगकर्ता इनपुट लौटाता है।
हालाँकि, यदि आप डेटाबेस में उपयोगकर्ता इनपुट वापस करना चाहते हैं, तो आपको एक्सेल में उपयोग की जाने वाली रेंज ऑब्जेक्ट के बजाय रिकॉर्डसेट ऑब्जेक्ट का उपयोग करना होगा।
| 1234567891011121314 | उप EnterInvoiceNumber ()डेटाबेस के रूप में मंद डीबीएसरिकॉर्डसेट के रूप में पहले डिम करेंसेट डीबीएस = करंटडीबीसेट rst = dbs.OpenRecordset("tblMatters", dbOpenDynaset)rst के साथ।नया जोड़ो!InvNo = InputBox("कृपया इनवॉइस नंबर दर्ज करें", "इनवॉइस नंबर जनरेशन", 1)।अद्यतनके साथ समाप्त करनापहला.बंदपहले सेट करें = कुछ नहींडीबीएस सेट करें = कुछ भी नहींअंत उप |
