DataNumen Sustav za unos ocjena – besplatni sustav za unos ocjena za nastavnike

Excel rješenja 3. listopada 2025.

Učitelji uvijek imaju gomilu zadataka koje moraju izvršiti. Moraju pripremiti bilješke za sutrašnji sat, pratiti uspjeh učenika, pripremiti izvješća za top menadžment i još mnogo toga. Učinimo im unos oznake lakim zadatkom.

Preuzmite sada

Ako želite start koristiti softver što je prije moguće, tada možete:

Preuzmite softver sada

Inače, ako želite DIY, možete pročitati sadržaj u nastavku.

Pripremimo GUI

Kao što je prikazano na ovim slikama, pripremite alat s potrebnim listovima.

Naziv lista	Opis
ulaz	Ovo je GUI za unos oznake.
Baza podataka	Ovaj list služi kao baza podataka i sadrži ocjene učenika
Popis	Ovaj list sadrži podatke koji će se koristiti za izradu padajućih izbornika.
Studenti	Ovaj list je mapa različitih učenika u njihove razrede.

Iz prozora VBA projekta preimenujte listove kao što je prikazano ovdje.

Učinimo ga funkcionalnim

Kopirajte makronaredbu u novi modul i priložite makronaredbe na odgovarajuće gumbe.

Makro	Pričvrstite na gumb	Opis
Klasa_padajući	-	Ova makronaredba stvara padajući izbornik za "Razred"
padajući_odjeljak	-	Ova makronaredba stvara padajući izbornik za "Odjeljak"
Subject_dropdown	-	Ova makronaredba stvara padajući izbornik za "Predmet"
Show_List	Prikaži popis	Ova makronaredba prikazuje učenike iz odabranog razreda i odjela
Dodaj_u_bazu_podataka	Procjena	Ova oznaka za prijenos makronaredbe ulazi u list baze podataka.

Sub Class_dropdown()
    Dim lr As Long
    Dim r As Long
    lr = lst.Range("A" & Rows.Count).End(xlUp).Row
    Dim prodlist As String
    For r = 2 To lr
        If prodlist = "" Then
            prodlist = lst.Range("A" & r).Value
        Else
            prodlist = prodlist & "," & lst.Range("A" & r).Value
        End If
        Next r
        With entry.Range("C2:D2").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=prodlist
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
End Sub

Sub Section_dropdown()
    Dim lr As Long
    Dim r As Long
    lr = lst.Range("B" & Rows.Count).End(xlUp).Row
    Dim prodlist As String
    For r = 2 To lr
        If prodlist = "" Then
            prodlist = lst.Range("B" & r).Value
        Else
            prodlist = prodlist & "," & lst.Range("B" & r).Value
        End If
        Next r
        With entry.Range("G2:H2").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=prodlist
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
End Sub

Sub Subject_dropdown()
    Dim lr As Long
    Dim r As Long
    lr = lst.Range("C" & Rows.Count).End(xlUp).Row
    Dim prodlist As String
    For r = 2 To lr
        If prodlist = "" Then
            prodlist = lst.Range("C" & r).Value
        Else
            prodlist = prodlist & "," & lst.Range("C" & r).Value
        End If
        Next r
        With entry.Range("K2:O2").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=prodlist
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
End Sub

Sub Show_List()
    Dim r As Long
    Dim lr As Long
    Dim e As Long
    e = 5
    lr = std.Range("A" & Rows.Count).End(xlUp).Row
    For r = 2 To lr
        If std.Range("A" & r).Value = entry.Range("C2").Value And std.Range("B" & r).Value = entry.Range("G2").Value Then
            e = e + 1
            entry.Range("B" & e).Value = std.Range("C" & r).Value
            entry.Range("C" & e).Value = std.Range("D" & r).Value
        End If
        Next r
End Sub

Sub Add_To_Database()
    Dim r As Long
    Dim lr As Long
    Dim e As Long
    e = 5
    lr = entry.Range("B" & Rows.Count).End(xlUp).Row
    For r = 6 To lr
        Dim lrind As Long
        lrind = db.Range("B" & Rows.Count).End(xlUp).Row + 1
        db.Range("A" & lrind).Value = entry.Range("C2").Value
        db.Range("B" & lrind).Value = entry.Range("G2").Value
        db.Range("C" & lrind).Value = entry.Range("K2").Value
        db.Range("D" & lrind).Value = entry.Range("C" & r).Value
        db.Range("E" & lrind).Value = entry.Range("K" & r).Value
        Next r
End Sub

Podesite ga

Ova skripta vam omogućuje stvaranje vrlo osnovnog sustava za unos oznaka. Međutim, možete ga prilagoditi i izraditi analitička izvješća koristeći podatke iz lista "Baza podataka". Dobra je praksa stvoriti sigurnosnu kopiju za list baze podataka. Ovo će vam pomoći da oporavite a pokvaren xlsx list.

Uvod za autora:

Nick Vipond je stručnjak za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvarena riječ i softverski proizvodi za oporavak Outlooka. Za više informacija posjetite www.datanumen.com.