Learn How to Create Admission Form In VBA

हेलो दोस्तों , कैसे हो आप सभी। दोस्तों मुझे पूरी उम्मीद हैं की आप ने एक्सेल के सभी सेशन को देखा होगा।  अगर नहीं देखा हैं तो प्लीज जरूर देखिये  और कुछ आप लोगो के सुझाव होंगे तो जरूर पोस्ट कीजिये।  आज हम एक्सेल विसुअल बेसिक आप्लिकेशन मैं सीखेंगे की किसी क्लासेस  का एडमिशन फॉर्म बनाना। यूजर फॉर्म बनाना , कमांड बटन , कॉम्बोबॉक्स का इस्तेमाल करना। 

• Form Design

आपको सबसे पहले फ़ील्ड्स को तयार करना हैं। जैसे आपको एडमिशन फॉर्म मैं क्या क्या डिटेल चाहिए।
जैसे नाम ,एड्रेस , डेट ऑफ़ बिरथ , कांटेक्ट नो रजिस्ट्रेशन नंबर , फीस ,पेड फीस , बैलेंस, कोर्स  . यहाँ पर हम किसी कंप्यूटर क्लास का एडमिशन फॉर्म तयार करेंगे।

आपको एक्सेल शीट मैं ऊपर जैसी  एक शीट बनानी  हैं ताकि जब भी हम फॉर्म मैं एंट्री करे। उसकी डिटेल एक्सेल शीट मैं जाए।
१) डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक आप्लिकेशन सेलेक्ट करे।
२) इन्सर्ट मेनू पर क्लिक करे , यूजर फॉर्म सेलेक्ट करे।
3) टूल बॉक्स से फ्रेम सेलेक्ट करके यूजर फॉर्म पर  ड्रैग करे।  जिस से फॉर्म अच्छा लगे।
४) फ्रेम १ का नाम चेंज करने के लिए   प्रोपेरिट्स मैं जाए। कैप्शन मैं एडमिशन फॉर्म टाइप करे।   येलो हाइलाइटेड सेटिंग चेंज करे।

५) यूजर फॉर्म का नाम चेंज करे।  यूजर फॉर्म से ग्लोबेनेट कंप्यूटर एजुकेशन।  यूजर फॉर्म सेलेक्ट करे प्रॉपर्टीज पर क्लिक करे।  कैप्शन मैं जाए और GlobeNet COMPUTER EDUCATION टाइप करे।

6) टूल बॉक्स से लेबल सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे और  Name टाइप करे। बॉक्स को इफ़ेक्ट देने के लिए आप प्रॉपर्टीज बार से स्पेशल इफ़ेक्ट सेलेक्ट करे।

7)  टूल बॉक्स से टेक्स्ट बॉक्स ab|सेलेक्ट करे .यूजर फॉर्म पर ड्रैग करे।

८) लेबल और  टेक्स्ट बॉक्स दोनों को सेलेक्ट करे। कॉपी पेस्ट करे। और अभी कांटेक्ट लिखे और साइज छोटा करे। 

९) दुबारा कॉपी पेस्ट करे और डेट ऑफ़ बर्थ टाइप करे  , 

१०) टूल बॉक्स से ऑप्शन बटन सेलेक्ट करे जेंडर के लिए यूजर फॉर्म पर ड्रैग करे।  १) मेल और २) फीमेल टाइप करे। 

११) लेबल १ और टेक्स्ट बॉक्स १  करे। जहा पर नाम लिखा हैं और कॉपी पेस्ट करे।  अब एड्रेस लिखे। 

१२) टूल बॉक्स से कॉम्बोबॉक्स पर क्लिक करे  और यूजर फॉर्म पर ड्रैग करे। यहाँ  पर हम कॉम्बो बॉक्स को लिस्ट के लिए उपयोग करेंगे। जिस से हमे कोर्स के नाम दिखे। एड्रेस लेबल को कॉपी करे और पेस्ट करे।  कोर्स लिखे। 

१३) लास्ट फीलड हैं फीस जिसे आप लेबल और टेक्स्ट बॉक्स की हेल्प से ड्रैग कर सकते हो या कॉपी पेस्ट। 

