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