Nastavnici uvijek imaju puno zadataka koje treba obaviti. Oni moraju pripremiti bilješke za sutrašnji čas, pratiti učinak učenika, pripremiti izvještaje za top menadžment i još mnogo toga. Učinimo unos oznake lakim zadatkom za njih.
Preuzeti sada
Ako želite što prije početi koristiti softver, možete:
Inače, ako želite DIY, možete pročitati sadržaj ispod.
Hajde da pripremimo GUI
Kao što je prikazano na ovim slikama, pripremite alat s potrebnim listovima.
| Naziv lista | Opis |
| ulazak | Ovo je GUI za unos oznaka. |
| baza podataka | Ovaj list služi kao baza podataka i čuva ocjene učenika |
| Popis | Ovaj list sadrži podatke koji će se koristiti za kreiranje padajućih menija. |
| studenti | Ovaj list je mapa različitih učenika prema njihovim razredima. |
Iz prozora VBA projekta preimenujte listove kao što je prikazano ovdje.
Učinimo ga funkcionalnim
Kopirajte makro u novi modul i prikačite makroe odgovarajućim dugmadima.
| makro | Prikači na dugme | Opis |
| Class_dropdown | - | Ovaj makro kreira padajući meni za "Klasu" |
| Section_dropdown | - | Ovaj makro kreira padajući meni za "Section" |
| Subject_dropdown | - | Ovaj makro kreira padajući meni za "Subject" |
| Show_List | Prikaži listu | Ovaj makro prikazuje učenike iz odabranog razreda i odjeljenja |
| Dodaj_U_bazu podataka | Pošalji | Ova oznaka za otpremanje makroa 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ćava da kreirate veoma osnovni sistem za unos ocena. Međutim, možete ga podesiti i kreirati analitičke izvještaje koristeći podatke iz lista „Baza podataka“. Dobra je praksa napraviti sigurnosnu kopiju za list baze podataka. Ovo će vam pomoći da oporavite a corrupt xlsx list.
Uvod za autora:
Nick Vipond je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvarena riječ i Outlook softverski proizvodi za oporavak. Za više informacija posjetite www.datanumen.com.