chiamata di funzione

chiamata di funzione
vedi matema10.xls

Option Explicit
Private Sub CommandButton1_Click()
Rem matema10 chiamata di funzione
Dim a As Integer
Dim b As Integer
Dim x As Integer
Dim y As Integer
a = 5
b = 6
Cells(2, 2) = esegue(a, b)
x = Cells(1, 4)
y = Cells(1, 5)
Cells(4, 2) = esegue(x, y)
End Sub

Public Function esegue(a As Integer, b As Integer)
Dim somma As Integer
somma = a + b
esegue = somma
End Function


Private Sub CommandButton2_Click()
Rem cancella
Cells(1, 4) = ""
Cells(1, 5) = ""
Cells(4, 2) = ""
Cells(2, 2) = ""
End Sub