sperimentare

esercitazione con excel e vba su test di chimica
test per verifica apprendimento nomenclatura chimica
variante di chimicatest1.htm
http://digilander.libero.it/francescovise/verifica/chimicatest2.htm
http://digilander.libero.it/francescovise/verifica/chimicatest2.xls
http://digilander.libero.it/francescovise/verifica/chimicatest2a.GIF

http://digilander.libero.it/francescovise/verifica/chimicatest2g.GIF

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