qformato1

esci con testvbax.htm

assegnazione formato a numeri con excel, powerpoint, vba

qformato1.xls

qvformato1.xls con vba variante1

Private Sub CommandButton1_Click()
Dim intero1 As Integer
Dim intero2 As Long
Dim decimale1 As Single
Dim decimale2 As Currency
Dim decimale3 As Double
Dim n As Integer
n = 123.4567
intero1 = 125.786
intero2 = 123456789.678
decimale1 = 12.45678934
decimale2 = 12.45678934
decimale3 = 12.45678934
Cells(1, 3) = "intero1 123.786"
Cells(2, 3) = "intero2 123456789.678"
Cells(3, 3) = "decimale1 12.45678934"
Cells(4, 3) = "decimale2 12.45678934"
Cells(5, 3) = "decimale3 12.45678934"

Cells(1, 1) = intero1 & " integer"
Cells(2, 1) = intero2 & " long"
Cells(3, 1) = decimale1 & " single"
Cells(4, 1) = decimale2 & " curency"
Cells(5, 1) = decimale3 & " double"
Cells(7, 1) = n & " ......123.4567 "
End Sub

Private Sub CommandButton2_Click()
Dim k As Integer
For k = 1 To 7
Cells(k, 1) = ""
Next k
For k = 1 To 7
Cells(k, 3) = ""
Next k
End Sub

qpformato1.xls vba variante2

Private Sub CommandButton1_Click()
Dim intero1 As Integer
Dim intero2 As Long
Dim decimale1 As Single
Dim decimale2 As Currency
Dim decimale3 As Double
Dim n As Integer
n = 123.4567
intero1 = 125.786
intero2 = 123456789.678
decimale1 = 12.45678934
decimale2 = 12.45678934
decimale3 = 12.45678934

ListBox1.AddItem ("intero1 123.786")
ListBox1.AddItem ("intero2 123456789.678")
ListBox1.AddItem ("decimale1 12.45678934")
ListBox1.AddItem ("decimale2 12.45678934")
ListBox1.AddItem ("decimale3 12.45678934")

ListBox2.AddItem (intero1 & " integer")
ListBox2.AddItem (intero2 & " long")
ListBox2.AddItem (decimale1 & " single")
ListBox2.AddItem (decimale2 & " curency")
ListBox2.AddItem (decimale3 & " double")
ListBox2.AddItem ("....")
ListBox2.AddItem (n & " ......123.4567 ")
End Sub

Private Sub CommandButton2_Click()
Dim k As Integer
ListBox1.Clear
ListBox2.Clear
End Sub

pformato1.ppt con vba

Private Sub CommandButton1_Click()
Dim intero1 As Integer
Dim intero2 As Long
Dim decimale1 As Single
Dim decimale2 As Currency
Dim decimale3 As Double
Dim n As Integer
n = 123.4567
intero1 = 125.786
intero2 = 123456789.678
decimale1 = 12.45678934
decimale2 = 12.45678934
decimale3 = 12.45678934
ListBox1.AddItem ("intero1 123.786")
ListBox1.AddItem ("intero2 123456789.678")
ListBox1.AddItem ("decimale1 12.45678934")
ListBox1.AddItem ("decimale2 12.45678934")
ListBox1.AddItem ("decimale3 12.45678934")

ListBox2.AddItem (intero1 & " integer")
ListBox2.AddItem (intero2 & " long")
ListBox2.AddItem (decimale1 & " single")
ListBox2.AddItem (decimale2 & " curency")
ListBox2.AddItem (decimale3 & " double")
ListBox2.AddItem ("......")
ListBox2.AddItem (n & " ......123.4567 ")
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
ListBox2.Clear
End Sub