एक्सेल उपयोगकर्ता प्रपत्र - एक्सेल टिप्स

विषय - सूची

Excel 97 ने नए उपयोगकर्ता प्रपत्र पेश किए। अंग्रेजी में, मुझे सूची बॉक्स बनाने और उपयोग करने का तरीका सिखाएं।

MrExcel ने हाल ही में हमारे एक पाठक के लिए एक कस्टम एप्लिकेशन पूरा किया है। इस एक्सेल ऐप में, उपयोगकर्ता शीट पर एक विशिष्ट भाग संख्या के लिए 150 डेटा बिंदु दर्ज करेगा।

1. एक बटन के क्लिक पर, यह भाग संख्या और संबंधित डेटा मान शीट 2 पर एक डेटाबेस के लिए प्रतिबद्ध है। यह ठीक था, लेकिन तब हमें उपयोगकर्ता को शीट 2 से रिकॉर्ड कॉल करने के लिए एक तरीका चाहिए था ताकि वे प्रविष्टियों की समीक्षा कर सकें। मैं उपयोगकर्ता को एक ड्रॉप डाउन बॉक्स के साथ एक फॉर्म खोलने की अनुमति देना चाहता था जिसमें शीट पर सभी आइटम दिखाई दें

2. उपयोगकर्ता स्क्रॉल कर सकता है, एक आइटम चुन सकता है, और फिर मैं उन मानों को शीट 2 से शीट 1 तक खींच सकता हूं।

आप में से कई लोगों की तरह, मैंने एक्सेल 5.0 में एक्सेल मैक्रोज़ लिखना शुरू किया। Excel 97 में यह संपूर्ण मैक्रो संपादक थोड़ा डराने वाला है। इस सप्ताह की टिप के लिए, मैं आपको दिखाऊंगा, चरण दर चरण, इस परियोजना के लिए सूची बॉक्स कैसे बनाएं। इस सप्ताह ध्यान सिर्फ कॉम्बो बॉक्स पर है। लक्षित दर्शक वह व्यक्ति है जो एक्सेल मैक्रोज़ की मूल बातें जानता है, लेकिन जिसने मैक्रो के साथ बातचीत करने के लिए कभी भी फॉर्म का उपयोग नहीं किया है।

पहला चरण: मैंने मौजूदा मैक्रोज़ को बदल दिया ताकि जब वे शीट 2 में एक रिकॉर्ड जोड़ दें, तो मैक्रो को "पार्टलिस्ट" नाम देने के लिए भाग संख्याओं का नाम होगा। सेल A1 में एक हेडिंग है, सेल A2 में पहला आइटम है। मैंने अंतिम पंक्ति खोजने के लिए एंड कमांड का उपयोग किया:

LastRow = Range("A6000").End(xlUp).Row ActiveWorkbook.Names.Add Name:="PartList", RefersTo:="=Sheet2!$A$2:$A$" & LastRow

दूसरा चरण: सूची बॉक्स फॉर्म को लेआउट करें। इन चरणों का पालन करें:

