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