Create Marksheet Management System in Excel

आप Excel में Marksheet Management System बना सकते है जिससे आप अपने School के Marksheet अथवा Result System को Manage कर सकते है। सबसे पहले आपको निचे दिए गए Project File को Download करना है उसके बाद जिस तरह से वीडियो में बताया गया है उस तरह से अपने Project (School Management System in Excel) में Import अथवा Copy करना है

You can create Marksheet Management System in excel with which you can manage your school's marksheet or Result System. First of all, you have to download the below given project file, after which you have to import or copy it in your project (School Management System in Excel) in the same way as mentioned in the video.

Download .zip

How to setup :

Extract zip File
Open Excel File (Marksheet Management System) and copy some worksheet from here into your main Project -
- Marksheet_System
- Marksheet
- Marksheet2
- 11
- 12
- 13
- 14
Import UserForms in your project from Visual Basic Window of your main Project -
- Registration_Marksheet.frm
- Marksheet_Entry.frm
- Registration_Marksheet_9_11.frm
- Marksheet_Entry_9_11.frm
Link all buttons of marksheet dashboard with Userform / Worksheet in the same way as mentioned in the video.

Now your Marksheet System will be ready to use.

Last updated on Wednesday, May 05, 2021

Source Code for Generate Marksheet

निचे दिए गए Source Code सभी Class की मार्कशीट Generate करने के लिए है, सभी Source Code Free है केवल आपको Code Copy करना है और अपने प्रोजेक्ट में Paste कर देना है जिस तरह से वीडियो में बताया गया है, आवश्यकता पड़ने पर हो सकता है आपको Code में कुछ Edit करना पड़े इस लिए आप दिए गए वीडियो को अच्छे से देखें

The source code given below is for generating marksheets for all classes. All source code is free, only you have to copy the code and paste it into your project, as described in the video. If required, you may have to edit something in the code, so you can watch the given video thoroughly.

निचे दिए गए Free Source Code को कैसे Use करना है ये Video में बताया गया है। - How to use the below given free source code, it is told in the video.

Class Nursery to 5th Marksheet (worksheet - 11) :

निचे दिए गए Source Code Class Nursery से 5th तक की मार्कशीट Generate करने के लिए है जिसे Copy करके अपने Project में Paste करना है और प्रोजेक्ट में Code किस जगह Paste करना है यह वीडियो में बताया गया है।

The below given Source Code class is for generating marksheets from Nursery to 5th which is to be copied and pasted in your project, and where to paste the code in the project, it is described in the video.

How to use below source code

Copy the code which is given below
Go to marksheet template worksheet, The worksheet whose name is 11
Right click on the "Marksheet Generate" button
Then click on the Assign Macro...
Click on the New button
Paste the copied code here

Note : आवश्यकता पड़ने पर हो सकता है आपको Code में कुछ Edit करना पड़े इस लिए आप दिए गए वीडियो को अच्छे से देखें - If required, you may have to edit something in the code, so you can watch the given video thoroughly.

Copy Source Code

'========================================================================
'start code for Show Student Marksheet Details (Class - Nursery to 5th)
'========================================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet13.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet14.Range("AO4").Value = Sheet13.Cells(y, "A").Value Then
Sheet14.Range("R11").Value = Sheet13.Cells(y, "F").Value
Sheet14.Range("J14").Value = Sheet13.Cells(y, "B").Value
Sheet14.Range("J16").Value = Sheet13.Cells(y, "C").Value
Sheet14.Range("J18").Value = Sheet13.Cells(y, "D").Value
Sheet14.Range("J20").Value = Sheet13.Cells(y, "E").Value
Sheet14.Range("X20").Value = Sheet13.Cells(y, "G").Value