विज़ुअल बेसिक एडिटर को Alt-F11 मारकर शुरू करें
मेनू से, सम्मिलित करें> उपयोगकर्ता फ़ॉर्म चुनें। संपादक को आपको एक रिक्त UserForm1 देना चाहिए।
यदि आपको निचले बाएँ कोने में Properties-UserForm1 बॉक्स दिखाई नहीं देता है, तो "गुण विंडो" आइकन पर हिट करें - यह एक हाथ की तरह दिखता है, जिसमें उंगली सफेद चादर की ओर इशारा करती है।
गुण विंडो में 4 वीं प्रविष्टि कैप्शन है। अभी, कैप्शन UserForm1 होगा। गुण विंडो में कैप्शन के दाईं ओर स्थित बॉक्स पर क्लिक करें और फ़ॉर्म के लिए एक नया शीर्षक लिखें। मुझे मेरा "समीक्षा के लिए एक भाग संख्या चुनें" कहा जाता है। मैंने अन्य सभी गुणों को उनके डिफ़ॉल्ट स्थिति में फ़ॉर्म के लिए छोड़ दिया।
Userform का उपयोग करके सूची बॉक्स बनाना
फिर से उपयोगकर्ता के अंदर कहीं भी क्लिक करें और नियंत्रण टूलबॉक्स दिखाई देगा।
नियंत्रण टूलबॉक्स में, अक्षर A. उठाओ और फार्म के शीर्ष पर एक लेबल बॉक्स बनाने के लिए खींचें। यह लेबल 1 के कैप्शन के लिए डिफॉल्ट करता है। टेक्स्ट बॉक्स के अंदर फिर से क्लिक करें और आप कैप्शन को संपादित कर सकते हैं। यहां उपयोगकर्ता को निर्देश दें: "नीचे दी गई सूची से एक आइटम चुनें और मूल्यों की समीक्षा करने के लिए ठीक क्लिक करें"।
फॉर्म पर क्लिक करें, लेकिन लेबल बॉक्स के बाहर और आपको नियंत्रण टूलबॉक्स फिर से दिखाई देगा। शीर्ष पंक्ति में 4 आइटम एक कॉम्बो बॉक्स टूल है। इसे क्लिक करें और कॉम्बो बॉक्स बनाने के लिए यूजरफॉर्म में खींचें। यह वह जगह है जहाँ भाग संख्याओं की सूची दिखाई देगी। डिफ़ॉल्ट नाम ComboBox1 है।
कॉम्बोक्स गुण
गुण विंडो अब आपको ComboBox1 के लिए गुण दिखा रही होगी। गुण के माध्यम से नीचे स्क्रॉल करें जब तक कि आप रोवरस प्रॉपर्टी को न देखें रोवोर्स प्रॉपर्टी के लिए, टाइप करें = शीट 2! पार्टलिस्ट
आप अब यह सुनिश्चित करने के लिए एक त्वरित परीक्षण चला सकते हैं कि चीजें ठीक से काम कर रही हैं। संपूर्ण फ़ॉर्म का चयन करने के लिए अपने उपयोगकर्ता फ़ॉर्म के शीर्षक बार पर क्लिक करें। अब "प्ले" आइकन पर क्लिक करें (यह आपके वीसीआर पर प्ले बटन की तरह दिखता है)। आपको अपनी एक्सेल कार्यपुस्तिका में वापस कर दिया जाएगा और हमारे पास सरल प्रयोक्ता-सूचना होगी। यदि आप भाग संख्या ड्रॉपडाउन पर क्लिक करते हैं, तो आपको मान्य भाग संख्याओं की एक सूची देखनी चाहिए। एक उठाओ, और यह कॉम्बो बॉक्स में रहेगा। अब तक, बहुत रोमांचक नहीं है। बॉक्स को खारिज करने के लिए ऊपरी दाएं कोने में छोटे X पर क्लिक करें।
Visual Basic संपादक पर लौटें। कंट्रोल टूलबॉक्स दिखाने के लिए यूजर फॉर्म पर क्लिक करें। CommandButton टूल पर क्लिक करें और एक बटन खींचें। गुण - CommandButton1 विंडो का उपयोग करके ओके होने के लिए कैप्शन बदलें।
दूसरा बटन खींचें और इसे रद्द करें लेबल करें।
हम लगभग कर चुके हैं। रद्द करें बटन पर कोड का एक छोटा सा टाई करते हैं। रद्द करें बटन पर राइट क्लिक करें और "कोड देखें" चुनें। संपादक आपके उप और अंतिम उप कथन सेट करेगा। उनके बीच, कोड की एक पंक्ति टाइप करें:
```
UserForm1.Hide
```
हां, यह सब एक बटन को कोड असाइन करने के लिए है। उपयोगकर्ता के पृष्ठ पर वापस जाने के लिए, Project विंडो में UserForm1 शब्द पर डबल क्लिक करें। (प्रोजेक्ट विंडो नहीं देख सकते? प्रॉपर्टी आइकन के बाईं ओर प्रोजेक्ट एक्सप्लोरर आइकन दबाएं।)
उपयोगकर्ता फ़ॉर्म 1 को समाप्त करने के लिए, चलो ठीक बटन के साथ कुछ करते हैं। जब उपयोगकर्ता ठीक पर क्लिक करता है, तो मैं सूची बॉक्स से शीट 1 सेल A2 में प्रकट होना चाहता हूं और फिर मैं एक मैक्रो को किक करना चाहता हूं जिसे मैंने पहले ReviewItem कहा था। ठीक बटन पर क्लिक करें और देखें कोड का चयन करें। निजी सब कमांडबटन 1_Click () के लिए यह कोड दर्ज करें:
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```