Create Staff Management System in Excel

अगर आप अपने Excel वाले Project "School or Coaching Management System" में Staff Management System बनाना चाहते है तो आप आसानी से बना सकते है, इसके लिए मै आप लोगो को Staff Management System से सम्बंधित सारी चीजें बना के Provide कर रहा हु, आप इसे आसानी से अपने Project में इस्तेमाल कर सकते है।
सबसे पहले आप Download पर Click करके कुछ Files को Download करके Video में बताये गये अनुसार अपने Project में Import कीजिए, फिर नीचे दिए गये Source Code को Copy करके Video में बताये गये अनुसार अपने Project में Paste कर दीजिये

सबसे पहले आप C-Drive में Teacher नाम का एक Folder बना लीजिये क्योकि इसी Folder में सभी Staff की Photo आ के Save होगी...

Download

Free Source Code for Staff Registration

Code for Registration Button :

निचे दिया गया Source Code Registration बटन के लिए है, उसे Copy करके अपने प्रोजेक्ट के Backend में जाना है और Add Teacher वाला Userform को Edit करके Registration वाले बटन पर Double Click करके Copy किये गये Code को Video में बताये गये अनुसार Paste कर देना है, अधिक जानकारी के लिए Staff Management System के लिए बनाये गये वीडियो को देख सकते है।

Source Code

On Error Resume Next
Dim x As Long
Dim y As Worksheet
Set y = Sheets("Teacher_Record")
x = y.Range("B" & Rows.Count).End(xlUp).Row
With y
.Cells(x + 1, "A").Value = TextBox2.Text
.Cells(x + 1, "B").Value = TextBox3.Text
.Cells(x + 1, "C").Value = TextBox4.Text
.Cells(x + 1, "E").Value = TextBox5.Text
.Cells(x + 1, "F").Value = TextBox6.Text
.Cells(x + 1, "G").Value = TextBox7.Text
.Cells(x + 1, "H").Value = TextBox8.Text
.Cells(x + 1, "J").Value = TextBox9.Text
.Cells(x + 1, "I").Value = TextBox10.Text
.Cells(x + 1, "L").Value = TextBox14.Text
.Cells(x + 1, "K").Value = TextBox12.Text
.Cells(x + 1, "AY").Value = TextBox15.Text
.Cells(x + 1, "N").Value = TextBox16.Text
.Cells(x + 1, "O").Value = TextBox17.Text
.Cells(x + 1, "P").Value = TextBox18.Text
.Cells(x + 1, "Q").Value = TextBox19.Text
.Cells(x + 1, "R").Value = TextBox20.Text
.Cells(x + 1, "D").Value = ComboBox1.Text
.Cells(x + 1, "BC").Value = ComboBox2.Text
.Cells(x + 1, "M").Value = ComboBox3.Text

End With
'==============================================================
'start code for send uploaded photo in Photo folder of C Drive
'==============================================================
On Error Resume Next
Dim i As String
i = TextBox2.Text
FileCopy fpath, "C:\Teacher\" & i & ".jpg"
Me.TextBox2.Text = ""
'=============================================================================
'start code for clear textbox after submit data from textbox into excel sheet
'=============================================================================
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox12.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
'=================================================
'start code for clear uploaded photo after submit
'=================================================
Image1.Picture = Nothing
'==============================================
'start code for show message after submit data
'==============================================
MsgBox "Data submitted successfully. Now click the reset button for new admission.", vbOKOnly, "Created by https://www.www.omgstudy.com"

Code for Search Button :

निचे दिया गया Source Code किसी भी Staff को Search करने के लिए है
इस Code को Copy करने के बाद अपने School या Coaching Management वाले Project में "Teachers_Search_Update" वाले UserForm में Search बटन पर Double Click करके Copy किये गये Code को Video में बताये गये अनुसार Paste कर देना है, अधिक जानकारी के लिए Staff Management System के लिए Search बटन पर बनाये गये वीडियो को देख सकते है।

Source Code

'========================================================
'start code for Search Student Information
'========================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheets("Teacher_Record").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("Teacher_Record").Cells(y, 1).Text = TextBox13.Value Then
TextBox2.Text = Sheets("Teacher_Record").Cells(y, 1)
TextBox3.Text = Sheets("Teacher_Record").Cells(y, 2)
TextBox4.Text = Sheets("Teacher_Record").Cells(y, 3)
TextBox5.Text = Sheets("Teacher_Record").Cells(y, 5)
TextBox6.Text = Sheets("Teacher_Record").Cells(y, 6)
TextBox7.Text = Sheets("Teacher_Record").Cells(y, 7)
TextBox8.Text = Sheets("Teacher_Record").Cells(y, 8)
TextBox9.Text = Sheets("Teacher_Record").Cells(y, 10)
TextBox10.Text = Sheets("Teacher_Record").Cells(y, 9)
TextBox12.Text = Sheets("Teacher_Record").Cells(y, 11)
TextBox14.Text = Sheets("Teacher_Record").Cells(y, 12)
TextBox15.Text = Sheets("Teacher_Record").Cells(y, 51)
TextBox16.Text = Sheets("Teacher_Record").Cells(y, 14)
TextBox17.Text = Sheets("Teacher_Record").Cells(y, 15)
TextBox18.Text = Sheets("Teacher_Record").Cells(y, 16)
TextBox19.Text = Sheets("Teacher_Record").Cells(y, 17)
TextBox20.Text = Sheets("Teacher_Record").Cells(y, 18)
ComboBox1.Text = Sheets("Teacher_Record").Cells(y, 4)
ComboBox2.Text = Sheets("Teacher_Record").Cells(y, 55)
ComboBox3.Text = Sheets("Teacher_Record").Cells(y, 13)
'==============================================
'start code for Search Student Image and Show
'==============================================
On Error Resume Next
Image1.Picture = LoadPicture("C:\Teacher\" & TextBox13.Text & Value & ".jpg")
Image1.PictureSizeMode = 1
End If
Next y

Code for Update Button :

निचे दिया गया Source Code किसी भी Staff के Information को Update करने के लिए है
इस Code को Copy करने के बाद अपने School या Coaching Management वाले Project में "Teachers_Search_Update" वाले UserForm में Update बटन पर Double Click करके Copy किये गये Code को Video में बताये गये अनुसार Paste कर देना है, अधिक जानकारी के लिए Staff Management System के लिए Update बटन पर बनाये गये वीडियो को देख सकते है।

Source Code

'==========================================
'start code for Update Student Information
'==========================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheets("Teacher_Record").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("Teacher_Record").Cells(y, 1).Text = TextBox13.Value Then
Sheets("Teacher_Record").Cells(y, 2) = TextBox3.Text
Sheets("Teacher_Record").Cells(y, 3) = TextBox4.Text
Sheets("Teacher_Record").Cells(y, 5) = TextBox5.Text
Sheets("Teacher_Record").Cells(y, 6) = TextBox6.Text
Sheets("Teacher_Record").Cells(y, 7) = TextBox7.Text
Sheets("Teacher_Record").Cells(y, 8) = TextBox8.Text
Sheets("Teacher_Record").Cells(y, 10) = TextBox9.Text
Sheets("Teacher_Record").Cells(y, 9) = TextBox10.Text
Sheets("Teacher_Record").Cells(y, 11) = TextBox12.Text
Sheets("Teacher_Record").Cells(y, 12) = TextBox14.Text
Sheets("Teacher_Record").Cells(y, 51) = TextBox15.Text
Sheets("Teacher_Record").Cells(y, 14) = TextBox16.Text
Sheets("Teacher_Record").Cells(y, 15) = TextBox17.Text
Sheets("Teacher_Record").Cells(y, 16) = TextBox18.Text
Sheets("Teacher_Record").Cells(y, 17) = TextBox19.Text
Sheets("Teacher_Record").Cells(y, 18) = TextBox20.Text
Sheets("Teacher_Record").Cells(y, 4) = ComboBox1.Text
Sheets("Teacher_Record").Cells(y, 55) = ComboBox2.Text
Sheets("Teacher_Record").Cells(y, 13) = ComboBox3.Text
'================================================================
'start code for Update photo and send in Photo folder of C Drive
'================================================================
On Error Resume Next
Dim i As String
i = TextBox2.Text
FileCopy fpath, "C:\Teacher\" & i & ".jpg"
Me.TextBox2.Text = ""

End If
Next y
MsgBox "Information updated successfully.", vbOKOnly, "Created by https://www.omgstudy.com"
Unload Me
Teachers_Search_Update.Show

Free Source Code for Payment System

Code for Search Button :

निचे दिया गया Source Code किसी भी Staff की Persanal Details और Payment Details को Search करने के लिए है
इस Code को Copy करने के बाद अपने School या Coaching Management वाले Project में "Teacher_Payment" वाले UserForm में Search बटन पर Double Click करके Copy किये गये Code को Video में बताये गये अनुसार Paste कर देना है, अधिक जानकारी के लिए Staff Management System के लिए Payment वाले Search बटन पर बनाये गये वीडियो को देख सकते है।

Source Code

'==========================================
'start code for Search Student Information
'==========================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheets("Teacher_Record").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("Teacher_Record").Cells(y, 1).Text = TextBox8.Value Then
TextBox1.Text = Sheets("Teacher_Record").Cells(y, 1)
TextBox5.Text = Sheets("Teacher_Record").Cells(y, 2)
TextBox6.Text = Sheets("Teacher_Record").Cells(y, 13)
TextBox7.Text = Sheets("Teacher_Record").Cells(y, 4)
TextBox4.Text = Sheets("Teacher_Record").Cells(y, 9)
TextBox3.Text = Sheets("Teacher_Record").Cells(y, 10)
TextBox2.Text = Sheets("Teacher_Record").Cells(y, 12)
TextBox9.Text = Sheets("Teacher_Record").Cells(y, 27)
TextBox10.Text = Sheets("Teacher_Record").Cells(y, 28)
TextBox11.Text = Sheets("Teacher_Record").Cells(y, 29)
TextBox12.Text = Sheets("Teacher_Record").Cells(y, 30)
TextBox13.Text = Sheets("Teacher_Record").Cells(y, 31)
TextBox14.Text = Sheets("Teacher_Record").Cells(y, 32)
TextBox15.Text = Sheets("Teacher_Record").Cells(y, 33)
TextBox16.Text = Sheets("Teacher_Record").Cells(y, 34)
TextBox17.Text = Sheets("Teacher_Record").Cells(y, 35)
TextBox18.Text = Sheets("Teacher_Record").Cells(y, 36)
TextBox19.Text = Sheets("Teacher_Record").Cells(y, 37)
TextBox20.Text = Sheets("Teacher_Record").Cells(y, 38)
TextBox21.Text = Sheets("Teacher_Record").Cells(y, 39)
TextBox22.Text = Sheets("Teacher_Record").Cells(y, 40)
TextBox23.Text = Sheets("Teacher_Record").Cells(y, 41)
TextBox24.Text = Sheets("Teacher_Record").Cells(y, 42)
TextBox25.Text = Sheets("Teacher_Record").Cells(y, 43)
TextBox26.Text = Sheets("Teacher_Record").Cells(y, 44)
TextBox27.Text = Sheets("Teacher_Record").Cells(y, 45)
TextBox28.Text = Sheets("Teacher_Record").Cells(y, 46)
TextBox29.Text = Sheets("Teacher_Record").Cells(y, 47)
TextBox30.Text = Sheets("Teacher_Record").Cells(y, 48)
TextBox31.Text = Sheets("Teacher_Record").Cells(y, 49)
TextBox32.Text = Sheets("Teacher_Record").Cells(y, 50)
TextBox40.Text = Sheets("Teacher_Record").Cells(y, 51)
TextBox41.Text = Sheets("Teacher_Record").Cells(y, 52)
TextBox42.Text = Sheets("Teacher_Record").Cells(y, 53)
TextBox43.Text = Sheets("Teacher_Record").Cells(y, 54)
TextBox44.Text = Sheets("Teacher_Record").Cells(y, 55)
End If
Next y

Code for Update Button :

निचे दिया गया Source Code किसी भी Staff के Payment Details को Update करने के लिए है
इस Code को Copy करने के बाद अपने School या Coaching Management वाले Project में "Teachers_Teacher" वाले UserForm में Update बटन पर Double Click करके Copy किये गये Code को Video में बताये गये अनुसार Paste कर देना है, अधिक जानकारी के लिए Staff Management System के लिए Payment वाले Update बटन पर बनाये गये वीडियो को देख सकते है।

Source Code

'================================================
'start code for Update Payment Details of Staff
'================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheets("Teacher_Record").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("Teacher_Record").Cells(y, 1).Text = TextBox8.Value Then
Sheets("Teacher_Record").Cells(y, 27) = TextBox9.Text
Sheets("Teacher_Record").Cells(y, 28) = TextBox10.Text
Sheets("Teacher_Record").Cells(y, 29) = TextBox11.Text
Sheets("Teacher_Record").Cells(y, 30) = TextBox12.Text
Sheets("Teacher_Record").Cells(y, 31) = TextBox13.Text
Sheets("Teacher_Record").Cells(y, 32) = TextBox14.Text
Sheets("Teacher_Record").Cells(y, 33) = TextBox15.Text
Sheets("Teacher_Record").Cells(y, 34) = TextBox16.Text
Sheets("Teacher_Record").Cells(y, 35) = TextBox17.Text
Sheets("Teacher_Record").Cells(y, 36) = TextBox18.Text
Sheets("Teacher_Record").Cells(y, 37) = TextBox19.Text
Sheets("Teacher_Record").Cells(y, 38) = TextBox20.Text
Sheets("Teacher_Record").Cells(y, 39) = TextBox21.Text
Sheets("Teacher_Record").Cells(y, 40) = TextBox22.Text
Sheets("Teacher_Record").Cells(y, 41) = TextBox23.Text
Sheets("Teacher_Record").Cells(y, 42) = TextBox24.Text
Sheets("Teacher_Record").Cells(y, 43) = TextBox25.Text
Sheets("Teacher_Record").Cells(y, 44) = TextBox26.Text
Sheets("Teacher_Record").Cells(y, 45) = TextBox27.Text
Sheets("Teacher_Record").Cells(y, 46) = TextBox28.Text
Sheets("Teacher_Record").Cells(y, 47) = TextBox29.Text
Sheets("Teacher_Record").Cells(y, 48) = TextBox30.Text
Sheets("Teacher_Record").Cells(y, 49) = TextBox31.Text
Sheets("Teacher_Record").Cells(y, 50) = TextBox32.Text

End If
Next y
MsgBox "Payment Update Successfully.", vbOKOnly, "Created by https://www.omgstudy.com"
Unload Me
Teacher_Payment.Show

Code for Print Payment Receipt :

निचे दिया गया Source Code किसी भी Staff के Payment Details को Payment Receipt में Display करने के लिए है
इस Code को Copy करने के बाद अपने Payment Receipt वाले Sheet में "Show Details" बटन पर Right Click करके Assign Macro पर Click करने के बाद New पर Click करना है फिर Copy किये गये Code को Video में बताये गये अनुसार Paste कर देना है, अधिक जानकारी के लिए Staff Management System के लिए Payment Receipt पर बनाये गये वीडियो को देख सकते है।

Source Code

'================================================================
'start code for Show Information of Payment Receipt of Teachers
'================================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet9.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet7.Range("P8").Value = Sheet9.Cells(y, "A").Value Then
Sheet7.Range("C6").Value = Sheet9.Cells(y, "A").Value
Sheet7.Range("D7").Value = Sheet9.Cells(y, "B").Value
Sheet7.Range("D8").Value = Sheet9.Cells(y, "C").Value
Sheet7.Range("D9").Value = Sheet9.Cells(y, "J").Value
Sheet7.Range("J7").Value = Sheet9.Cells(y, "D").Value
Sheet7.Range("J8").Value = Sheet9.Cells(y, "L").Value
Sheet7.Range("J9").Value = Sheet9.Cells(y, "I").Value
Sheet7.Range("E11").Value = Sheet9.Cells(y, "AB").Value
Sheet7.Range("E12").Value = Sheet9.Cells(y, "AD").Value
Sheet7.Range("E13").Value = Sheet9.Cells(y, "AF").Value
Sheet7.Range("E14").Value = Sheet9.Cells(y, "AH").Value
Sheet7.Range("E15").Value = Sheet9.Cells(y, "AJ").Value
Sheet7.Range("E16").Value = Sheet9.Cells(y, "AL").Value
Sheet7.Range("E17").Value = Sheet9.Cells(y, "AN").Value
Sheet7.Range("E18").Value = Sheet9.Cells(y, "AP").Value
Sheet7.Range("E19").Value = Sheet9.Cells(y, "AR").Value
Sheet7.Range("E20").Value = Sheet9.Cells(y, "AT").Value
Sheet7.Range("E21").Value = Sheet9.Cells(y, "AV").Value
Sheet7.Range("E22").Value = Sheet9.Cells(y, "AX").Value
Sheet7.Range("E24").Value = Sheet9.Cells(y, "AY").Value
Sheet7.Range("E25").Value = Sheet9.Cells(y, "BD").Value
Sheet7.Range("J11").Value = Sheet9.Cells(y, "AA").Value
Sheet7.Range("J12").Value = Sheet9.Cells(y, "AC").Value
Sheet7.Range("J13").Value = Sheet9.Cells(y, "AE").Value
Sheet7.Range("J14").Value = Sheet9.Cells(y, "AG").Value
Sheet7.Range("J15").Value = Sheet9.Cells(y, "AI").Value
Sheet7.Range("J16").Value = Sheet9.Cells(y, "AK").Value
Sheet7.Range("J17").Value = Sheet9.Cells(y, "AM").Value
Sheet7.Range("J18").Value = Sheet9.Cells(y, "AO").Value
Sheet7.Range("J19").Value = Sheet9.Cells(y, "AQ").Value
Sheet7.Range("J20").Value = Sheet9.Cells(y, "AS").Value
Sheet7.Range("J21").Value = Sheet9.Cells(y, "AU").Value
Sheet7.Range("J22").Value = Sheet9.Cells(y, "AW").Value
Sheet7.Range("J26").Value = Sheet9.Cells(y, "BA").Value
End If
Next y

Last updated on Tuesday, March 30, 2021

Create Staff Management System in Excel

सबसे पहले आप C-Drive में Teacher नाम का एक Folder बना लीजिये क्योकि इसी Folder में सभी Staff की Photo आ के Save होगी...

Free Source Code for Staff Registration

Code for Registration Button :

Source Code

Code for Search Button :

Source Code

Code for Update Button :

Source Code

Free Source Code for Payment System

Code for Search Button :

Source Code

Code for Update Button :

Source Code

Code for Print Payment Receipt :

Source Code

Create Staff Management System in excel using VBA

Create Staff Payment Receipt System in Excel

Related Posts

Quick Important Link

आइए इसे भी जानें-

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