DataNumen Mark Entry System - Багш нарт зориулсан үнэгүй нэвтрэх систем

Excel шийдэл Аравдугаар сар 3, 2025

Багш нарт үргэлж олон тооны даалгавар байдаг. Тэд маргааш болох хичээлийн тэмдэглэл хөтлөх, оюутны гүйцэтгэлийг хянах, дээд удирдлагад зориулсан тайлан бэлтгэх, бусад олон зүйлийг хийх ёстой. Тэмдэгт оруулалтыг тэдэнд хялбар ажил болгоё.

Одоо Татах

Хэрэв та програмыг аль болох хурдан ашиглаж эхлэхийг хүсвэл дараах зүйлсийг хийж болно:

Програмыг одоо татаж аваарай

Үгүй бол, хэрэв та DIY хийхийг хүсвэл доорхи агуулгыг уншиж болно.

GUI-г бэлдэцгээе

Эдгээр зургуудад үзүүлсний дагуу багаж хэрэгслийг шаардлагатай хуудсаар бэлтгэ.

Хуудасны нэр	Тодорхойлолт
Нэвтрэх	Энэ бол тэмдэг оруулах GUI юм.
Өгөгдлийн сан	Энэхүү хуудас нь мэдээллийн баазын үүргийг гүйцэтгэдэг бөгөөд оюутны үнэлгээг хадгалдаг
Жагсаалт	Энэ хүснэгтэд доош уналт үүсгэхэд ашиглах өгөгдөл байна.
Сурагчид	Энэ хуудас нь янз бүрийн оюутнуудыг тус тусын анги руу чиглэсэн газрын зураг юм.

VBA төслийн цонхноос хуудасны нэрийг энд харуулсан шиг солино уу.

Үүнийг функциональ болгоё

Макро шинэ модульд хуулж, товчлуурууд дээр макроуудыг хавсаргана уу.

Макро	Товчин дээр хавсаргана уу	Тодорхойлолт
Ангилал_буурах	-	Энэхүү макро нь "Ангилал" -ын уналтыг үүсгэдэг.
Хэсэг_шатах	-	Энэхүү макро нь "Хэсэг" дээр унах хэсгийг үүсгэдэг.
Субъект_унтраах	-	Энэ макро нь "Subject" дээр унах хэсгийг үүсгэдэг.
Шоу_Жагсаалт	Жагсаалтыг харуулах	Энэхүү макро нь сонгогдсон анги, хэсгийн оюутнуудыг харуулдаг
Мэдээллийн сан нэмэх	оруулах	Энэхүү макро байршлын тэмдэглэгээг мэдээллийн баазад оруулах.

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

Үүнийг өөрчлөх

Энэ скрипт нь маш энгийн тэмдэг оруулах системийг бий болгох боломжийг танд олгоно. Гэхдээ та үүнийг өөрчилж, “Мэдээллийн сан” хуудасны өгөгдлийг ашиглан дүн шинжилгээний тайлан үүсгэх боломжтой. Мэдээллийн сангийн хуудасны нөөцийг үүсгэх нь сайн туршлага юм. Энэ нь танд сэргээхэд тусална ялзарсан xlsx хуудас.

Зохиогчийн танилцуулга:

Ник Випонд бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. завхарсан үг болон хэтийн төлөвийг сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com.