test di chimica con excel

esercitazione con excel e vba su test di chimicatest per verifica apprendimento nomenclatura chimicavariante di chimicatest1.htmhttp://digilander.libero.it/francescovise/verifica/chimicatest2.htmhttp://digilander.libero.it/francescovise/verifica/chimicatest2.xlshttp://digilander.libero.it/francescovise/verifica/chimicatest2a.GIF http://digilander.libero.it/francescovise/verifica/chimicatest2g.GIFPrivate 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