Sheet14.Range("D24").Value = Sheet13.Cells(y, "I").Value
Sheet14.Range("D25").Value = Sheet13.Cells(y, "L").Value
Sheet14.Range("D26").Value = Sheet13.Cells(y, "O").Value
Sheet14.Range("D27").Value = Sheet13.Cells(y, "R").Value
Sheet14.Range("D28").Value = Sheet13.Cells(y, "U").Value
Sheet14.Range("D29").Value = Sheet13.Cells(y, "X").Value
Sheet14.Range("D30").Value = Sheet13.Cells(y, "AA").Value
Sheet14.Range("D31").Value = Sheet13.Cells(y, "AD").Value
Sheet14.Range("D32").Value = Sheet13.Cells(y, "AG").Value
Sheet14.Range("D33").Value = Sheet13.Cells(y, "AJ").Value

Sheet14.Range("I24").Value = Sheet13.Cells(y, "J").Value
Sheet14.Range("I25").Value = Sheet13.Cells(y, "M").Value
Sheet14.Range("I26").Value = Sheet13.Cells(y, "P").Value
Sheet14.Range("I27").Value = Sheet13.Cells(y, "S").Value
Sheet14.Range("I28").Value = Sheet13.Cells(y, "V").Value
Sheet14.Range("I29").Value = Sheet13.Cells(y, "Y").Value
Sheet14.Range("I30").Value = Sheet13.Cells(y, "AB").Value
Sheet14.Range("I31").Value = Sheet13.Cells(y, "AE").Value
Sheet14.Range("I32").Value = Sheet13.Cells(y, "AH").Value
Sheet14.Range("I33").Value = Sheet13.Cells(y, "AK").Value

Sheet14.Range("M24").Value = Sheet13.Cells(y, "K").Value
Sheet14.Range("M25").Value = Sheet13.Cells(y, "N").Value
Sheet14.Range("M26").Value = Sheet13.Cells(y, "Q").Value
Sheet14.Range("M27").Value = Sheet13.Cells(y, "T").Value
Sheet14.Range("M28").Value = Sheet13.Cells(y, "W").Value
Sheet14.Range("M29").Value = Sheet13.Cells(y, "Z").Value
Sheet14.Range("M30").Value = Sheet13.Cells(y, "AC").Value
Sheet14.Range("M31").Value = Sheet13.Cells(y, "AF").Value
Sheet14.Range("M32").Value = Sheet13.Cells(y, "AI").Value
Sheet14.Range("M33").Value = Sheet13.Cells(y, "AL").Value

Sheet14.Range("Q24").Value = Sheet13.Cells(y, "AS").Value
Sheet14.Range("Q25").Value = Sheet13.Cells(y, "AV").Value
Sheet14.Range("Q26").Value = Sheet13.Cells(y, "AY").Value
Sheet14.Range("Q27").Value = Sheet13.Cells(y, "BB").Value
Sheet14.Range("Q28").Value = Sheet13.Cells(y, "BE").Value
Sheet14.Range("Q29").Value = Sheet13.Cells(y, "BH").Value
Sheet14.Range("Q30").Value = Sheet13.Cells(y, "BK").Value
Sheet14.Range("Q31").Value = Sheet13.Cells(y, "BN").Value
Sheet14.Range("Q32").Value = Sheet13.Cells(y, "BQ").Value
Sheet14.Range("Q33").Value = Sheet13.Cells(y, "BT").Value

Sheet14.Range("U24").Value = Sheet13.Cells(y, "AT").Value
Sheet14.Range("U25").Value = Sheet13.Cells(y, "AW").Value
Sheet14.Range("U26").Value = Sheet13.Cells(y, "AZ").Value
Sheet14.Range("U27").Value = Sheet13.Cells(y, "BC").Value
Sheet14.Range("U28").Value = Sheet13.Cells(y, "BF").Value
Sheet14.Range("U29").Value = Sheet13.Cells(y, "BI").Value
Sheet14.Range("U30").Value = Sheet13.Cells(y, "BL").Value
Sheet14.Range("U31").Value = Sheet13.Cells(y, "BO").Value
Sheet14.Range("U32").Value = Sheet13.Cells(y, "BR").Value
Sheet14.Range("U33").Value = Sheet13.Cells(y, "BU").Value

