funzioni matematiche
esempio di attivazione e visualizzazione con solo foglio excel o con vba+excel
confronta con VBA su powerpoint doppio2x.htm doppio2x.ppt

vedi doppio2.xls

Private Sub CommandButton1_Click()
assoluto = Abs(-5)
esponenziale = Exp(3)
intero = Int(12.65)
troncato = Round(13.87)
radice = Sqr(100)
neperiano = Log(100)
decimale = Log(100) / Log(10)
ListBox1.AddItem ("assoluto di -5 = " & assoluto)
ListBox1.AddItem ("esponenziale di 3 = " & esponenziale)
ListBox1.AddItem ("intero di 12.65 = " & intero)
ListBox1.AddItem ("arrotondato di 13.87 = " & troncato)
ListBox1.AddItem ("radice di 100 = " & radice)
ListBox1.AddItem ("log neperiano di 100 = " & neperiano)
ListBox1.AddItem ("log decimale di 100 = " & decimale)
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
assoluto = Abs(-5)
esponenziale = Exp(3)
intero = Int(12.65)
troncato = Round(13.87)
radice = Sqr(100)
neperiano = Log(100)
decimale = Log(100) / Log(10)
Cells(1, 6) = "assoluto di -5 ="
Cells(1, 7) = assoluto
Cells(2, 6) = "esponenziale di 3 ="
Cells(2, 7) = esponenziale
Cells(3, 6) = "intero di 12.65 ="
Cells(3, 7) = intero
Cells(4, 6) = "arrotondato di 13.87 ="
Cells(4, 7) = troncato
Cells(5, 6) = "radice di 100 ="
Cells(5, 7) = radice
Cells(6, 6) = "log neperiano di 100 ="
Cells(6, 7) = neperiano
Cells(7, 6) = "log deimale di 100 ="
Cells(7, 7) = decimale

End Sub

Private Sub CommandButton4_Click()

For r = 1 To 9
For c = 6 To 7
Cells(r, c) = ""
Next c
Next r
End Sub

indice

scrivere nella colonna A le funzioni indicate nella tabella a destra
visualizzazione con VBA in listbox1

visualizzazione con VBA in celle del foglio

visualizzazione con excel in colonna A, con VBA in listbox1, con VBA in celle F-G