१४) अगर आप फॉर्म मैं स्टूडेंटन्स का फोटो ऐड  चाहते हो तो टूल बॉक्स से इमेज सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे। 

१५) फॉर्म पर हम एक बटन ऐड करेंगे जिस से जब भी हम फॉर्म फील करे और सबमिट  बटन प्रेस करे तो वो डाटा वर्कशीट मैं  ऐड हो जाये। 

आप प्रॉपर्टीज से बटन का कलर भी चेंज कर सकते हो।  फॉर्म को देखने के  लिए रन बटन पर क्लिक करे 

फाइनली आपका फॉर्म कुछ इस तरह से दिखाई देगा। 

अभी हमने ऊपर फॉर्म को डिज़ाइन करना सिका है। वर्कशीट मैं  जो भी फील्ड्स थी वो सभी फील्ड्स हमने फॉर्म मैं बना ली हैं।  अब हम इस पर कोडिंग करके इसे एक्टिव करेंगे। 

नोट: फॉर्म को कोडिंग  पहले हम एक्सेल शीट मैं एक बटन बनाएंगे जिस से जब भी हम उस बटन पर क्लिक करे हमें एडमिशन फॉर्म दिखाई देना चाहिए। 

आइये इसे समझते हैं। 

• Admission Form Button

वर्कशीट मैं एक शेप ड्रा करे। इन्सर्ट मेनू पर  क्लिक करे ,शेप सेलेक्ट करे ड्रैग करे नाम दे ,एडमिशन फॉर्म 

शेप पर राइट क्लिक करे असाइन  मैक्रो पर क्लिक करे 

मैक्रो का नाम दे। Abc_Click रन पर क्लिक करे  आपको मॉडुल १ दिखाई देगा  और प्रोग्राम टाइप करे ये।

नोट :प्रोग्राम आपको सब  और एन्ड सब  के बिच ही टाइप करना हैं।
UserForm1.show लिखने के बाद आप को रन बटन पर क्लिक करना हैं।
 जब भी हम वर्कशीट के एडमिशन फॉर्म पर क्लिक करेंगे तो हमें फॉर्म दिखाई देना चाहिए।

अब हम देखंगे की ग्लोबेनेट कंप्यूटर एजुकेशन का एडमिशन फॉर्म काम कर रहा हैं या नहीं।  उसके लिए  कोर्स (कॉम्बोबॉक्स १) बटन पर कोडिंग  करना होगा। जिस से की हमे कोर्स के नाम दिखाई दे।

• ComboBox 

१)डवलपर मेनू पर क्लिक करे
२)विसुअल बेसिक एप्लीकेशन बटन  पर क्लिक करे।
३) यूजर फॉर्म १ को सेलेक्ट करे। डबल क्लिक करे  यूजर फॉर्म को एक्टिव करे।
५)प्राइवेट सब कमांड बटन १ और  एन्ड के बिच प्रोग्राम टाइप करे।

 ६) रन बटन पर क्लिक करे  और एडमिशन फॉर्म मैं लिस्ट चेक करे ,

आप इसी तरह से और भी कोर्स के नाम ऐड कर सकते हो।

क्लियर बटन

• Clear Button

अब हम फॉर्म मैं एक बटन और ऐड करेंगे। क्लियर बटन से एडमिशन फॉर्म मैं जो भी लिखा होगा वो क्लियर हो जायेगा।
१) डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक एप्लीकेशन सेलेक्ट करे।
२) यूजर फॉर्म १ सेलेक्ट करे ,
३) टूल बॉक्स से कमांड बटन सेलेक्ट करे और यूजर फॉर्म पर ड्रैग करे।  या सबमिट बटन को कॉपी पेस्ट करे और नाम चेंज करे।
४) क्लियर बटन पर डबल क्लिक करे  और प्रोग्राम टाइप करे।

५) रन बटन पर क्लिक करे और चेक करे फॉर्म मैं सभी फील्ड्स को फील करे और

६) क्लियर बटन पर क्लिक करे।

• Submit Button  

