School Management Software

Learn to Create School Management System in MS-Excel


अगर आप MS-Excel में School Management, Coaching Management, Student Management, Fees Management, Marksheet Management, Income-Expense Management, Staff Management आदि Management System बनाना चाहते है या Excel में इस तरह का Management System कैसे बनाया जाता है आप सीखना चाहते है तो आप यहां आसानी से सीख सकते है लेकिन सीखने के लिए आपको इस Article को अच्छे से पड़ना पड़ेगा, इसके साथ ही मै आपको यह भी कहना चाहूंगा कि अगर आप MS-Excel में सभी प्रकार के Management System को बनाने व सीखने में इच्छुक हो तभी इस Article को पढ़े अन्यथा skip कर दीजिए...


  अब हम बात करते है कि इस Excel VBA Projects को कैसे बनाते है और सीखने के बाद आप को क्या क्या फायदा होगा-

  1. आप खुद अपने School या Coaching के लिए सभी प्रकार के Management System को MS-Excel में आसानी से बना सकते है, वो भी मुफ्त में...
  2. आप किसी दूसरे के School या Coaching के लिए सभी प्रकार के Management System को MS-Excel में बना सकते है और थोड़ा सा मेहनत करके पैसे कमा सकते है, वो भी बिना एक पैसे खर्च किए...
  3. अगर आपकी कोई Computer Institute हो तो आप अपने सभी प्रिय छात्र/छात्राओं को MS-Excel में कुछ नयी चीजे सीखा सकते है।

Start Learning - Basic to Advanced

MS-Excel में School Management System या इस तरह का Management System बनाना व सीखना शुरू करने से पहले आपको एक Microsoft Excel Macro-Enabled File की जरुरत पड़ेगी जिसे आप यही से Download कर सकते है

Note :-
  1. MS-Excel में School Management System या इस तरह का Management System बनाने व सीखने के लिए सभी चीजे आपको मुफ्त में मिलेगी किसी भी चीज के लिए आपको कोई Payment नहीं करना पड़ेगा
  2. Project की File आप यही से Free में Download कर सकते है।
  3. इस Project के लिए सभी Source Code Free में मिलेंगे ।
  4. मेरा पूरा Support व Guidance मिलेगा ।
  5. इस Project को सीखने के बाद आप पैसे भी कमा सकते है, लेकिन कैसे? यह भी मै बताऊंगा ।
  6. इस Project में Excel के जितने भी Formula इस्तेमाल किया जायेगा सभी को आप Copy - Paste कर सकते है, आपको Type नहीं करना पड़ेगा ।
  7. कुछ Source Code प्रोजेक्ट फाइल के साथ ही मिल जायेगा और कुछ Source Code यहीं Website पर मिलेगा जिसे आप आसानी से Copy करके अपने प्रोजेक्ट में Paste कर सकते है।
Download Project File
Download Project .zip

  How to setup this excel based project file in your computer :-
  1. सबसे पहले आप इस MS-Excel पर आधारित School Management Project File को Download कर लीजिए
  2. Open Excel file
  3. After open this downloaded file, a message will be show that Macros have been disable. Now click on Enable Content for Enable Macros.
  4. C Drive में "Photo" नाम का एक फोल्डर और एक "Teacher" नाम का फोल्डर बनाए जहाँ सभी छात्रों और अध्यापकों की Photo Save होगी
  5. Now you can use this Excel Based Project properly. अब आप इस MS-Excel पर आधारित School Management Project का सही से इस्तेमाल कर सकते हैं।
आप समझ सकते है कि जितना आसान है इस Project को आपके Computer में Setup करना उससे भी आसान है इसे उपयोग करना...

-> Free Source Code <-


निचे दिए गए Free Source Code को कैसे Use करना है ये आपको Video में बताया जायेगा ।

  Required Field for TextBox & ComboBox :

यह Code जिस TextBox या ComboBox के लिए Use करेंगे, अगर वह Admission Form भरते समय गलती से छुट जाये और आप Admission बटन पर Click करते है तो उस Student का Admission नहीं होगा, एक Message Display होगा कि "कृपया इस information को भरें" फिर उस information को भरने के बाद Admission बटन पर Click करते ही Student का Admission हो जायेगा ।


Source Code for TextBox
'==================================
'Required field for Student Name
'==================================
On Error Resume Next
If TextBox2.Text = "" Then
Cancel = 1
MsgBox "Please enter the student name", vbOKOnly, "Learn with OMGStudy.Com"
TextBox2.SetFocus
Exit Sub
End If


