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

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ă vrei să starPentru a utiliza software-ul cât mai curând posibil, atunci 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.

Intrarea foii

Lista de foi

Foaie Student

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

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.

Comentariile sunt închise.