सबमिट बटन पर जब हम क्लिक करे , तभी सारे फ़ील्ड्स की डिटेल हमें एक्सेल शीट मैं दिखाई दे ,और साथ साथ हमें ये भी मैसेज दिखाई दे डुबलीकेट एंट्री , या कोई फीलड  खाली  तो नहीं हैं। अगर हैं तो हमें मैसेज दिखाई दे। ये सब हम इफ कंडीशन की हेल्प से करेंगे। 

• कंडीशन १ 

१) डेवलपर मेनू पर क्लिक करे , विसुअल बेसिक एप्लीकेशन सेलेक्ट करे।

२) यूजर फॉर्म १ सेलेक्ट करे , सबमिट बटन पर डबल क्लिक करे।
३)यहाँ पर हम कांटेक्ट पर प्रोग्राम टाइप करेंगे। कांटेक्ट  मैं सिर्फ नंबर ही टाइप हो टेक्स्ट नहीं तो उसके  लिए हम टाइप करेंगे।

४)ऊपर वाले कोड को टाइप करे।  और  रन करके चेक करे।  यहाँ पर हमने टेक्स्ट बोक्स  लिखा हैं , क्युकी मोबाइल नंबर टेस्टबोक्स २ मैं हैं।  मैसेज बॉक्स मैं मैसेज  टाइप किया हैं। 

५) अब आप  फॉर्म मैं कांटेक्ट नंबर की जगह कोई भी टेक्स्ट लिखेंगे तो आपको मैसेज दिखाई देगा. 

६)  कांटेक्ट नंबर लिखंगे तो आपको ये मैसेज नहीं दिखाई देगा। 

• कंडीशन २ 

फीस के लिए हम कंडशन १ को कॉपी करके कंडीशन २ मैं पेस्ट करेंगे। ये सब सबमिट बटन मैं ही करना हैं। बस इस मैं तोड़े बदलाव करने हैं ,

यहाँ पर हमने टेस्टबोक्स १ के जगह टेक्स्ट बॉक्स ५ लिखा हैं।  क्युकी फीस टेक्स्ट बॉक्स ५ मैं हैं। और मैसेज को चेंज किया हैं। 

रन बटन पर क्लिक करे और प्रोग्राम  चेक करे। 

यहां  पर आप देखंगे की फीस मैं टेक्स्ट टाइप करने के बाद जब आप सबमिट बटन पर क्लिक करते हो तो आपको ये मैसेज दिखाई देगा "Please Input Correct Value". 

वैसे ही अगर आप DOB पर यह प्रोग्राम टाइप करना चाहो तो वो भी कर सकते हो।  बस आपको  चेंज करना होगा। 

• कंडीशन ३ 

अगर  आप कोर्स नहीं सेलेक्ट  करेंगे तो भी आप इसतरहा की  कंडीशन लगा सकते हो.  कमांड बटन मैं ये प्रोग्राम टाइप। करे

यहाँ पर हमने कंडीशन १ को ही कॉपी  पेस्ट  किया हैं बस टेस्टबोक्स की जगह कॉम्बोबॉक्स १ टाइप किया हैं और मैसेज को  चेंज किया हैं।  "Please Select Course"  प्रोग्राम रन करे और चेक करे। 

• कंडीशन ४ 

यही कंडीशन आप जेंडर के लिए भी इस्तेमाल कर सकते हो। इस प्रोग्राम को कमांड बटन मैं टाइप करे।

यहां  पर हम ऑप्शन १ मैं जहा पर मेल और ऑप्शन २ मैं फीमेल लिखा हैं उसे अगर ना सेलेक्ट  करे तो मैसेज दिखाई देना चाहिए। "Please Select Gender"  रन प्रोग्राम पर क्लिक करे और चेक करे 

• कंडीशन ५ 

यहाँ पर आप  नाम को भी कंडीशन दे सकते हैं  अगर कोई नाम के बॉक्स मैं नाम ना लिखे तो मैसेज दिखाई देना चाहिए , उसके लिए आप यह प्रोग्राम टाइप कर सकते हो।

यहाँ पर हम टेक्स्ट बॉक्स १ का इस्तेमाल करेंगे। और मैसेज बॉक्स मैं लिखंगे "Please Enter Studetn Name"

 रन बटन पर क्लिक करे और चेक करे। 

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

• डुप्लीकेट कंडीशन 

