एक्सेल वीबीए उपयोगकर्ता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 लेबल	बदलने की जरूरत नहीं है	नाम :, फोन नंबर: आदि

नोट: कॉम्बो बॉक्स एक ड्रॉप-डाउन सूची है जहां से कोई उपयोगकर्ता कोई आइटम चुन सकता है या अपनी पसंद भर सकता है। विकल्प बटनों में से केवल एक का चयन किया जा सकता है।

उपयोगकर्ताफॉर्म दिखाएं

उपयोगकर्ताफॉर्म दिखाने के लिए, अपनी वर्कशीट पर एक कमांड बटन रखें और निम्न कोड पंक्ति जोड़ें:

Private Sub CommandButton1_Click()

DinnerPlannerUserForm.Show

End Sub

अब हम सब UserForm_Initialize बनाने जा रहे हैं। जब आप उपयोगकर्ताफॉर्म के लिए शो विधि का उपयोग करते हैं, तो यह उप स्वचालित रूप से निष्पादित हो जाएगा।

1. विजुअल बेसिक एडिटर खोलें।

2. प्रोजेक्ट एक्सप्लोरर में, डिनरप्लानर यूज़रफॉर्म पर राइट क्लिक करें और फिर कोड देखें पर क्लिक करें।

3. बाएं ड्रॉप-डाउन सूची से उपयोगकर्ताफॉर्म चुनें। सही ड्रॉप-डाउन सूची से प्रारंभ करें चुनें।

4. निम्नलिखित कोड लाइन जोड़ें:

Private Sub UserForm_Initialize()

"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. निम्नलिखित कोड लाइन जोड़ें:

Private Sub MoneySpinButton_Change()

MoneyTextBox.Text = MoneySpinButton.Value

End Sub

स्पष्टीकरण: जब आप स्पिन बटन का उपयोग करते हैं तो यह कोड लाइन टेक्स्ट बॉक्स को अपडेट करती है।

5. ओके बटन पर डबल क्लिक करें।

6. निम्नलिखित कोड लाइन जोड़ें:

Private Sub OKButton_Click()

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. निम्नलिखित कोड लाइन जोड़ें:

Private Sub ClearButton_Click()

Call UserForm_Initialize

End Sub

स्पष्टीकरण: जब आप साफ़ बटन पर क्लिक करते हैं तो यह कोड लाइन उप UserForm_Initialize कॉल करती है।

9. रद्द बटन पर डबल क्लिक करें।

10. निम्नलिखित कोड लाइन जोड़ें:

Private Sub CancelButton_Click()

Unload Me

End Sub

स्पष्टीकरण: जब आप रद्द करें बटन पर क्लिक करते हैं तो यह कोड लाइन उपयोगकर्ताफॉर्म को बंद कर देती है।