एक्सेल वीबीए उपयोगकर्ताform
नियंत्रण जोड़ें | उपयोगकर्ताफॉर्म दिखाएं | मैक्रोज़ असाइन करें | उपयोगकर्ताform का परीक्षण करें
यह अध्याय आपको सिखाता है कि कैसे बनाया जाए एक्सेल वीबीए उपयोगकर्ताform। उपयोगकर्ताफॉर्म हम इस प्रकार दिखने जा रहे हैं:

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

3. नीचे दी गई तालिका में सूचीबद्ध नियंत्रण जोड़ें। एक बार यह पूरा हो जाने के बाद, परिणाम पहले दिखाए गए उपयोगकर्ताफॉर्म की तस्वीर के अनुरूप होना चाहिए। उदाहरण के लिए, टूलबॉक्स से टेक्स्टबॉक्स पर क्लिक करके टेक्स्ट बॉक्स नियंत्रण बनाएं। इसके बाद, आप उपयोगकर्ताफॉर्म पर एक टेक्स्ट बॉक्स खींच सकते हैं। जब आप कार फ्रेम पर पहुंचते हैं, तो इसमें दो विकल्प बटन डालने से पहले इस फ्रेम को पहले आकर्षित करना याद रखें।
4। नीचे दी गई तालिका के अनुसार नियंत्रण के नाम और कैप्शन बदलें। एक्सेल वीबीए कोड में नामों का उपयोग किया जाता है। कैप्शन वे हैं जो आपकी स्क्रीन पर दिखाई देते हैं। नियंत्रण के नाम बदलने के लिए यह अच्छा अभ्यास है। यह आपके कोड को पढ़ने में आसान बना देगा। नियंत्रणों के नाम और कैप्शन बदलने के लिए, देखें, गुण विंडो पर क्लिक करें और प्रत्येक नियंत्रण पर क्लिक करें।
नियंत्रण | नाम | शीर्षक |
---|---|---|
UserForm | DinnerPlannerUserForm | रात्रिभोज योजनाकार |
पाठ बॉक्स | NameTextBox | |
पाठ बॉक्स | PhoneTextBox | |
सूची बाक्स | CityListBox | |
सम्मिश्रण पटी | DinnerComboBox | |
चेक बॉक्स | DateCheckBox1 | 13 जून |
चेक बॉक्स | DateCheckBox2 | 20 जून |
चेक बॉक्स | DateCheckBox3 | 27 जून |
ढांचा | CarFrame | गाड़ी |
विकल्प बटन | CarOptionButton1 | हाँ |
विकल्प बटन | CarOptionButton2 | नहीं |
पाठ बॉक्स | MoneyTextBox | |
स्पिन बटन | MoneySpinButton | |
कमांड बटन | OKButton | ठीक |
कमांड बटन | ClearButton | स्पष्ट |
कमांड बटन | CancelButton | रद्द करना |
7 लेबल | बदलने की जरूरत नहीं है | नाम :, फोन नंबर: आदि |
नोट: कॉम्बो बॉक्स एक ड्रॉप-डाउन सूची है जहां से कोई उपयोगकर्ता कोई आइटम चुन सकता है या अपनी पसंद भर सकता है। विकल्प बटनों में से केवल एक का चयन किया जा सकता है।
उपयोगकर्ताफॉर्म दिखाएं
उपयोगकर्ताफॉर्म दिखाने के लिए, अपनी वर्कशीट पर एक कमांड बटन रखें और निम्न कोड पंक्ति जोड़ें:
DinnerPlannerUserForm.Show
End Sub
अब हम सब UserForm_Initialize बनाने जा रहे हैं। जब आप उपयोगकर्ताफॉर्म के लिए शो विधि का उपयोग करते हैं, तो यह उप स्वचालित रूप से निष्पादित हो जाएगा।
1. विजुअल बेसिक एडिटर खोलें।
2. प्रोजेक्ट एक्सप्लोरर में, डिनरप्लानर यूज़रफॉर्म पर राइट क्लिक करें और फिर कोड देखें पर क्लिक करें।
3. बाएं ड्रॉप-डाउन सूची से उपयोगकर्ताफॉर्म चुनें। सही ड्रॉप-डाउन सूची से प्रारंभ करें चुनें।
4. निम्नलिखित कोड लाइन जोड़ें:
"Empty NameTextBox
NameTextBox.Value = ""
"Empty PhoneTextBox
PhoneTextBox.Value = ""
"Empty CityListBox
CityListBox.Clear
"Fill CityListBox
With CityListBox
.AddItem "San Francisco"
.AddItem "Oakland"
.AddItem "Richmond"
End With
"Empty DinnerComboBox
DinnerComboBox.Clear
"Fill DinnerComboBox
With DinnerComboBox
.AddItem "Italian"
.AddItem "Chinese"
.AddItem "Frites and Meat"
End With
"Uncheck DataCheckBoxes
DateCheckBox1.Value = False
DateCheckBox2.Value = False
DateCheckBox3.Value = False
"Set no car as default
CarOptionButton2.Value = True
"Empty MoneyTextBox
MoneyTextBox.Value = ""
"Set Focus on NameTextBox
NameTextBox.SetFocus
End Sub
स्पष्टीकरण: टेक्स्ट बॉक्स खाली हो गए हैं, सूची बॉक्स और कॉम्बो बॉक्स भर गए हैं, चेक बॉक्स अनचेक किए गए हैं, इत्यादि।
मैक्रोज़ असाइन करें
हमने अब उपयोगकर्ताफॉर्म का पहला हिस्सा बनाया है। यद्यपि यह पहले से ही साफ दिखता है, फिर भी कुछ भी नहीं होगा जब हम उपयोगकर्ताफॉर्म पर कमांड बटन पर क्लिक करेंगे।
1. विजुअल बेसिक एडिटर खोलें।
2. प्रोजेक्ट एक्सप्लोरर में, डिनरप्लानर यूज़रफॉर्म पर डबल क्लिक करें।
3. मनी स्पिन बटन पर डबल क्लिक करें।
4. निम्नलिखित कोड लाइन जोड़ें:
MoneyTextBox.Text = MoneySpinButton.Value
End Sub
स्पष्टीकरण: जब आप स्पिन बटन का उपयोग करते हैं तो यह कोड लाइन टेक्स्ट बॉक्स को अपडेट करती है।
5. ओके बटन पर डबल क्लिक करें।
6. निम्नलिखित कोड लाइन जोड़ें:
Dim emptyRow As Long
"Make Sheet1 active
Sheet1.Activate
"Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
"Transfer information
Cells(emptyRow, 1).Value = NameTextBox.Value
Cells(emptyRow, 2).Value = PhoneTextBox.Value
Cells(emptyRow, 3).Value = CityListBox.Value
Cells(emptyRow, 4).Value = DinnerComboBox.Value
If DateCheckBox1.Value = True Then Cells(emptyRow, 5).Value = DateCheckBox1.Caption
If DateCheckBox2.Value = True Then Cells(emptyRow, 5).Value = Cells(emptyRow, 5).Value & " " & DateCheckBox2.Caption
If DateCheckBox3.Value = True Then Cells(emptyRow, 5).Value = Cells(emptyRow, 5).Value & " " & DateCheckBox3.Caption
If CarOptionButton1.Value = True Then
Cells(emptyRow, 6).Value = "Yes"
Else
Cells(emptyRow, 6).Value = "No"
End If
Cells(emptyRow, 7).Value = MoneyTextBox.Value
End Sub
स्पष्टीकरण: सबसे पहले, हम शीट 1 सक्रिय करते हैं। इसके बाद, हम खाली पंक्ति निर्धारित करते हैं। परिवर्तनीय खाली पंक्ति पहली खाली पंक्ति है और रिकॉर्ड हर बार बढ़ने पर बढ़ जाती है। अंत में, हम उपयोगकर्ता को जानकारी को खाली पंक्ति के विशिष्ट कॉलम में स्थानांतरित करते हैं।
7. साफ़ बटन पर डबल क्लिक करें।
8. निम्नलिखित कोड लाइन जोड़ें:
Call UserForm_Initialize
End Sub
स्पष्टीकरण: जब आप साफ़ बटन पर क्लिक करते हैं तो यह कोड लाइन उप UserForm_Initialize कॉल करती है।
9. रद्द बटन पर डबल क्लिक करें।
10. निम्नलिखित कोड लाइन जोड़ें:
Unload Me
End Sub
स्पष्टीकरण: जब आप रद्द करें बटन पर क्लिक करते हैं तो यह कोड लाइन उपयोगकर्ताफॉर्म को बंद कर देती है।
उपयोगकर्ताform का परीक्षण करें
विजुअल बेसिक एडिटर से बाहर निकलें, पंक्ति 1 में नीचे दिखाए गए लेबल दर्ज करें और उपयोगकर्ताफॉर्म का परीक्षण करें।
परिणाम:
