Müəllimlərin həmişə yerinə yetirməli olduğu bir çox vəzifəsi var. Onlar sabahkı dərs üçün qeydlər hazırlamalı, tələbənin performansını izləməli, yüksək rəhbərlik üçün hesabatlar hazırlamalı və s. Gəlin işarə girişini onlar üçün asan bir iş edək.
İndi Download
Proqramı mümkün qədər tez istifadə etməyə başlamaq istəyirsinizsə, aşağıdakıları edə bilərsiniz:
Əks halda, DIY etmək istəyirsinizsə, aşağıdakı məzmunu oxuya bilərsiniz.
GUI-ni hazırlayaq
Bu şəkillərdə göstərildiyi kimi aləti lazımi vərəqlərlə hazırlayın.
| Vərəq Adı | Təsvir: Hər maşın üçün dəqiq və cəlbedici təsvir yazmağınız daha yaxşı olar. Bunun üçün chat.openai.com saytına daxil olaraq, orada aşağıdakı kimi sorğu yarada bilərsiniz: "Create the most powerful SEO-friendly text about [avtomobil modeli] for rentacarXNUMX.az site." Qeyd: "[avtomobil modeli]" yerinə təsvirini yazmaq istədiyiniz avtomobilin adını qeyd edin. |
| giriş | Bu işarə girişi üçün GUI-dir. |
| Database | Bu vərəq verilənlər bazası rolunu oynayır və tələbələrin qiymətlərini saxlayır |
| siyahı | Bu vərəqdə açılan menyular yaratmaq üçün istifadə ediləcək məlumatlar var. |
| Tələbələr | Bu vərəq müxtəlif tələbələrin öz siniflərinə xəritələridir. |
VBA layihə pəncərəsindən burada göstərildiyi kimi vərəqlərin adını dəyişin.
Gəlin onu funksional edək
Makronu yeni modula köçürün və makroları müvafiq düymələrə əlavə edin.
| Makro | Düyməyə əlavə edin | Təsvir: Hər maşın üçün dəqiq və cəlbedici təsvir yazmağınız daha yaxşı olar. Bunun üçün chat.openai.com saytına daxil olaraq, orada aşağıdakı kimi sorğu yarada bilərsiniz: "Create the most powerful SEO-friendly text about [avtomobil modeli] for rentacarXNUMX.az site." Qeyd: "[avtomobil modeli]" yerinə təsvirini yazmaq istədiyiniz avtomobilin adını qeyd edin. |
| Class_açılır | - | Bu makro "Sinif" üçün açılan menyu yaradır |
| Bölmə_açılır | - | Bu makro "Bölmə" üçün açılan menyu yaradır |
| Mövzu_açılır | - | Bu makro "Mövzu" üçün açılan menyu yaradır |
| Siyahısını göstər | Siyahı göstər | Bu makro Seçilmiş Sinifdən və Bölmədən Tələbələri göstərir |
| Verilənlər bazasına_əlavə et | təqdim | Bu makro yükləmə işarəsi verilənlər bazası vərəqinə daxil olur. |
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
Çəkin
Bu skript sizə çox sadə marka giriş sistemi yaratmağa imkan verir. Bununla belə, siz “Verilənlər bazası” vərəqindəki məlumatlardan istifadə edərək onu düzəldə və analitik hesabatlar yarada bilərsiniz. Verilənlər bazası vərəqinin ehtiyat nüsxəsini yaratmaq yaxşı təcrübədir. Bu, bərpa etməyə kömək edəcək a xarab xlsx hesabatı.
Müəllif Giriş:
Nik Vipond məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc pozğun söz və Outlook bərpa proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com.