[VBA] dare un termine ad un loop

[un dissennatore]

Non è che ci abbia capito molto ^^'
Invece che fine documento, si può fare un loop per un tot di volte che gli dico io?

[renygade]

Non è che ci abbia capito molto ^^'
Invece che fine documento, si può fare un loop per un tot di volte che gli dico io?

Certo che si può.. é la condizione più banale.

Dim contatore as Integer 'variabile contatore
Contatore = 0
Do
   .... Le tue istruzioni
   contatore = contatore+1

Loop Until contatore >9

In questo caso il blocco istruzioni tra do e loop viene eseguito 10 volte (da 0 a 9).
La variabile contatore viene infatti incrementata di 1 a ogni ciclo. La condizione >9 è vera finché contatore è inferiore a 9. Quando viene incrementato fino a 10 la condizione specifica da until si verifica e il ciclo termina. Facile no?

[un dissennatore]

Certo che si può.. é la condizione più banale.

Dim contatore as Integer 'variabile contatore
Contatore = 0
Do
   .... Le tue istruzioni
   contatore = contatore+1

Loop Until contatore >9

In questo caso il blocco istruzioni tra do e loop viene eseguito 10 volte (da 0 a 9).
La variabile contatore viene infatti incrementata di 1 a ogni ciclo. La condizione >9 è vera finché contatore è inferiore a 9. Quando viene incrementato fino a 10 la condizione specifica da until si verifica e il ciclo termina. Facile no?

quindi nel mio caso diverrà

Dim contatore as Integer 
Contatore = 0
Do
   
    Selection.TypeText Text:="', '"

    Selection.MoveLeft Unit:=wdCharacter, Count:=4

    Selection.MoveDown Unit:=wdLine, Count:=1

    Selection.TypeText Text:="', '"

    Selection.MoveLeft Unit:=wdCharacter, Count:=4

    Selection.MoveDown Unit:=wdLine, Count:=1

    contatore = contatore+1

Loop Until contatore >279892
End sub

giusto?

[renygade]

quindi nel mio caso diverrà

Dim contatore as Integer 
Contatore = 0
Do
   
    Selection.TypeText Text:="', '"

    Selection.MoveLeft Unit:=wdCharacter, Count:=4

    Selection.MoveDown Unit:=wdLine, Count:=1

    Selection.TypeText Text:="', '"

    Selection.MoveLeft Unit:=wdCharacter, Count:=4

    Selection.MoveDown Unit:=wdLine, Count:=1

    contatore = contatore+1

Loop Until contatore >279892
End sub

giusto?

Si prova.. Esegue il ciclo e poi esce.
Però non so se sia il caso di eseguire 280 mila volte quelle istruzioni..

[un dissennatore]

Si prova.. Esegue il ciclo e poi esce.
Però non so se sia il caso di eseguire 280 mila volte quelle istruzioni..

Grazie mille, te ne sono grato.
Non prendermi per pazzo, mi serve per davvero

[renygade]

Grazie mille, te ne sono grato.

Beh prego.

Non prendermi per pazzo, mi serve per davvero

Ah sisi, mi fido. Buon lavoro!

[un dissennatore]

Beh prego.

Ah sisi, mi fido. Buon lavoro!

Grazie!