Ako školiteľ by ste zorganizovali niekoľko seminárov pre svojich študentov. Teraz je čas, aby ste so svojimi študentmi zdieľali zošit programu Excel, ktorý vám pomôže zistiť, ako veľmi porozumeli. Podľa tohto článku si pripravte hárok digitálnej skúšky s výberom z viacerých možností.
stiahnuť
Ak chcete start softvér používať čo najskôr, potom môžete:
V opačnom prípade si môžete prečítať obsah uvedený nižšie.
Poďme pripraviť GUI
obsah
Pripravme si databázu
Pridajte otázky, možnosti a správnu odpoveď na hárok „Databáza“
Nech je to funkčné
Skopírujte tento skript do nového modulu v zošite s povoleným makrom.
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 hárkov ("Test"). Rozsah ("C" & rinq). Hodnota = hárky ("Databáza"). Rozsah ("A" & r). Hárky s hodnotou ("Test"). Rozsah ( „C“ & rinq + 1) .Hodnota = Tabuľky („Databáza“). Rozsah („B“ & r). Hodnotové hárky („Test“). Rozsah („C“ & rinq + 2) .Hodnota = Tabuľky ( "Databáza"). Rozsah ("C" & r). Hodnotové listy ("Test"). Rozsah ("C" & rinq + 3). Hodnota = Tabuľky ("Databáza"). Rozsah ("D" & r) .Hodnoty hárkov ("Test"). Rozsah ("C" & rinq + 4) .Hodnota = hárky ("databáza"). Rozsah ("E" & r) .Hodnota Ďalej Long Dim r As Long Dim rinq Ako Long rinq = 0 hárkov ("databáza"). Viditeľné = -1 hárkov ("súhrn"). Viditeľné = -1 lr = hárkov ("databáza"). Rozsah ("A" a riadky .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" & She ets ("Databáza"). Rozsah ("F" a r). Hodnota rinq = rinq + 6, ak listy ("Test"). Rozsah ("C" a rinq + 1). Interior.Color = vbŽltá a listy (" Test "). Rozsah (" B "& rinq + 1) .Hodnota = v_answer Potom v_ccount = v_ccount + 1 Koniec, ak tabuľky (" Test "). Rozsah (" C "& rinq + 2) .Interior.Color = vbYellow A hárky („Test“). Rozsah („B“ & rinq + 2). Hodnota = v_answer Potom v_ccount = v_ccount + 1 Koniec, ak hárky („Test“). Rozsah („C“ & rinq + 3). Interiér .Color = vbŽltá a hárky ("Test"). Rozsah ("B" & rinq + 3). Hodnota = v_answer Potom v_ccount = v_ccount + 1 Koniec, ak hárky ("Test"). Rozsah ("C" & rinq + 4) .Interior.Color = vbŽlté a hárky („Test“). Rozsah („B“ & rinq + 4). Hodnota = v_answer Potom v_ccount = v_ccount + 1 Koniec, ak budú ďalšie r hárky („Zhrnutie“). Rozsah („ C7 "). Hodnota = hárky (" Test "). Rozsah (" F3 "). Hodnotové hárky (" Zhrnutie "). Rozsah (" C11 "). Hodnota = lr - 2 hárky (" Zhrnutie "). Rozsah (" F11 "). Hodnota = v_ccount Sheets (" Summary "). Range (" I11 ") .Value = (lr - 2) - v_ccount End Sub
Skopírujte tento skript do okna kódu v hárku „Test“
Súkromná čiastková tabuľka_výberu (ByVal Tarzískať ako rozsah) Dim ar As Long ar = Tarrozsah get.Row ("C" & ar & ": F" & ar). Interior.Color = vbŽltý koncový sub
Skopírujte tento skript do okna s kódom „ThisWorkook“
Súkromný sub Workbook_Open () volanie modulu 1.Prepare_Test listy ("databáza"). Viditeľné = 2 hárky ("súhrn"). Viditeľné = 2 koncový sub
Ako to funguje?
Keď používateľ otvorí zošit, makro sa spustí a skryje hárky „Databáza“ a „Súhrn“. Ak používateľovi nie je skrytý hárok „Databáza“, vystavia sa všetky odpovede. Študent tiež nemusí vidieť hárok „Zhrnutie“. Pred odoslaním zošita používateľom by malo byť spustené makro „Prepare_Test“, ktoré vyplní hárok „Test“. Používatelia môžu zvoliť ľubovoľnú možnosť a makro vybranú odpoveď zvýrazní žltou farbou. Makro „Show_Result“ porovná vybrané možnosti na hárku „Test“ s odpoveďami na hárku „Databáza“ a identifikuje počet správnych odpovedí.
Nie sú tabuľky skryté?
Skript VBA nemôže upozorniť na vlastnosti poškodeného hárka programu Excel. V takom prípade, obnoviť Excel pracovný hárok a znova spustiť makro.
Úvod autora:
Nick Vipond je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodené slovo a výhľadové softvérové produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S
1