DataNumen Система за влизане в марки - безплатна система за влизане в марки за учители

Решения за Excel Октомври 3, 2025

Учителите винаги имат много задачи, които трябва да изпълнят. Те трябва да подготвят бележки за утрешния час, да проследят представянето на учениците, да подготвят доклади за висшето ръководство и много други. Нека направим влизането в марката лесна задача за тях.

Свали сега

Ако искате да start, за да използвате софтуера възможно най-скоро, тогава можете:

Изтеглете софтуера сега

В противен случай, ако искате да си направите сам, можете да прочетете съдържанието по-долу.

Нека подготвим GUI

Както е показано на тези изображения, подгответе инструмента с необходимите листове.

Име на листа	Описание
влизане	Това е GUI за въвеждане на марка.
База данни	Този лист действа като база данни и съдържа оценките на учениците
списък	Този лист съдържа данни, които ще се използват за създаване на падащи менюта.
Студенти	Този лист е картата на различните ученици към съответните им класове.

От прозореца на проекта на VBA преименувайте листовете, както е показано тук.

Нека го направим функционален

Копирайте макроса в нов модул и прикачете макроси към съответните им бутони.

Макро	Прикачете към бутона	Описание
Падане на клас	-	Този макрос създава падащото меню за „Клас“
Раздел_пад	-	Този макрос създава падащото меню за „Раздел“
Subject_dropdown	-	Този макрос създава падащото меню за „Тема“
Покажи_списък	Покажи списък	Този макрос показва ученици от избрания клас и раздел
Добавяне на_база данни	Изпрати	Този запис на макрос маркира записи в листа на базата данни.

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

Настройте го

Този скрипт ви позволява да създадете много основна система за въвеждане на марки. Можете обаче да го промените и да създадете аналитични отчети, като използвате данни от листа „База данни“. Добра практика е да създадете резервно копие за листа с базата данни. Това ще ви помогне да възстановите a корумпиран xlsx лист.

Въведение на автора:

Ник Випонд е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително корумпирана дума и перспектива за възстановяване на софтуерни продукти. За повече информация посетете WWW.datanumen.com.