Ciclo do

Hai un problema con Excel?

Nuova discussione

Ciclo do
di At data: 10/01/2011
Salve a tutti, vorrei chiedere come posso sintetizzare in poche righe di codice la routine :

Public Sub asse_y()
Dim u, j, k, w As Integer
u = 5
i = 2


Do
Cells(i, 3).Value = 0
i = i + 1
Loop Until i > u

j = 6
Do
Cells(j, 3).Value = 1
j = j + 1
Loop Until j > (u * 2) - 1

k = 10
Do
Cells(k, 3).Value = 2
k = k + 1
Loop Until k > (u * 3) - 2

w = 14
Do
Cells(w, 3).Value = 3
w = w + 1
Loop Until w > (u * 4) - 3

End Sub

di Locate (utente non iscritto) data: 11/01/2011
Ciao
per ridurre il listato e avere sempre il medesimo risultato del tuo devi usare due cicli for incrementali ai quali basta che cambi il valore per variare il tuo listato.
questo che ti ho scritto fa lo stesso risultato del tuo
ciao da locate
Public Sub asse_y() Dim u, i, val As Integer u = 5 i = 2 val = 0 For i = 2 To 17 For u = 1 To 4 Cells(i, 3) = val i = i + 1 Next u i = i - 1 val = val + 1 Next i End Sub
di At (utente non iscritto) data: 13/01/2011
Grazie

Vuoi Approfondire?