VBA is Visual Basic programmeertaal van Microsoft . Het wordt meestal geassocieerd met macro's gebruikt in Excel-spreadsheets en soms zelfs generatie melden bij de uitgang gericht op Word-of PowerPoint-documenten . VBA biedt ontwikkelaars alle gemeenschappelijke logica opties beschikbaar zijn in andere talen , zoals lussen , terwijl lussen en if /then /else statements . Echter , zoals alle talen , de syntaxis van het gebruik van deze loops is een beetje anders in VBA . Zodra u deze gebruikt , het proces is gemakkelijk en eenvoudig te implementeren zal zijn . Instructies
1 Maak een If statement in VBA , zoals dit bijvoorbeeld dat twee waarden vergelijkt en schrijft " EQUAL " of " niet gelijk aan" in cel A1 , afhankelijk van het resultaat van de vergelijking .
Sub My_If_Test ( ) Dim this_value
Dim that_value this_value
= 0 that_value
= 2
Als this_value = that_value
dan Sheets
( " Blad1 " ) . Cells ( 1,1 ) . Value = " EQUAL "
Else Sheets
( " Blad1 " ) . Cells ( 1 , 1 ) . Value = " niet gelijk aan" End
Als End Sub
Als u nodig hebt om te testen of er iets is niet gelijk , het teken < > . kopen van 2 Maak een For-lus in VBA volgens het volgende voorbeeld code die de waarde van een opgehoogd teller zal voegen in elke overeenkomstige rij . Sub My_For_Test ( )
Dim teller Dim end_value end_value
= 10 & counter = 0 tot Stap 1 Sheets
( " Blad1 " ) end_value . Cells
( teller , 1 ) = teller
Volgende End Sub
3
. Waarde Maak een Do /While-lus in VBA volgens het volgende voorbeeld code die , net als de voor lus bijvoorbeeld voegt de waarde van een teller opgehoogd in elk overeenkomstige rij . Sub My_DoWhile_Test ( ) op Dim index Dim end_value -index
= 0 end_value = 10
Verlanglijstje Terwijl index < end_value Sheets
( " Blad1 " ) . Cells ( teller , 1 ) . Value = index
index = index + 1
Loop
End Sub
de logica van de Do /While-lus is zodanig dat , als de eerste vergelijking van de While voorwaarde mislukt , de lus niet uitgevoerd . Bijvoorbeeld , had als index 10 of meer geëvenaard voordat de code uitgevoerd dit Do /While-lus , de code binnen de lus zou nooit lopen .
4 Maak een Do /Tot lus in VBA volgen dit voorbeeld code die , net als de Do /While-lus bijvoorbeeld , voegt de waarde van een teller opgehoogd in elk overeenkomstige rij . Sub My_DoUntil_Test ( ) op Dim index
Dim end_value
< br index > = 10 & Do Sheets
( " Blad1 " ) . Cells ( teller , 1 ) . Value = index
= 0 end_value
index = index + 1 Loop
Tot index End Sub
= end_value
de logica van de Do /Tot lus is subtiel anders dan een Do /While-lus . De code in de Do /Tot wordt ten minste een keer , zelfs als het tot voorwaarde niet uitgevoerd . Bijvoorbeeld , had als index 10 of meer vóór de code uitgevoerd dit Do /Tot lus , de code binnen de lus zou worden geëxecuteerd een tijd toch .
Evenaarde |
