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


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

3। मल्टीपाज कंट्रोल, लेबल्स, टेक्स्ट बॉक्स (पहले शीर्ष पर, पहले के नीचे दूसरा), फ्रेम, विकल्प बटन (बाईं तरफ, दूसरा दाईं ओर), सूची बॉक्स, छवि नियंत्रण और कमांड बटन जोड़ें। एक बार यह पूरा हो जाने के बाद, परिणाम पहले दिखाए गए उपयोगकर्ता प्रारूप के खाली संस्करण के साथ संगत होना चाहिए। उदाहरण के लिए, टूलबॉक्स से मल्टीपाज पर क्लिक करके एक मल्टीपाज नियंत्रण बनाएं। इसके बाद, आप उपयोगकर्ताफॉर्म पर एक मल्टीपाज नियंत्रण खींच सकते हैं। जब आप लिंग फ्रेम पर पहुंचते हैं, तो इसमें दो विकल्प बटन डालने से पहले इस फ्रेम को पहले आकर्षित करना याद रखें।
4। आप नियंत्रणों के नाम और कैप्शन बदल सकते हैं। एक्सेल वीबीए कोड में नामों का उपयोग किया जाता है। कैप्शन वे हैं जो आपकी स्क्रीन पर दिखाई देते हैं। नियंत्रणों के नाम बदलने के लिए यह अच्छा अभ्यास है, लेकिन यह यहां जरूरी नहीं है क्योंकि हमारे पास इस उदाहरण में केवल कुछ नियंत्रण हैं। उपयोगकर्ताफॉर्म, मल्टीपाज टैब, लेबल, फ्रेम, विकल्प बटन और कमांड बटन के कैप्शन को बदलने के लिए, व्यू, प्रॉपर्टी विंडो पर क्लिक करें और प्रत्येक नियंत्रण पर क्लिक करें।
5. उपयोगकर्ताफॉर्म दिखाने के लिए, अपनी वर्कशीट पर एक कमांड बटन रखें और निम्न कोड लाइन जोड़ें:
UserForm1.Show
End Sub
अब हम सब UserForm_Initialize बनाने जा रहे हैं। जब आप उपयोगकर्ताफॉर्म के लिए शो विधि का उपयोग करते हैं, तो यह उप स्वचालित रूप से निष्पादित हो जाएगा।
6. विजुअल बेसिक एडिटर खोलें।
7. प्रोजेक्ट एक्सप्लोरर में, UserForm1 पर राइट क्लिक करें और फिर कोड देखें पर क्लिक करें।
8. बाएं ड्रॉप-डाउन सूची से उपयोगकर्ताफॉर्म चुनें। सही ड्रॉप-डाउन सूची से प्रारंभ करें चुनें।
9. निम्नलिखित कोड लाइन जोड़ें:
With ListBox1
.AddItem "Mountains"
.AddItem "Sunset"
.AddItem "Beach"
.AddItem "Winter"
End With
End Sub
स्पष्टीकरण: पृष्ठ 2 पर सूची बॉक्स भर जाएगा।
हमने अब उपयोगकर्ताफॉर्म का पहला हिस्सा बनाया है। यद्यपि यह पहले से ही साफ दिखता है, फिर भी जब हम सूची बॉक्स से कोई आइटम चुनते हैं या जब हम ठीक बटन पर क्लिक करते हैं तो कुछ भी नहीं होगा।
10. छवियों को डाउनलोड करें (इस पृष्ठ के दाहिने तरफ) और उन्हें "सी: टेस्ट" में जोड़ें
11. प्रोजेक्ट एक्सप्लोरर में, UserForm1 पर डबल क्लिक करें।
12. सूची बॉक्स पर डबल क्लिक करें।
13. निम्नलिखित कोड लाइन जोड़ें:
If ListBox1.ListIndex = 0 Then
Image1.Picture = LoadPicture("C:testMountains.jpg")
End If
If ListBox1.ListIndex = 1 Then
Image1.Picture = LoadPicture("C:testSunset.jpg")
End If
If ListBox1.ListIndex = 2 Then
Image1.Picture = LoadPicture("C:testBeach.jpg")
End If
If ListBox1.ListIndex = 3 Then
Image1.Picture = LoadPicture("C:testWinter.jpg")
End If
End Sub
स्पष्टीकरण: इन कोड लाइनों में सूची बॉक्स में चयनित आइटम के आधार पर एक तस्वीर लोड होती है।
14. ओके बटन पर डबल क्लिक करें।
15. निम्नलिखित कोड लाइन जोड़ें:
Dim emptyRow As Long
"Make Sheet1 active
Sheet1.Activate
"Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
"Transfer information
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
If OptionButton1.Value = True Then
Cells(emptyRow, 3).Value = "Male"
Else
Cells(emptyRow, 3).Value = "Female"
End If
Cells(emptyRow, 4).Value = ListBox1.Value
"Close Userform
Unload Me
End Sub
स्पष्टीकरण: सबसे पहले, हम शीट 1 सक्रिय करते हैं। इसके बाद, हम खाली पंक्ति निर्धारित करते हैं। परिवर्तनीय खाली पंक्ति पहली खाली पंक्ति है और रिकॉर्ड हर बार बढ़ने पर बढ़ जाती है। इसके बाद, हम उपयोगकर्ता को जानकारी को खाली पंक्ति के विशिष्ट कॉलम में स्थानांतरित करते हैं। अंत में, हम उपयोगकर्ताफॉर्म को बंद करते हैं।
16. विजुअल बेसिक एडिटर से बाहर निकलें, पंक्ति 1 में नीचे दिखाए गए लेबल दर्ज करें और उपयोगकर्ताफॉर्म का परीक्षण करें।
परिणाम:
