Skolotājiem vienmēr ir jāveic daudz uzdevumu. Viņiem jāsagatavo piezīmes par rītdienas nodarbībām, jāseko studentu sniegumam, jāsagatavo pārskati augstākajai vadībai un daudz kas cits. Padarīsim atzīmes ierakstu par viņiem vienkāršu uzdevumu.
Lejupielādēt tagad
Ja vēlaties sākt lietot programmatūru pēc iespējas ātrāk, varat:
Lejupielādējiet programmatūru tūlīt
Pretējā gadījumā, ja vēlaties DIY, varat izlasīt tālāk sniegto saturu.
Sagatavosim GUI
Kā parādīts šajos attēlos, sagatavojiet rīku ar nepieciešamajām loksnēm.
| Lapas nosaukums | Apraksts |
| ieraksts | Šī ir GUI, lai ievadītu atzīmi. |
| Datubāze | Šī lapa darbojas kā datu bāze un satur studentu atzīmes |
| saraksts | Šajā lapā ir dati, kas tiks izmantoti nolaižamo izvēlņu izveidošanai. |
| Studenti | Šī lapa ir dažādu skolēnu kartēšana viņu attiecīgajās klasēs. |
VBA projekta logā pārdēvējiet lapas, kā parādīts šeit.
Padarīsim to funkcionālu
Kopējiet makro jaunā modulī un pievienojiet makro attiecīgajām pogām.
| Makro | Pievienojiet pogai | Apraksts |
| Klases_dropdown | - | Šis makro izveido nolaižamo izvēlni “Klase” |
| Sadaļas_dropdown | - | Šis makro izveido nolaižamo izvēlni sadaļai |
| Subject_dropdown | - | Šis makro izveido nolaižamo izvēlni “Subject” |
| Show_List | Rādīt sarakstu | Šis makro parāda studentus no atlasītās klases un sadaļas |
| Pievienot_To_database | Iesniegt | Šī makro augšupielādes atzīmes ieraksti datu bāzes lapā. |
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
Pielāgojiet to
Šis skripts ļauj jums izveidot ļoti vienkāršu atzīmju ievades sistēmu. Tomēr jūs varat to pielāgot un izveidot analītiskus pārskatus, izmantojot datus no lapas “Datu bāze”. Laba prakse ir izveidot datu bāzes lapas dublējumu. Tas palīdzēs jums atgūt korumpēts xlsx lapas.
Autora ievads:
Niks Viponds ir datu atkopšanas eksperts DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp korumpēts vārds un perspektīvas atkopšanas programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar.