Öğretmenlerin her zaman tamamlaması gereken tonlarca görevi vardır. Yarınki ders için notlar hazırlamak, öğrencinin performansını takip etmek, üst yönetim için raporlar hazırlamak ve daha pek çok şey yapmak zorundalar. İşaret girişini onlar için kolay bir görev haline getirelim.
Hemen İndir
Yazılımı mümkün olan en kısa sürede kullanmaya başlamak istiyorsanız, şunları yapabilirsiniz:
Aksi takdirde, DIY yapmak istiyorsanız aşağıdaki içeriği okuyabilirsiniz.
GUI'yi Hazırlayalım
Bu resimlerde gösterildiği gibi, aracı gerekli sayfalarla hazırlayın.
| Sayfa Adı | Açıklama |
| Girdi | Bu, işaret girişi için GUI'dir. |
| veritabanı | Bu sayfa veri tabanı görevi görür ve öğrencilerin notlarını tutar |
| Liste | Bu sayfada açılır menüler oluşturmak için kullanılacak veriler bulunur. |
| Öğrenciler | Bu sayfa, çeşitli öğrencileri kendi sınıflarına göre haritalandırır. |
VBA proje penceresinden, sayfaları burada gösterildiği gibi yeniden adlandırın.
işlevsel hale getirelim
Makroyu yeni bir modüle kopyalayın ve makroları ilgili düğmelerine ekleyin.
| Makro | Düğmeye Ekle | Açıklama |
| Class_dropdown | - | Bu makro, "Sınıf" için açılan menüyü oluşturur |
| Bölüm_dropdown | - | Bu makro, "Bölüm" için açılan menüyü oluşturur |
| Konu_açılır liste | - | Bu makro, "Konu" için açılan menüyü oluşturur |
| Gösteri listesi | Gösteri listesi | Bu makro, Seçilen Sınıf ve Bölümden Öğrencileri gösterir. |
| Add_To_Database | Formu Gönder | Bu makro yükleme, veri tabanı sayfasına girişleri işaretler. |
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
Çimdikle onu
Bu komut dosyası, çok basit bir işaret giriş sistemi oluşturmanıza izin verir. Ancak, "Veritabanı" sayfasındaki verileri kullanarak ince ayar yapabilir ve analitik raporlar oluşturabilirsiniz. Veritabanı sayfası için bir yedek oluşturmak iyi bir uygulamadır. Bu, kurtarmanıza yardımcı olacaktır bozuk xlsx levha.
Yazar Tanıtımı:
Nick Vipond bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk kelime ve görünüm kurtarma yazılımı ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com.