Sheet14.Range("R38").Value = Sheet13.Cells(y, "AQ").Value
Sheet14.Range("I11").Value = Sheet13.Cells(y, "AN").Value
Sheet14.Range("Z11").Value = Sheet13.Cells(y, "AO").Value

End If
Next y

Class 6th to 8th Marksheet (worksheet - 12) :

निचे दिए गए Source Code Class 6th से 8th तक की मार्कशीट Generate करने के लिए है जिसे Copy करके अपने Project में Paste करना है और प्रोजेक्ट में Code किस जगह Paste करना है यह वीडियो में बताया गया है।

The below given Source Code class is for generating marksheets from 6th to 8th which is to be copied and pasted in your project, and where to paste the code in the project, it is described in the video.

How to use below source code which is mentioned above, you can see from there..

Copy Source Code

'=====================================================================
'start code for Show Student Marksheet Details (Class - 6th to 8th)
'=====================================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet13.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet16.Range("AO4").Value = Sheet13.Cells(y, "A").Value Then
Sheet16.Range("R11").Value = Sheet13.Cells(y, "F").Value
Sheet16.Range("J14").Value = Sheet13.Cells(y, "B").Value
Sheet16.Range("J16").Value = Sheet13.Cells(y, "C").Value
Sheet16.Range("J18").Value = Sheet13.Cells(y, "D").Value
Sheet16.Range("J20").Value = Sheet13.Cells(y, "E").Value
Sheet16.Range("X20").Value = Sheet13.Cells(y, "G").Value

Sheet16.Range("D24").Value = Sheet13.Cells(y, "I").Value
Sheet16.Range("D25").Value = Sheet13.Cells(y, "L").Value
Sheet16.Range("D26").Value = Sheet13.Cells(y, "O").Value
Sheet16.Range("D27").Value = Sheet13.Cells(y, "R").Value
Sheet16.Range("D28").Value = Sheet13.Cells(y, "U").Value
Sheet16.Range("D29").Value = Sheet13.Cells(y, "X").Value
Sheet16.Range("D30").Value = Sheet13.Cells(y, "AA").Value
Sheet16.Range("D31").Value = Sheet13.Cells(y, "AD").Value
Sheet16.Range("D32").Value = Sheet13.Cells(y, "AG").Value
Sheet16.Range("D33").Value = Sheet13.Cells(y, "AJ").Value

Sheet16.Range("I24").Value = Sheet13.Cells(y, "J").Value
Sheet16.Range("I25").Value = Sheet13.Cells(y, "M").Value
Sheet16.Range("I26").Value = Sheet13.Cells(y, "P").Value
Sheet16.Range("I27").Value = Sheet13.Cells(y, "S").Value
Sheet16.Range("I28").Value = Sheet13.Cells(y, "V").Value
Sheet16.Range("I29").Value = Sheet13.Cells(y, "Y").Value
Sheet16.Range("I30").Value = Sheet13.Cells(y, "AB").Value
Sheet16.Range("I31").Value = Sheet13.Cells(y, "AE").Value
Sheet16.Range("I32").Value = Sheet13.Cells(y, "AH").Value
Sheet16.Range("I33").Value = Sheet13.Cells(y, "AK").Value

Sheet16.Range("M24").Value = Sheet13.Cells(y, "K").Value
Sheet16.Range("M25").Value = Sheet13.Cells(y, "N").Value
Sheet16.Range("M26").Value = Sheet13.Cells(y, "Q").Value
Sheet16.Range("M27").Value = Sheet13.Cells(y, "T").Value
Sheet16.Range("M28").Value = Sheet13.Cells(y, "W").Value
Sheet16.Range("M29").Value = Sheet13.Cells(y, "Z").Value
Sheet16.Range("M30").Value = Sheet13.Cells(y, "AC").Value
Sheet16.Range("M31").Value = Sheet13.Cells(y, "AF").Value
Sheet16.Range("M32").Value = Sheet13.Cells(y, "AI").Value
Sheet16.Range("M33").Value = Sheet13.Cells(y, "AL").Value

