chimicatest2
vedi chimicatest2.xls
esercitazione per test di chimica :variante con excel
( elaborazione con formule) e vba
vedi anche chimicatest1.htm
nota: possibile modificare
numeri assegnati a formule (nell'esempio sono consecutivi):si
devono naturalmente modificare anche le formule nelle celle del
foglio
Private Sub
CommandButton1_Click()
Rem nasconde risultati
ListBox1.Visible = True
End Sub
Private Sub
CommandButton2_Click()
Rem mostra i risultati
ListBox1.Visible = False
Cells(15, 10) = Cells(11, 9) 'esatte
Cells(16, 10) = 9 - Cells(11, 9) 'errate
Cells(15, 11) = Cells(11, 9) * 100 / 9
Cells(16, 11) = Cells(16, 10) * 100 / 9
End Sub
Private Sub
CommandButton3_Click()
Rem cancella risposte e risultati
For riga = 1 To 9
Cells(riga, 7) = ""
Foglio2.Cells(riga, 2) = ""
Next riga
'Cells(15, 10) = ""
'Cells(15, 11) = ""
'Cells(16, 10) = ""
'Cells(16, 11) = ""
Foglio2.Cells(12, 2) = ""
Foglio2.Cells(13, 2) = ""
End Sub
Private Sub
CommandButton4_Click()
Rem trasferimento risultati
For riga = 1 To 9
Foglio2.Cells(riga, 1) = Cells(riga, 1)
Foglio2.Cells(riga, 2) = Cells(riga, 7)
Next riga
Foglio2.Cells(12, 2) = Cells(15, 10)
Foglio2.Cells(13, 2) = Cells(16, 10)
End Sub
ritorna a verifica
domande e formule pronte per il test
inserimento risposte in colonna G
visualizzazione esito in colonna I :elaborazione mediante formule inserite in celle
trasferimento esiti in foglio 2 e creazione grafico:risposte tutte esatte...
test per altro allievo
grafico per secondo test