Source Code for ComboBox
'===================================
'Required field for Student Gender
'===================================
On Error Resume Next
If ComboBox1.Text = "" Then
Cancel = 1
MsgBox "Please select the student gender", vbOKOnly, "Learn with OMGStudy.Com"
ComboBox1.SetFocus
Exit Sub
End If


  Automatic - Proper Sentence for TextBox :

यह Code जिस TextBox के लिए Use करेंगे, उस TextBox में जब आप कोई Text टाइप करेंगे तब Automatic हर शब्द का पहला अक्षर बड़ा हो जायेगा ।


Source Code for TextBox
'=============================
'Proper Sentence for TextBox2
'=============================
Private Sub TextBox2_Change()
Me.TextBox2 = Application.WorksheetFunction.Proper(TextBox2)
End Sub


  Enter Only Numbers in TextBox :

यह Code जिस TextBox के लिए Use करेंगे, उस TextBox में आप केवल Number टाइप कर सकते है, Alphabets टाइप नहीं कर सकते है, जिस TextBox में Mobile No. या Aadhar No. Enter करना है उस TextBox के लिए इसे Use कर सकते है।


Source Code for TextBox
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'========================================================
'start code for write  Numbers only in TextBox6
'========================================================
On Error Resume Next
If (KeyAscii > 47 And KeyAscii < 58) Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key Pressed, You Can Enter Numbers Only", vbOKOnly, "Learn with OMGStudy.Com"
End If
End Sub


  Only Select from ComboBox :

यह Code जिस ComboBox के लिए Use करेंगे, उस ComboBox में आप केवल Select कर सकते है, उसमें Alphabets या Numbers कोई भी चीज टाइप नहीं कर सकते है, इसे सभी ComboBox के लिए Use कर सकते है।


Source Code for ComboBox
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'============================
'Select only from ComboBox1
'============================
On Error Resume Next
If (KeyAscii > 500 And KeyAscii < 500) Or KeyAscii = 45 Or KeyAscii = 46 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Invalid Key Pressed, You Can Select Only", vbOKOnly, "Learn with OMGStudy.com"
End If
End Sub


  Search Information :

इस Source Code का Use करके Search Information सिस्टम बना सकते है, जिससे छात्र व छात्राओं का Admission करने के बाद उनकी पूरी Information Search कर सकते है, निचे दिए गए Source Code में जहाँ "Database" लिखा है वहाँ उस Worksheet का नाम लिखना है जिस Worksheet में छात्र एवं छात्राओं की Information Record Save होती हो अथवा जिस वर्कशीट में छात्र एवं छात्राओं की Information Search करनी है।


Source Code for Search Information
'============================================
'start code for Search Student Information
'============================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("Database").Cells(y, 1).Text = TextBox10.Value Then
TextBox1.Text = Sheets("Database").Cells(y, 1)
TextBox2.Text = Sheets("Database").Cells(y, 2)
TextBox3.Text = Sheets("Database").Cells(y, 3)
TextBox4.Text = Sheets("Database").Cells(y, 4)
TextBox5.Text = Sheets("Database").Cells(y, 5)
TextBox6.Text = Sheets("Database").Cells(y, 6)
TextBox7.Text = Sheets("Database").Cells(y, 7)
TextBox8.Text = Sheets("Database").Cells(y, 8)
TextBox9.Text = Sheets("Database").Cells(y, 12)

ComboBox1.Text = Sheets("Database").Cells(y, 9)
ComboBox2.Text = Sheets("Database").Cells(y, 10)
ComboBox3.Text = Sheets("Database").Cells(y, 11)

