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:
Î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.