DataNumen Mark kirish tizimi - O'qituvchilar uchun bepul kirish tizimi

Excel yechimlari Oktyabr 3, 2025

O'qituvchilar har doim bajarishi kerak bo'lgan tonna vazifalarga ega. Ular ertangi dars uchun eslatmalarni tayyorlashlari, talabalarning ish faoliyatini kuzatishlari, yuqori rahbariyat uchun hisobotlar tayyorlashlari va boshqa ko'p narsalarni qilishlari kerak. Keling, belgini kiritish ular uchun oson ish qilaylik.

Hozir yuklab olmoq

Agar xohlasangiz start dasturiy ta'minotni imkon qadar tezroq ishlatish uchun siz:

Dasturiy ta'minotni hozir yuklab oling

Aks holda, agar siz DIY qilishni istasangiz, quyidagi tarkibni o'qishingiz mumkin.

GUI ni tayyorlaylik

Ushbu rasmlarda ko'rsatilganidek, asbobni kerakli varaqlar bilan tayyorlang.

Varaq nomi	Tavsif
kirish	Bu belgini kiritish uchun GUI.
ma'lumotlar bazasi	Ushbu varaq ma'lumotlar bazasi vazifasini bajaradi va talabalarning baholarini saqlaydi
ro'yxat	Ushbu varaqda ochiladigan menyularni yaratish uchun foydalaniladigan ma'lumotlar mavjud.
talabalar	Ushbu varaq turli o'quvchilarni o'z sinflariga ko'rsatadi.

VBA loyihasi oynasidan varaqlarni bu yerda ko'rsatilganidek o'zgartiring.

Keling, uni funksional holga keltiraylik

Makrosni yangi modulga nusxalash va ularning tegishli tugmalariga makroslarni biriktirish.

Ibratli	Tugmachaga biriktiring	Tavsif
Class_ochiladigan	-	Ushbu makros "Klass" uchun ochiladigan menyuni yaratadi
Bo'lim_ochiladi	-	Ushbu makros "Bo'lim" uchun ochiladigan menyuni yaratadi
Mavzu_ochiladi	-	Ushbu makros "Mavzu" uchun ochiladigan menyuni yaratadi
Roʻyxatni koʻrsatish	Ro'yxatni ko'rsatish	Ushbu makro tanlangan sinf va bo'limdagi talabalarni ko'rsatadi
Ma'lumotlar bazasiga_qo'shish	Submit	Ushbu makro yuklash belgisi ma'lumotlar bazasi varag'iga kiritiladi.

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

Buzing

Ushbu skript sizga juda oddiy belgilarni kiritish tizimini yaratishga imkon beradi. Biroq, siz uni o'zgartirishingiz va "Ma'lumotlar bazasi" varaqidagi ma'lumotlardan foydalangan holda tahliliy hisobotlarni yaratishingiz mumkin. Ma'lumotlar bazasi varag'i uchun zaxira nusxasini yaratish yaxshi amaliyotdir. Bu sizga tiklanishingizga yordam beradi a buzilgan xlsx varaq.

Muallif kirish:

Nik Vipond - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzuq so'z va istiqbolni tiklash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com.