esevba6

input e output dati

vedi esevba6.xls

Private Sub CommandButton1_Click()
'esevba6
Dim x As Integer
Dim y As Integer
'assegna alla variabile x il valore presente nella cella(r,c)
x = Cells(1, 1)
y = x * 5
'visualizza nella cella(r,c) il valore associato alla variabile y
Cells(2, 1) = y
End Sub
'inserire numero in cella 1,1