sperimentare

descrizione per copiare e incollare codice VBA da inserire
nel foglio di Excel, insieme alle eventuali immagini da
copiare insieme al codice e da inserire poi nelle cornici
per immagini come sottto indicato
(possibile salvare la pagina come pagina web
:file unico:testo e cartella_file per le immagini:da questa pagina
possibile copiare codice e immagini (ricopiate automaticante insieme) da inserire nelle cornici predisposte);

file di esempio vbageofoto.xls : permette elementare
operazione di calcolo di area, perimetro di alcune figure
geometriche (triangolo, rettangolo, quadrato,trapezio,rombo)
inserendo opportuni dati su richiesta

esercitazione con Excel, VBA su Excel
per codici e attivazione vedi link

http://digilander.libero.it/francescovise/vbacodice/prove.htm
http://digilander.libero.it/francescovise/vbacodice/vbaspiegafoto.htm
http://digilander.libero.it/francescovise/vbacodice/vbageofoto.xls

---------------------------------------------------------------------------------------------

codice da copiare e incollare

Private Sub CommandButton1_Click()
Rem triangolo
Cells(4, 1) = "base, altezza, lato > area , perimetro"
Image1.Visible = True 'visualizza triangolo
Cells(1, 1) = "base "
Cells(1, 2) = "altezza "
Cells(1, 3) = "lato "
Cells(1, 4) = "area"
Cells(1, 5) = "perimetro"
area = Cells(2, 1) * Cells(2, 2) / 2
perimetro = Cells(2, 1) + 2 * Cells(2, 3)
Cells(2, 4) = area
Cells(2, 5) = perimetro
End Sub

Private Sub CommandButton2_Click()
Rem rettangolo
Cells(4, 1) = "base e altezza > area, perimetro, diagonale"
Image2.Visible = True 'visualizza rettangolo
Cells(1, 1) = "base "
Cells(1, 2) = "altezza "
Cells(1, 3) = "diagonale"
Cells(1, 4) = "area"
Cells(1, 5) = "perimetro"
area = Cells(2, 1) * Cells(2, 2)
perimetro = 2 * Cells(2, 1) + 2 * Cells(2, 2)
Cells(2, 4) = area
Cells(2, 5) = perimetro
Cells(2, 3) = Sqr(Cells(2, 1) ^ 2 + Cells(2, 2) ^ 2)
End Sub

Private Sub CommandButton3_Click()
rem cancella diciture e dati e nasconde tutte le immagini
For riga = 1 To 7
For colonna = 1 To 7
Cells(riga, colonna) = ""
Next colonna
Next riga
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False

End Sub

Private Sub CommandButton4_Click()
Rem quadrato
Cells(4, 1) = "lato > area, perimetro, diagonale"
Image3.Visible = True 'visualizza quadrato
Cells(1, 1) = "lato "
Cells(1, 3) = "diagonale"
Cells(1, 4) = "area"
Cells(1, 5) = "perimetro"
area = Cells(2, 1) * Cells(2, 1)
perimetro = 4 * Cells(2, 1)
Cells(2, 4) = area
Cells(2, 5) = perimetro
Cells(2, 3) = Sqr(Cells(2, 1) ^ 2 + Cells(2, 1) ^ 2)
End Sub

Private Sub CommandButton5_Click()
Rem trapezio isoscele
Cells(4, 1) = "base maggiore, base minore, altezza, lato >area, perimetro"
Image4.Visible = True ' visualizza trapezio
Cells(1, 1) = "base maggiore"
Cells(1, 2) = "base minore"
Cells(1, 3) = "altezza"
Cells(1, 4) = "lato"
Cells(1, 5) = "area"
Cells(1, 6) = "perimetro"
area = ((Cells(2, 1) + Cells(2, 2)) * Cells(2, 3) / 2)
perimetro = Cells(2, 1) + Cells(2, 2) + Cells(2, 4) * 2
Cells(2, 5) = area
Cells(2, 6) = perimetro
End Sub

Private Sub CommandButton6_Click()
Rem rombo
Image5.Visible = True ' visualizza rombo
Cells(1, 4) = "lato e altezza > area e perimetro"
Cells(1, 5) = "due diagonali > area "
Cells(1, 1) = "lato "
Cells(1, 2) = "diagonale 1"
Cells(1, 3) = "diagonale 2"
Cells(1, 4) = "altezza"
Cells(1, 5) = "perimetro"
Cells(1, 6) = "area1 "
Cells(1, 7) = "area2 "
area1 = Cells(2, 1) * Cells(2, 4) 'base per altezza
area2 = Cells(2, 2) * Cells(2, 3) / 2 'prodotto diagonali /2
perimetro = 4 * Cells(2, 1)
Cells(2, 6) = area1
Cells(2, 7) = area2
Cells(2, 5) = perimetro
End Sub

http://digilander.libero.it/francescovise/vbacodice/vbageo2.GIF

immagini da copiare e inserire nelle cornici del foglio excel

http://digilander.libero.it/francescovise/vbacodice/vbageo2.JPG