Userform in excel make school admission fee form in Hindi | Learn Vba Function |

Make a School admission Fee Form using UserForm In Excel    

What Is Visual Basic (विजुअल बेसिक क्या है?)

दोस्तों विजुअल बेसिक एक tool  है जिसका यूज हम एप्लीकेशन बनाने के लिए करते हैं | इसकी प्रोग्रामिंग लैंग्वेज की खास विशेषता यह होती है होती है कि कोई यूजर बड़े ही आसानी से समझ सकता है और और इसे हैंडल भी कर सकता है इसमें इंटीग्रेटेड डेवलपमेंट एनवायरमेंट को निहित कर सकते हैं इसे आप माउस के माध्यम से एप्लीकेशन का विकास कर सकते हैं और कीबोर्ड के माध्यम से Code को टाइप करते हैं जो कि एक्सक्यूट होता है |

दोस्तों आज की इस पोस्ट में हम विजुअल बेसिक में यूजरफॉर्म की मदद से स्कूल एडमिशन फीस फॉर्म कैसे बनाया जाता है इसके बारे में जानेंगे जिसमें हम Add , Add Picture Aur Exit जैसे कमांड बटन के बारे में भी जानेंगे  |


                                                      यह भी पढ़ें - Average Function In Excel

इसे बनाने के लिए निम्नलिखित चरण होते हैं इसे ध्यान से पढ़ें

1.  इसके लिए सबसे पहले अपनी एक्सल फाइल को ओपन कर ले और डेवलपर ऑप्शन पर क्लिक करें वहां से विजुअल बेसिक ऑप्शन को सेलेक्ट करके विजुअल बेसिक की विंडो पर पहुंच जाएं |

2.  इंसर्ट ऑप्शन पर क्लिक करके यूजरफॉर्म ऑप्शन को सिलेक्ट कर लें सिलेक्ट करने के बाद आपको विंडो पर एक यूजरफॉर्म वन के नाम से एक फॉर्म शो करेगा |

3.  यूजरफॉर्म की फॉर्मेटिंग चित्र अनुसार कर ले |

4. जो भी नेम ऊपर दिए गए चित्र में शो कर रहा है जैसे कि स्टूडेंट नेम, फादर नेम इत्यादि की हेडिंग को एक्सेल फाइल में अपने क्रिएट कर ले | इसके बाद हम चाहते हैं कि जो भी डाटा हम सामने दिए गए बॉक्स में टाइप करें वह निर्धारित हेडिंग्स के नीचे पहुंच जाए इसके लिए हम कोड लिखेंगे |

5.  डाटा को ऐड करने के लिए हम ऊपर दिए गए चित्र में ऐड बटन पर Double क्लिक करके कोड को टाइप करेंगे |

6. सबसे पहले अपनी डाटा में लास्ट रुको फाइंड करेंगे लास्ट कोड को फाइंड करने का कोड नीचे दिया हुआ है |

Note: यहां पर डाटा स्टार्ट A कॉलम से हुआ है तो तू हमें A कॉलम का लास्ट Row फाइंड करना होगा जिसका कोड नीचे दिया हुआ है

Dim X As Long

X = Range("A1000").End(xlUp).Row + 1

7. एक्सेल में हमारी हेडिंग चित्र अनुसार निम्नलिखित कॉलम में दी हुई है तो इन कॉलम में एंट्री के लिए हम Code को इस प्रकार से लिखेंगे | 

'Add Data

With Sheets("Sheet1")

Cells(X, "A").Value = TextBox7.Text

Cells(X, "b").Value = TextBox1.Text

Cells(X, "c").Value = TextBox5.Text

Cells(X, "d").Value = TextBox4.Text

Cells(X, "e").Value = TextBox3.Text

Cells(X, "F").Value = TextBox8.Text

End With

'Clear Data

TextBox1.Text = ""

TextBox5.Text = ""

TextBox4.Text = ""

TextBox3.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

End Sub


                                                 यह भी पढ़ें- excel Shortcut Key 2016

8. अब हम Exit Button के लिए Code लिखेंगे  | इसके लिए अब हमें Exit Button  पर डबल क्लिक  करना होगा और अपनी कोड को टाइप करनी होगी | इसके लिए कोड है|

Unload Me

9. अब हमें तीसरा ऑप्शन जो कि सर्च का है उसके लिए कोड लिखेंगे इसके लिए सर्च वाले बटन पर डबल क्लिक करके Code को टाइप करें |

Dim Lrow As Long

Dim X As Long

Lrow = Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row

'To search data

For X = 4 To Lrow

If Sheets("sheet1").Cells(X, "A").Value = TextBox6.Text Then

TextBox1.Text = Cells(X, "b").Value

TextBox5.Text = Cells(X, "C").Value

TextBox4.Text = Cells(X, "d").Value

TextBox3.Text = Cells(X, "e").Value

TextBox8.Text = Cells(X, "F").Value

TextBox7.Text = Cells(X, "A").Value

End If

Next X

End Sub

10. अब हमें लास्ट ऑप्शन जो कि ऐड इमेज का है उसके लिए Code टाइप करेंगे तो कोर्ट को टाइप करने के लिए एडिमेज वाले बटन पर डबल क्लिक करके code को टाइप करें |

Dim fpath As String

Dim X As Long

'Paste Picture

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 = 1

 End If

End Sub

अधिक जानकारी के लिए नीचे दिए गए वीडियो को देखें |

To Download Sheet For Practice Link Given Below
https://drive.google.com/drive/u/0/my-drive