funzioneutente1

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

funzioneutente1.ppt uso di funzione libreria o creata da utente

Private Sub CommandButton1_Click()
Dim a As Integer
Dim qa As Long
a = 10
qa = a ^ 2
TextBox1 = "quadrato = a^2 " & qa
End Sub

Public Function quadrato2(x As Integer)
Dim quadrato As Integer
Dim a As Integer
a = x
quadrato = a * a
quadrato2 = quadrato
End Function

Private Sub CommandButton2_Click()
Dim a As Integer
a = 10
TextBox2 = "quadrato con chiamata funzione = " & quadrato2(a)
End Sub

Private Sub UserForm_Click()

End Sub

funzioneutente2.ppt esegue potenza con vario esponente

Private Sub CommandButton1_Click()
Dim b, n As Integer
Dim p As Long
b = Val(base)
n = Val(esponente)
p = (b ^ n)
ListBox1.AddItem ("potenza = base^n " & p)
End Sub

Public Function potenza2(x, y As Integer)
Dim b, n As Integer
Dim potenza As Long
Dim k As Integer
b = x
n = y
potenza = b
For k = 1 To (n - 1)
potenza = potenza * b
Next k
potenza2 = potenza

End Function

Private Sub CommandButton2_Click()
Dim b, n As Integer
b = Val(base)
n = Val(esponente)
ListBox2.AddItem ("potenza con chiamata funzione = " & potenza2(b, n))
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Click()

End Sub