
Sub Robi3(Var As Range)
Var = 7
Range("A1").Range = Var
End Sub |
Sub Robi3()
Dim Var As Integer ' Dichiari la variabile di tipo intero
Var = 7 ' Assegni un valore alla variabile
Range("A1").Value = Var ' Assegni alla cella A1 il valore della variabile
End Sub |
