pfunzioni1

esempio di VBA con powerpoint per confrontare con VBA su excel
esci con vbavarie.htm

pfunzioni1.ppt

Option Explicit

Private Sub CommandButton1_Click()
Dim a As Integer
Dim s As String
Dim s1 As String
a = -25
s = CStr(a)
s1 = Str(a)
Lista.AddItem (CStr(-25))
Lista.AddItem (Str(-26))
Lista.AddItem (Asc("A"))
Lista.AddItem (AscB("A"))
Lista.AddItem (AscW("A"))
Lista.AddItem ("------")
Lista.AddItem (CBool("A" = "B"))
Lista.AddItem (CBool("A" < "B"))
Lista.AddItem (CBool("A" > "B"))
Lista.AddItem ("------")
Lista.AddItem (CByte(10 = 10))
Lista.AddItem (CByte(10 < 20))
Lista.AddItem (CByte(10 > 20))
Lista.AddItem ("------")
Lista.AddItem (CCur("A" = "B"))
Lista.AddItem (CCur("A" < "B"))
Lista.AddItem (CCur("A" > "B"))
Lista.AddItem ("------")
lista1.AddItem (CDate(Date))
lista1.AddItem (CDbl(100.34587654345))
lista1.AddItem (CDec(125.3456789))
lista1.AddItem ("------")
lista1.AddItem (Chr(65))
lista1.AddItem (Chr$(65))
lista1.AddItem (Chr(66))
lista1.AddItem (Chr$(66))
lista1.AddItem (ChrW(67))
lista1.AddItem (ChrW$(68))
lista1.AddItem ("------")
lista1.AddItem (CInt(123.456))
lista1.AddItem (CLng(123456789))
lista1.AddItem (CVar(12))
lista1.AddItem ("------")
lista1.AddItem (CDate(Date))
lista1.AddItem (DateValue(Date))
lista1.AddItem ("------")
lista1.AddItem (IsNumeric(10))
lista1.AddItem (IsDate(Date))
lista1.AddItem (IsNumeric("A"))
lista1.AddItem (IsDate(12))
End Sub

Private Sub UserForm_Click()

End Sub

pfunzioni2.ppt

Option Explicit

Private Sub CommandButton1_Click()
Label8.Visible = True
End Sub

Private Sub CommandButton2_Click()
Label8.Visible = False
End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label8_Click()

End Sub

Private Sub quadrato_Click()
Label1.Caption = cifra ^ 2
End Sub

Private Sub radice_Click()
Label1.Caption = Sqr(cifra)
End Sub

Private Sub assoluto_Click()
Label1.Caption = Abs(cifra)
End Sub

Private Sub segno_Click()
Label1.Caption = Sgn(cifra)
End Sub

Private Sub seno_Click()
Label1.Caption = Sin(cifra * 3.14 / 180)
End Sub

Private Sub esponenziale_Click()
Label1.Caption = Exp(cifra)
End Sub

Private Sub logaritmodec_Click()
Label1.Caption = Log(cifra) / Log(10)
End Sub

Private Sub logaritmonat_Click()
Label1.Caption = Log(cifra)
End Sub

Private Sub inizioparola_Click()
Label1.Caption = Left$(parola, 3)
End Sub

Private Sub finaleparola_Click()
Label1.Caption = Right$(parola, 3)
End Sub

Private Sub lunghezza_Click()
Label1.Caption = Len(parola)
End Sub

Private Sub partemedia_Click()
Label1.Caption = Mid$(parola, 2, 3)
End Sub

Private Sub unione_Click()
Label1.Caption = parola & " e " & parola
End Sub

Private Sub spazids_Click()
Label1.Caption = Trim(parola)
End Sub

Private Sub spaziodestra_Click()
Label1.Caption = RTrim(parola)
End Sub

Private Sub spazisinistra_Click()
Label1.Caption = LTrim(parola)
End Sub


Private Sub anno_Click()
Label1.Caption = Year(Date)
End Sub
Private Sub datagiorno_Click()
Label1.Caption = Date
End Sub

Private Sub giorno_Click()
Label1.Caption = Day(Date)
End Sub

Private Sub mese_Click()
Label1.Caption = Month(Date)
End Sub

Private Sub minuti_Click()
Label1.Caption = Minute(Time)
End Sub

Private Sub Ora_Click()
Label1.Caption = Hour(Time)
End Sub

Private Sub secondi_Click()
Label1.Caption = Second(Time)
End Sub

Private Sub tempo_Click()
Label1.Caption = Time()
End Sub

Private Sub OptionButton1_Click()

End Sub


Private Sub UserForm_Click()

End Sub