DataNumen Sistem de introducere a notificărilor – Un sistem gratuit de intrare a notificărilor pentru profesori

Soluții Excel Octombrie 3, 2025

Profesorii au întotdeauna o mulțime de sarcini de îndeplinit. Ei trebuie să pregătească notițe pentru clasa de mâine, să urmărească performanța elevilor, să pregătească rapoarte pentru conducerea de top și multe altele. Să facem din introducerea mărcii o sarcină ușoară pentru ei.

Descarcă acum

Dacă doriți să începeți să utilizați software-ul cât mai curând posibil, puteți:

Descărcați software-ul acum

În rest, dacă vrei să faci DIY, poți citi conținutul de mai jos.

Să pregătim GUI

După cum se arată în aceste imagini, pregătiți instrumentul cu foile necesare.

Numele foii	Descriere
Intrare	Aceasta este interfața grafică pentru introducerea mărcii.
Baza de date	Această fișă acționează ca bază de date și deține notele elevilor
Listă	Această foaie conține date care vor fi folosite pentru a crea meniuri derulante.
Elevi	Această fișă reprezintă hărțile diferiților elevi la clasele lor respective.

Din fereastra proiectului VBA, redenumiți foile așa cum se arată aici.

Să-l facem funcțional

Copiați macrocomandă într-un modul nou și atașați macrocomenzi la butoanele lor respective.

Macro	Atașați la Button	Descriere
Class_dropdown	-	Această macrocomandă creează meniul drop-down pentru „Clasă”
Section_dropdown	-	Această macrocomandă creează meniul drop-down pentru „Secțiune”
Subiect_dropdown	-	Această macrocomandă creează meniul drop-down pentru „Subiect”
Afișează_Lista	Afișați lista	Această macrocomandă arată studenții din clasa și secțiunea selectate
Add_To_Database	Trimite	Această macrocomandă de încărcare a marcajului în foaia bazei de date.

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

Ajustați-l

Acest script vă permite să creați un sistem foarte simplu de introducere a mărcilor. Cu toate acestea, îl puteți modifica și crea rapoarte analitice folosind datele din foaia „Bază de date”. Este o practică bună să creați o copie de rezervă pentru foaia de bază de date. Acest lucru vă va ajuta să recuperați a xlsx corupt foaie.

Introducerea autorului:

Nick Vipond este un expert în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv cuvânt corupt și produse software de recuperare Outlook. Pentru mai multe informații vizitați www.datanumen.com.