Sheet16.Range("Q24").Value = Sheet13.Cells(y, "AS").Value
Sheet16.Range("Q25").Value = Sheet13.Cells(y, "AV").Value
Sheet16.Range("Q26").Value = Sheet13.Cells(y, "AY").Value
Sheet16.Range("Q27").Value = Sheet13.Cells(y, "BB").Value
Sheet16.Range("Q28").Value = Sheet13.Cells(y, "BE").Value
Sheet16.Range("Q29").Value = Sheet13.Cells(y, "BH").Value
Sheet16.Range("Q30").Value = Sheet13.Cells(y, "BK").Value
Sheet16.Range("Q31").Value = Sheet13.Cells(y, "BN").Value
Sheet16.Range("Q32").Value = Sheet13.Cells(y, "BQ").Value
Sheet16.Range("Q33").Value = Sheet13.Cells(y, "BT").Value

Sheet16.Range("U24").Value = Sheet13.Cells(y, "AT").Value
Sheet16.Range("U25").Value = Sheet13.Cells(y, "AW").Value
Sheet16.Range("U26").Value = Sheet13.Cells(y, "AZ").Value
Sheet16.Range("U27").Value = Sheet13.Cells(y, "BC").Value
Sheet16.Range("U28").Value = Sheet13.Cells(y, "BF").Value
Sheet16.Range("U29").Value = Sheet13.Cells(y, "BI").Value
Sheet16.Range("U30").Value = Sheet13.Cells(y, "BL").Value
Sheet16.Range("U31").Value = Sheet13.Cells(y, "BO").Value
Sheet16.Range("U32").Value = Sheet13.Cells(y, "BR").Value
Sheet16.Range("U33").Value = Sheet13.Cells(y, "BU").Value

Sheet16.Range("R38").Value = Sheet13.Cells(y, "AQ").Value
Sheet16.Range("I11").Value = Sheet13.Cells(y, "AN").Value
Sheet16.Range("Z11").Value = Sheet13.Cells(y, "AO").Value

End If
Next y

Class 9th Marksheet (worksheet - 13) :

निचे दिए गए Source Code Class 9th की मार्कशीट Generate करने के लिए है जिसे Copy करके अपने Project में Paste करना है और प्रोजेक्ट में Code किस जगह Paste करना है यह वीडियो में बताया गया है।

The below given Source Code class is for generating marksheets from 9th which is to be copied and pasted in your project, and where to paste the code in the project, it is described in the video.

How to use below source code which is mentioned above, you can see from there..

Copy Source Code

'============================================================
'start code for Show Student Marksheet Details (Class - 9th)
'============================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet19.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet17.Range("AV4").Value = Sheet19.Cells(y, "A").Value Then

Sheet17.Range("J14").Value = Sheet19.Cells(y, "B").Value
Sheet17.Range("J16").Value = Sheet19.Cells(y, "C").Value
Sheet17.Range("J18").Value = Sheet19.Cells(y, "D").Value
Sheet17.Range("J20").Value = Sheet19.Cells(y, "E").Value
Sheet17.Range("AA20").Value = Sheet19.Cells(y, "G").Value
Sheet17.Range("D24").Value = Sheet19.Cells(y, "M").Value
Sheet17.Range("D25").Value = Sheet19.Cells(y, "Q").Value
Sheet17.Range("D26").Value = Sheet19.Cells(y, "U").Value
Sheet17.Range("D27").Value = Sheet19.Cells(y, "Y").Value
Sheet17.Range("D28").Value = Sheet19.Cells(y, "AC").Value
Sheet17.Range("D29").Value = Sheet19.Cells(y, "AG").Value

