Мұғалімдерге әрқашан көптеген міндеттер жүктеледі. Олар ертеңгі сабаққа конспект дайындауы, оқушының үлгерімін қадағалауы керек, топ-менеджмент үшін есептер дайындауы керек және тағы басқалары. Оларға белгіні енгізуді оңай тапсырма етейік.
Енді жүктеп
Егер сіз бағдарламалық жасақтаманы мүмкіндігінше тезірек пайдалана бастағыңыз келсе, онда сіз:
Бағдарламалық жасақтаманы қазір жүктеп алыңыз
Әйтпесе, егер сіз өзіңіздің қолыңызбен жасағыңыз келсе, төмендегі мазмұнды оқи аласыз.
GUI-ді дайындайық
Осы суреттерде көрсетілгендей, құралды қажетті парақтармен дайындаңыз.
| Парақтың аты | сипаттамасы |
| кіру | Бұл белгіні енгізу үшін GUI. |
| дерекқор | Бұл парақ мәліметтер базасы ретінде жұмыс істейді және студенттердің бағаларын ұстайды |
| тізім | Бұл парақта ашылмалы ақпаратты жасау үшін қолданылатын деректер бар. |
| Оқушылар | Бұл парақта әр түрлі оқушылардың өз сыныптарына карталары көрсетілген. |
VBA жобасы терезесінен парақтардың атын осы жерде көрсетілгендей өзгертіңіз.
Оны функционалды етейік
Макросты жаңа модульге көшіріңіз және макростарды тиісті батырмаларға тіркеңіз.
| Макро | Түймеге бекітіңіз | сипаттамасы |
| Сынып_ашылмалы тізімі | - | Бұл макро «Class» үшін ашылмалы жағдай жасайды |
| Бөлім_күшіру | - | Бұл макро «Бөлім» үшін ашылмалы ақпаратты жасайды |
| Тақырып_күшіру | - | Бұл макро «Тақырып» үшін ашылмалы ақпаратты жасайды |
| Көрсету_тізімі | Тізімді көрсету | Бұл макросте таңдалған сынып пен бөлім студенттері көрсетілген |
| Мәліметтер базасын қосу | Жіберу | Бұл макросты мәліметтер базасына жүктеу белгісі жазбалары. |
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.