'=================================================
'start code for Search Student Image and Display
'=================================================
On Error Resume Next
Image1.Picture = LoadPicture("C:\Photo\" & TextBox10.Text & Value & ".jpg")
Image1.PictureSizeMode = 1
End If
Next y


  Update Information :

इस Source Code का Use करके Update Information सिस्टम बना सकते है, जिससे छात्र व छात्राओं का Admission करने के बाद उनकी Information को Update भी कर सकते है, निचे दिए गए Source Code में जहाँ "Database" लिखा है वहाँ उस Worksheet का नाम लिखना है जिस Worksheet में छात्र एवं छात्राओं की Information Record Save होती है।


Source Code for Update Information
'=============================================
'start code for Update Student Information
'=============================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("Database").Cells(y, 1).Text = TextBox18.Value Then
Sheets("Database").Cells(y, 2) = TextBox2.Text
Sheets("Database").Cells(y, 3) = TextBox3.Text
Sheets("Database").Cells(y, 4) = TextBox4.Text
Sheets("Database").Cells(y, 5) = TextBox5.Text
Sheets("Database").Cells(y, 6) = TextBox6.Text
Sheets("Database").Cells(y, 7) = TextBox7.Text
Sheets("Database").Cells(y, 8) = TextBox8.Text
Sheets("Database").Cells(y, 12) = TextBox9.Text

Sheets("Database").Cells(y, 9) = ComboBox1.Text
Sheets("Database").Cells(y, 10) = ComboBox2.Text
Sheets("Database").Cells(y, 11) = ComboBox3.Text

'=====================================
'start code for Update Student photo
'=====================================
On Error Resume Next
Dim i As String
i = TextBox1.Text
FileCopy fpath, "C:\Photo\" & i & ".jpg"
Me.TextBox1.Text = ""
End If
Next y
MsgBox "Student Information updated successfully.", vbOKOnly, "Learn with OMGStudy.Com"
Unload Me
Admission.Show


  Admission Form :

इस Source Code का Use करके Admission Form सिस्टम बना सकते है, जिससे छात्र व छात्राओं का Admission करने के बाद उनकी Information को एक Admission Form में Show करा के Print कर सकते है, निचे दिया गया Source Code - जिस वर्कशीट में Students का Record Save हो रहा है उस वर्कशीट से Student की Information उठा कर Admission Form में Display करा देगा
निचे दिए गए Source Code में जहाँ -

  • Sheet2 - वह वर्कशीट जिसमे Students का Record Save हो रहा है।
  • Sheet5 - वह वर्कशीट जिसमे Admission Form है।


Source Code for Admission Form
'===========================================================
'start code for Show Student Information in Admission Form
'===========================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet5.Range("AE4").Value = Sheet2.Cells(y, "A").Value Then
Sheet5.Range("F6").Value = Sheet2.Cells(y, "A").Value
Sheet5.Range("H8").Value = Sheet2.Cells(y, "B").Value
Sheet5.Range("H10").Value = Sheet2.Cells(y, "C").Value
Sheet5.Range("H12").Value = Sheet2.Cells(y, "D").Value
Sheet5.Range("H18").Value = Sheet2.Cells(y, "E").Value
Sheet5.Range("H20").Value = Sheet2.Cells(y, "F").Value
Sheet5.Range("R20").Value = Sheet2.Cells(y, "G").Value
Sheet5.Range("H22").Value = Sheet2.Cells(y, "H").Value
Sheet5.Range("H16").Value = Sheet2.Cells(y, "I").Value
Sheet5.Range("R18").Value = Sheet2.Cells(y, "J").Value
Sheet5.Range("R16").Value = Sheet2.Cells(y, "K").Value
Sheet5.Range("N6").Value = Sheet2.Cells(y, "L").Value
End If
Next y
'==============================================
'start code for Show Photo in Admission Form
'==============================================
On Error Resume Next
Dim i As Picture
Dim J As String
If Target.Address = Range("AE4").Address Then
ActiveSheet.Pictures.Delete
J = "C:\Photo\" & Range("AE4") & Value & ".jpg"
With Range("T6")
Set i = ActiveSheet.Pictures.Insert(J)
i.Height = 89
i.Width = 65
i.Top = .Top
i.Left = .Left
End With
End If
Download Admission Form Template

  Print और Print Preview बटन :

इस Source Code का Use करके Print और Print Preview बटन बना सकते है


Source Code for Print/PrintPriview
'============================
'start code for Print Button
'============================
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate _
  :=True, ignoreprintareas:=False

'====================================
'start code for Print Preview Button
'====================================
ActiveSheet.PrintPreview

Last updated on Friday, January 13, 2021

Learn to learn-create-school-management-system-excel
Watch Next Video

Related Posts
Create Fee Deposit System in Excel || VBA Project
Create Login System in Your VBA Project
Create Staff Management System in Excel
Create Multiple Id Card in Excel
Create Income-Expense, DayBook System
Create Marksheet Management System
Create Transfer Certificate Management System
Quick Important Link
Learn Notepad in Hindi (Notepad Tutorial)
Complete Credit & Debit Management Software in Excel
आइए इसे भी जानें-
कम्प्यूटर प्रोग्राम या सॉफ्टवेयर क्या होता है?
Computer File क्या होती हैं?
वेब ब्राउज़र क्या है? What is web browser?
Keyboard Shortcut Key क्या होता है?

         
आपका बहुत बहुत धन्यवाद हमें Support करने के लिए...!

DMCA.com Protection Status