Sheet17.Range("I24").Value = Sheet19.Cells(y, "N").Value
Sheet17.Range("I25").Value = Sheet19.Cells(y, "R").Value
Sheet17.Range("I26").Value = Sheet19.Cells(y, "V").Value
Sheet17.Range("I27").Value = Sheet19.Cells(y, "Z").Value
Sheet17.Range("I28").Value = Sheet19.Cells(y, "AD").Value
Sheet17.Range("I29").Value = Sheet19.Cells(y, "AH").Value

Sheet17.Range("M24").Value = Sheet19.Cells(y, "O").Value
Sheet17.Range("M25").Value = Sheet19.Cells(y, "S").Value
Sheet17.Range("M26").Value = Sheet19.Cells(y, "W").Value
Sheet17.Range("M27").Value = Sheet19.Cells(y, "AA").Value
Sheet17.Range("M28").Value = Sheet19.Cells(y, "AE").Value
Sheet17.Range("M29").Value = Sheet19.Cells(y, "AI").Value

Sheet17.Range("Q24").Value = Sheet19.Cells(y, "P").Value
Sheet17.Range("Q25").Value = Sheet19.Cells(y, "T").Value
Sheet17.Range("Q26").Value = Sheet19.Cells(y, "X").Value
Sheet17.Range("Q27").Value = Sheet19.Cells(y, "AB").Value
Sheet17.Range("Q28").Value = Sheet19.Cells(y, "AF").Value
Sheet17.Range("Q29").Value = Sheet19.Cells(y, "AJ").Value

Sheet17.Range("T24").Value = Sheet19.Cells(y, "AM").Value
Sheet17.Range("T25").Value = Sheet19.Cells(y, "AQ").Value
Sheet17.Range("T26").Value = Sheet19.Cells(y, "AU").Value
Sheet17.Range("T27").Value = Sheet19.Cells(y, "AY").Value
Sheet17.Range("T28").Value = Sheet19.Cells(y, "BC").Value
Sheet17.Range("T29").Value = Sheet19.Cells(y, "BG").Value

Sheet17.Range("X24").Value = Sheet19.Cells(y, "AN").Value
Sheet17.Range("X25").Value = Sheet19.Cells(y, "AR").Value
Sheet17.Range("X26").Value = Sheet19.Cells(y, "AV").Value
Sheet17.Range("X27").Value = Sheet19.Cells(y, "AZ").Value
Sheet17.Range("X28").Value = Sheet19.Cells(y, "BD").Value
Sheet17.Range("X29").Value = Sheet19.Cells(y, "BH").Value

Sheet17.Range("AB24").Value = Sheet19.Cells(y, "AO").Value
Sheet17.Range("AB25").Value = Sheet19.Cells(y, "AS").Value
Sheet17.Range("AB26").Value = Sheet19.Cells(y, "AW").Value
Sheet17.Range("AB27").Value = Sheet19.Cells(y, "BA").Value
Sheet17.Range("AB28").Value = Sheet19.Cells(y, "BE").Value
Sheet17.Range("AB29").Value = Sheet19.Cells(y, "BI").Value

Sheet17.Range("U34").Value = Sheet19.Cells(y, "J").Value
Sheet17.Range("I11").Value = Sheet19.Cells(y, "H").Value
Sheet17.Range("AF11").Value = Sheet19.Cells(y, "I").Value

End If
Next y

Class 11th Marksheet (worksheet - 14) :

निचे दिए गए Source Code Class 11th की मार्कशीट Generate करने के लिए है जिसे Copy करके अपने Project में Paste करना है और प्रोजेक्ट में Code किस जगह Paste करना है यह वीडियो में बताया गया है।

The below given Source Code class is for generating marksheets from 11th which is to be copied and pasted in your project, and where to paste the code in the project, it is described in the video.

How to use below source code which is mentioned above, you can see from there..

Copy Source Code

