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 .
< p > 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
< p > 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.
