DataNumen Sistem za vpis ocen - brezplačen sistem za vpis ocen za učitelje

Rešitve Excel Oktober 3, 2025

Učitelji morajo vedno opraviti veliko nalog. Pripraviti morajo zapiske za jutrišnji pouk, spremljati uspešnost študentov, pripraviti poročila za vodstvo in še veliko več. Naj bo vnos znamke zanje lahka naloga.

Prenesi zdaj

Če želite programsko opremo začeti uporabljati čim prej, lahko:

Prenesite programsko opremo zdaj

V nasprotnem primeru, če želite sami, lahko preberete spodnjo vsebino.

Pripravimo GUI

Kot je prikazano na teh slikah, pripravite orodje s potrebnimi listi.

Ime lista	Opis
Začetek	To je GUI za vnos znamke.
Baze podatkov	Ta list deluje kot baza podatkov in vsebuje ocene študentov
Seznam	Na tem listu so podatki, ki bodo uporabljeni za ustvarjanje spustnih menijev.
Študenti	Ta list vsebuje zemljevide različnih učencev v njihove razrede.

V oknu projekta VBA preimenujte liste, kot je prikazano tukaj.

Naj bo funkcionalen

Kopirajte makro v nov modul in makrom pritrdite na ustrezne gumbe.

Makro	Pripni na gumb	Opis
Razred_padec	-	Ta makro ustvari spustni meni za »Razred«
Section_dropdown	-	Ta makro ustvari spustni meni za razdelek
Predmet_padec	-	Ta makro ustvari spustni meni za »Zadeva«
Prikaži_seznam	Prikaži seznam	Ta makro prikazuje učence iz izbranega razreda in oddelka
Dodaj_v_zbirko podatkov	Prijava	Ta makro naloži oznake vnosov na list baze podatkov.

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

Potegnite ga

Ta skript vam omogoča, da ustvarite zelo osnovni sistem za vnos znamk. Lahko pa ga prilagodite in ustvarite analitična poročila z uporabo podatkov iz lista „Baza podatkov“. Dobra praksa je, da ustvarite varnostno kopijo za list baze podatkov. To vam bo pomagalo obnoviti a pokvarjen xlsx list.

Uvod avtorja:

Nick Vipond je strokovnjak za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjena beseda in obeti za obnovitev programske opreme. Za več informacij obiščite www.datanumen.com.