'============================================================
'start code for Show Student Marksheet Details (Class - 11th)
'============================================================
On Error Resume Next
Dim x As Long
Dim y As Long
x = Sheet19.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet18.Range("AV4").Value = Sheet19.Cells(y, "A").Value Then

Sheet18.Range("J14").Value = Sheet19.Cells(y, "B").Value
Sheet18.Range("J16").Value = Sheet19.Cells(y, "C").Value
Sheet18.Range("J18").Value = Sheet19.Cells(y, "D").Value
Sheet18.Range("J20").Value = Sheet19.Cells(y, "E").Value
Sheet18.Range("AA20").Value = Sheet19.Cells(y, "G").Value
Sheet18.Range("D24").Value = Sheet19.Cells(y, "M").Value
Sheet18.Range("D25").Value = Sheet19.Cells(y, "Q").Value
Sheet18.Range("D26").Value = Sheet19.Cells(y, "U").Value
Sheet18.Range("D27").Value = Sheet19.Cells(y, "Y").Value
Sheet18.Range("D28").Value = Sheet19.Cells(y, "AC").Value

Sheet18.Range("I24").Value = Sheet19.Cells(y, "N").Value
Sheet18.Range("I25").Value = Sheet19.Cells(y, "R").Value
Sheet18.Range("I26").Value = Sheet19.Cells(y, "V").Value
Sheet18.Range("I27").Value = Sheet19.Cells(y, "Z").Value
Sheet18.Range("I28").Value = Sheet19.Cells(y, "AD").Value

Sheet18.Range("M24").Value = Sheet19.Cells(y, "O").Value
Sheet18.Range("M25").Value = Sheet19.Cells(y, "S").Value
Sheet18.Range("M26").Value = Sheet19.Cells(y, "W").Value
Sheet18.Range("M27").Value = Sheet19.Cells(y, "AA").Value
Sheet18.Range("M28").Value = Sheet19.Cells(y, "AE").Value

Sheet18.Range("Q24").Value = Sheet19.Cells(y, "P").Value
Sheet18.Range("Q25").Value = Sheet19.Cells(y, "T").Value
Sheet18.Range("Q26").Value = Sheet19.Cells(y, "X").Value
Sheet18.Range("Q27").Value = Sheet19.Cells(y, "AB").Value
Sheet18.Range("Q28").Value = Sheet19.Cells(y, "AF").Value

Sheet18.Range("T24").Value = Sheet19.Cells(y, "AM").Value
Sheet18.Range("T25").Value = Sheet19.Cells(y, "AQ").Value
Sheet18.Range("T26").Value = Sheet19.Cells(y, "AU").Value
Sheet18.Range("T27").Value = Sheet19.Cells(y, "AY").Value
Sheet18.Range("T28").Value = Sheet19.Cells(y, "BC").Value

Sheet18.Range("X24").Value = Sheet19.Cells(y, "AN").Value
Sheet18.Range("X25").Value = Sheet19.Cells(y, "AR").Value
Sheet18.Range("X26").Value = Sheet19.Cells(y, "AV").Value
Sheet18.Range("X27").Value = Sheet19.Cells(y, "AZ").Value
Sheet18.Range("X28").Value = Sheet19.Cells(y, "BD").Value

Sheet18.Range("AB24").Value = Sheet19.Cells(y, "AO").Value
Sheet18.Range("AB25").Value = Sheet19.Cells(y, "AS").Value
Sheet18.Range("AB26").Value = Sheet19.Cells(y, "AW").Value
Sheet18.Range("AB27").Value = Sheet19.Cells(y, "BA").Value
Sheet18.Range("AB28").Value = Sheet19.Cells(y, "BE").Value

Sheet18.Range("U33").Value = Sheet19.Cells(y, "J").Value
Sheet18.Range("I11").Value = Sheet19.Cells(y, "H").Value
Sheet18.Range("AF11").Value = Sheet19.Cells(y, "I").Value

End If
Next y