Opzione esplicita
'Dichiara la variabile di intervallo.
Dim rng come intervallo
' Inizializza la variabile di intervallo.
rng =Intervallo("A1:A10")
' Inizializza la variabile somma.
Dim sum fino a quando
somma =0
' Calcola la somma dei valori nell'intervallo.
Per ogni cella nell'rng
somma =somma + cella
Cella successiva
' Visualizza la somma dei valori nell'intervallo.
Debug.Print "La somma dei valori nell'intervallo A1:A10 è" &sum
```
software © www.354353.com