यहाँ पर हमने डीम Af नाम वर्कशीट को दिया हैं। और रेंज ("A:A") कॉलम मैं अगर कोई भी नाम दुबारा टाइप किया जाये तो हमें मैसेज दिखाई देना चाहिए "डुप्लीकेट एंट्री"

यहाँ पर हमने पहली लाइन मैं डिम Sh नाम दिया हैं , और इफ कंडीशन की हेल्प से रेंज (A :A )कॉलम मैं जो भी दुबारा लिखा हो तो मैसेज डुप्लीकेट एंट्री दिखाई दे ,

फिर हमने फाइल का कोई डाटा डिलीट न करे इसके लिए इसे प्रोटेक्ट कर दिया हैं। पासवर्ड   लगा कर।  उसके बाद हमने 

sh.Range)"A" & n+).value = me .Textbox१ .value लिखा हैं।  इसका मतलब हैं अगर टेक्स्ट बॉक्स १ मैं अगर मैं नाम लिखू तो वो A कॉलम मैं जाये , वैसे ही टेक्स्ट बॉक्स २ ,३,४ मैं जो भी वैल्यू हैं वो वर्कशीट मैं अपनी जगह पर जाये। ऐसे। 

अब  अगर को डुप्लीकेट एंट्री लिखे तो हमें डुप्लीकेट मैसेज दिखाई दे। 

सबमिट बटन पर एंटर करने के बाद हमारा डाटा तो वर्कशीट पर दिखाई देता हैं लेकिन जब हम फॉर्म पर दोबारा कोई एंट्री करनी होती हैं तो एडमिशन फॉर्म पर ओल्ड डाटा दिखाई देता हैं।  उसे क्लियर करने के लिए हम क्लियर प्रोग्राम को कॉपी कर के सबमिट बटन मैं पेस्ट करेंगे। 

यहाँ पर हमारा एडमिशन फॉर्म पूरी तरह से तयार हो गया है. इस  मैं हमने क्लोज बटन ,ऐड इमेज बटन, नेक्स्ट और बैक बटन को भी ऐड किया हैं।  आगे हम इनके बारे  मैं भी जानेगे। 

 जब आप यहाँ पर बटन बनाने जायेगे तो आपको रिव्यु मेनू मैं जाकर वर्कशीट को उनप्रोटेक्ट करना होगा।  मतलब पासवर्ड टाइप करना होगा।  क्युकी हमने वर्कशीट को प्रोटेक्ट किया हैं। और हमारा यहाँ  पासवर्ड हैं 123456 

•  Close Button

क्लोज बटन पर डबल क्लिक करे। और प्रोग्राम टाइप करे। 

अब रन बटन पर क्लिक करे और चेक करे। जब आप क्लोज बटन पर क्लिक करेंगे तो एडमिशन फॉर्म बंद हो जायेगा। आप फॉर्म को टॉप राइट साइड मैं क्रॉस बटन से भी क्लोज कर सकते हो। 

• Add Image Button

आपको एडमिशन फॉर्म  पर बटन ड्रैग करना हैं।  और उस नाम  ऐड इमेज टाइप करना हैं। डबल क्लिक करके प्रोग्राम को  टाइप करना हैं। जब आप ऐड इमेज बटन पर क्लिक करे तो प्रोग्राम आपको उस फोल्डर के लोकेशन ले जाये। 

 ऐड बटन के उप्पर आपको लिखना हैं Dim fpath As String और प्राइवेट सब  बटन के अंधेर ऊपर वाला प्रोग्राम , इसमें मल्टीप्ल  फाइल को नहीं सेलेक्ट करना हैं और एक ओपन फाइल का फोल्डर हो जहा से हम पिक्चर ले सके। और फिर हमने इफ दे कर कंडीशन दी हैं जो भी फाइल हम सेलेक्ट करे उसका साइज क्लिप मोड मैं हो।  आप १,२,३ भी टाइप कर सकते हो। 

अब प्रोग्राम को रन करे। ऐड इमेज बटन पर डबल क्लिक करे। और वो फोल्डर सेलेक्ट करे जहा पर आपकी इमेज हो। हम यहाँ पर इमेज  को सेलेक्ट करेंगे। और ओपन पर क्लिक करेंगे। 

