Trener sifatida siz o'quvchilaringizga bir nechta seminarlar o'tkazgan bo'lar edingiz. Endi siz o'quvchilaringiz qanchalik tushunganliklarini aniqlashga yordam beradigan Excel ish kitobini ular bilan bo'lishishingiz vaqti keldi. Ushbu maqolani kuzatib, bir nechta tanlovli raqamli imtihon varag'ini tayyorlang.
Hozir yuklab olmoq
Agar siz dasturiy ta'minotdan iloji boricha tezroq foydalanishni boshlamoqchi bo'lsangiz, unda quyidagilarni qilishingiz mumkin:
Dasturiy ta'minotni hozir yuklab oling
Aks holda, agar siz DIY qilishni istasangiz, quyidagi tarkibni o'qishingiz mumkin.
GUI ni tayyorlaylik
Tarkib
Keling, ma'lumotlar bazasini tayyorlaylik
"Ma'lumotlar bazasi" varag'iga savollar, variantlar va to'g'ri javobni qo'shing
Keling, uni funksional holga keltiraylik
Ushbu skriptni makros bilan ishlaydigan ish kitobingizdagi yangi modulga nusxalang.
Sub Prepare_Test()
Dim lr As Long
Dim r As Long
Dim rinq As Long
rinq = 0
lr = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
For r = 3 To lr
rinq = rinq + 6
Sheets("Test").Range("C" & rinq).Value = Sheets("Database").Range("A" & r).Value
Sheets("Test").Range("C" & rinq + 1).Value = Sheets("Database").Range("B" & r).Value
Sheets("Test").Range("C" & rinq + 2).Value = Sheets("Database").Range("C" & r).Value
Sheets("Test").Range("C" & rinq + 3).Value = Sheets("Database").Range("D" & r).Value
Sheets("Test").Range("C" & rinq + 4).Value = Sheets("Database").Range("E" & r).Value
Next r
End Sub
Sub Show_Result()
Dim lr As Long
Dim r As Long
Dim rinq As Long
rinq = 0
Sheets("Database").Visible = -1
Sheets("Summary").Visible = -1
lr = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row
Dim v_ccount As Long
v_ccount = 0
For r = 3 To lr
Dim v_answer As String
v_answer = "Option " & Sheets("Database").Range("F" & r).Value
rinq = rinq + 6
If Sheets("Test").Range("C" & rinq + 1).Interior.Color = vbYellow And Sheets("Test").Range("B" & rinq + 1).Value = v_answer Then
v_ccount = v_ccount + 1
End If
If Sheets("Test").Range("C" & rinq + 2).Interior.Color = vbYellow And Sheets("Test").Range("B" & rinq + 2).Value = v_answer Then
v_ccount = v_ccount + 1
End If
If Sheets("Test").Range("C" & rinq + 3).Interior.Color = vbYellow And Sheets("Test").Range("B" & rinq + 3).Value = v_answer Then
v_ccount = v_ccount + 1
End If
If Sheets("Test").Range("C" & rinq + 4).Interior.Color = vbYellow And Sheets("Test").Range("B" & rinq + 4).Value = v_answer Then
v_ccount = v_ccount + 1
End If
Next r
Sheets("Summary").Range("C7").Value = Sheets("Test").Range("F3").Value
Sheets("Summary").Range("C11").Value = lr - 2
Sheets("Summary").Range("F11").Value = v_ccount
Sheets("Summary").Range("I11").Value = (lr - 2) - v_ccount
End Sub
Ushbu skriptni "Test" varaqining kod oynasiga nusxalash
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ar As Long
ar = Target.Row
Range("C" & ar & ":F" & ar).Interior.Color = vbYellow
End Sub
Ushbu skriptni "ThisWorkook" kod oynasiga nusxalash
Private Sub Workbook_Open()
Call Module1.Prepare_Test
Sheets("Database").Visible = 2
Sheets("Summary").Visible = 2
End Sub
Bu qanday ishlaydi?
Foydalanuvchi ish kitobini ochganda, makro "Ma'lumotlar bazasi" va "Xulosa" varaqlarini yashirish uchun ishlaydi. Agar "Ma'lumotlar bazasi" varag'i foydalanuvchidan yashirilmasa, barcha javoblar ochiladi. Shuningdek, talaba "Xulosa" varag'ini ko'rishi shart emas. Ishchi kitobni foydalanuvchilarga yuborishdan oldin, “Test” varaqini to'ldiradigan “Test_tayyorlash” makrosini ishga tushirish kerak. Foydalanuvchilar istalgan variantni tanlashlari mumkin va makro tanlangan javobni sariq rangda ajratib ko'rsatadi. "Natijani ko'rsatish" makrosi "Test" varag'idagi tanlangan variantlarni "Ma'lumotlar bazasi" varag'idagi javoblar bilan taqqoslaydi va to'g'ri javoblar sonini aniqlaydi.
Sheets yashirilmaganmi?
VBA skripti buzilgan Excel ish varag'ining xususiyatlarini ogohlantira olmaydi. Bunday holatda, Excelni tiklash ish varag'i va makroni qayta ishga tushiring.
Muallif kirish:
Nik Vipond - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc shikastlangan Word va istiqbolni tiklash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com