Excel VBA Tutorial su Loops

VBA è il linguaggio di programmazione Visual Basic di Microsoft. E 'più comunemente associato con le macro utilizzate in fogli di calcolo Excel e talvolta anche segnalare generazione con uscita mirata a documenti Word o PowerPoint . VBA offre agli sviluppatori tutte le opzioni logiche comuni disponibili in altre lingue , come ad esempio per i cicli , i cicli while e if /then /else . Tuttavia, come tutte le lingue , la sintassi di utilizzo di questi anelli è un po ' diverso in VBA . Una volta che si utilizza questo , il processo è semplice e di facile realizzazione . Istruzioni
1

Crea un If in VBA come questo esempio che confronta due valori e scrive "uguale" o "diverso " nella cella A1 a seconda del risultato del confronto .

Sub My_If_Test ( ) per

Dim this_value

Dim that_value

this_value = 0

that_value = 2

this_value = that_value poi

Sheets (" Foglio1 " ) . Cells (1,1). Value = " EQUAL "

Else

Sheets (" Foglio1 " ) . Cells (1, 1) . Value = "diverso "

End If End Sub

Se è necessario verificare se qualcosa non è uguale , il segno è < > .
2

Creare un ciclo For in VBA seguendo questo esempio di codice che inserisce il valore di un contatore incrementato in ciascuna riga corrispondente .

Sub My_For_Test ( ) per

Dim contatore

Dim end_value

end_value = 10

contatore = 0 a end_value Fase 1

Sheets (" Foglio1 " ) . Cells ( contatore , 1) . Valore = contatore

Avanti

End Sub
3

Creare un Do /While in VBA seguendo questo codice di esempio che, come il Ad esempio loop, inserisce il valore di un contatore incrementato in ciascuna riga corrispondente .

Sub My_DoWhile_Test ( ) per

Dim indice

Dim end_value
indice

= 0

end_value = 10

Do While index < end_value

Sheets (" Foglio1 " ) . Cells ( contatore , 1) . Valore = indice

indice = indice + 1

loop

End Sub

la logica del Do /While è tale che , se il confronto iniziale della condizione, mentre non riesce, il loop non viene eseguito . Per esempio, se l'indice aveva eguagliato 10 o più prima che il codice eseguito questo Do /While , il codice all'interno del ciclo non avrebbe mai eseguito .
4

Creare un Do /Until in VBA seguendo questo esempio codice che, come il Do /While esempio , inserisce il valore di un contatore incrementato in ciascuna riga corrispondente .

Sub My_DoUntil_Test ( ) per

Dim indice

Dim end_value < br indice >

= 0

end_value = 10

fare

Sheets (" Foglio1 " ) . Cells ( contatore , 1) . Valore = indice
Indice

= indice + 1

loop Until index = end_value

End Sub

la logica del Do /Until è sottilmente diverso da un Do /While . Il codice nel Do /finché non viene eseguito almeno una volta , anche se la condizione Fino fallisce . Per esempio, se l'indice aveva eguagliato 10 o più prima che il codice eseguito questa Do /Until , il codice all'interno del ciclo dovrebbe essere eseguito una sola volta in ogni caso.