जब आप इमेज  को सेलेक्ट करेंगे तो आपको एडमिशन फॉर्म पर वो इमेज दिखाई देगी। 

नोट : यहाँ  पर फोटो  साइज ८ से १5  KB के बीच रखनी हैं।  नहीं तो आपकी फोटो इमेज बॉक्स से बहार जा सकती हैं। 

निचे आपको सभी बटन की कोडिंग दी गई हैं। 

Private Sub CommandButton1_Click()

'Mobile Number

If VBA.IsNumeric(Me.TextBox2.Value) = False Then

MsgBox "Please Enter Correct Number", vbCritical

Exit Sub

End If

'Fees

If VBA.IsNumeric(Me.TextBox5.Value) = False Then

MsgBox "Please Input Correct Value", vbCritical

Exit Sub

End If

'Course

If Me.ComboBox1.Value = "" Then

MsgBox "Please Select Course", vbCritical

Exit Sub

End If

'Gender

If Me.OptionButton1.Value = False And Me.OptionButton2.Value = False Then

MsgBox "Please Select Gender", vbCritical

Exit Sub

End If

'student Name

If Me.TextBox1.Value = "" Then

MsgBox "Please Enter Studetn Name", vbCritical

Exit Sub

End If

'Duplicate

Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("Sheet1")

Dim n As Long

If Application.WorksheetFunction.CountIf(sh.Range("A:A"), Me.TextBox1.Value) > 0 Then

MsgBox "Duplicate Entry", vbCritical

Exit Sub

End If

n = sh.Range("A" & Application.Rows.count).End(xlUp).Row

sh.Unprotect "123456"

sh.Range("A" & n + 1).Value = Me.TextBox1.Value

sh.Range("B" & n + 1).Value = Me.TextBox2.Value

sh.Range("C" & n + 1).Value = Me.TextBox3.Value

sh.Range("E" & n + 1).Value = Me.TextBox4.Value

sh.Range("G" & n + 1).Value = Me.TextBox5.Value

sh.Range("F" & n + 1).Value = Me.ComboBox1.Value

If Me.OptionButton1.Value = True Then sh.Range("D" & n + 1).Value = "Male"

If Me.OptionButton2.Value = True Then sh.Range("D" & n + 1).Value = "Female"

sh.Protect "123456"

 

 Me.TextBox1.Value = ""

Me.TextBox2.Value = ""

Me.TextBox3.Value = ""

Me.TextBox4.Value = ""

Me.TextBox5.Value = ""

Me.ComboBox1.Value = ""

Me.OptionButton1.Value = False

Me.OptionButton2.Value = False

Me.Image1.Visible = True

        

        MsgBox "Add New Record", vbInformation

        

End Sub

Private Sub CommandButton2_Click()

Me.TextBox1.Value = ""

Me.TextBox2.Value = ""

Me.TextBox3.Value = ""

Me.TextBox4.Value = ""

Me.TextBox5.Value = ""

Me.ComboBox1.Value = ""

Me.OptionButton1.Value = False

Me.OptionButton2.Value = False

End Sub

'Clear

Private Sub CommandButton3_Click()

Unload Me

End Sub

Dim fpath As String 

'ADD IMAGE

Private Sub CommandButton6_Click()

Dim x As Integer

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

x = Application.FileDialog(msoFileDialogOpen).Show

If x <> 0 Then

fpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

Image1.Picture = LoadPicture(fpath)

Image1.PictureSizeMode = fmPictureSizeModeClip

End If

End Sub

Private Sub UserForm_Activate()

With Me.ComboBox1

        .Clear

        .AddItem ""

        .AddItem "MS-CIT"

        .AddItem "Tally"

        .AddItem "DTP"

        .AddItem "Web-Designing"

        .AddItem "Hardware"

        .AddItem "English Speaking"

        

        End With

        

End Sub

थैंक यू आशा  करता हूँ आपको सभी कोड समझने  मैं सफल रहा होऊंगा।  अगर  आपके पास कोई सुझाव या सवाल हैं तो प्लीज कमेंट बॉक्स मैं साझा करे। धन्यवाद।