descrizione per copiare e incollare codice VBA da inserirenel foglio di Excel, insieme alle eventuali immagini da copiare insieme al codice e da inserire poi nelle corniciper immagini come sottto indicato(possibile salvare la pagina come pagina web :file unico:testo e cartella_file per le immagini:da questa paginapossibile copiare codice e immagini (ricopiate automaticante insieme) da inserire nelle cornici predisposte);file di esempio vbageofoto.xls : permette elementareoperazione di calcolo di area, perimetro di alcune figuregeometriche (triangolo, rettangolo, quadrato,trapezio,rombo)inserendo opportuni dati su richiesta
esercitazione con Excel, VBA su Excelper codici e attivazione vedi link
http://digilander.libero.it/francescovise/vbacodice/prove.htmhttp://digilander.libero.it/francescovise/vbacodice/vbaspiegafoto.htmhttp://digilander.libero.it/francescovise/vbacodice/vbageofoto.xls---------------------------------------------------------------------------------------------codice da copiare e incollarePrivate 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