Excel VBA výučba na Loops

VBA je Visual Basic programovací jazyk Microsoft . To je najviac obyčajne spojené s makrami použitých v tabuľkách programu Excel , a niekedy dokonca aj generovanie zostáv s výstupom zamerané na aplikácie Word alebo PowerPoint dokumenty . VBA ponúka vývojárom všetky bežné možnosti sú k dispozícii v iných jazykoch , napríklad pre logické slučky , while a if /then /else . Avšak , ako všetky jazyky , syntaxe pomocou týchto slučiek je trochu iný v jazyku VBA . Po použití týchto, proces je veľmi jednoduché a bude ľahko uskutočniteľný . Pokyny dovolená 1

Vytvoriť príkaz If vo VBA , ako je tento príklad , ktorý porovnáva dve hodnoty a píše " rovný " alebo " NOT EQUAL " do bunky A1 v závislosti na výsledku porovnania .

Sub My_If_Test ( )

Dim this_value

Dim that_value

this_value = 0

that_value = 2

Ak this_value = that_value potom

Sheets ( " Hárok1 " ) . Cells ( 1,1 ) . Value = " EQUAL "

Else

Sheets ( " Hárok1 " ) . Cells ( 1 , 1 ) . Value = " NOT EQUAL "

End If

End Sub klipart

Ak potrebujete otestovať , či niečo nie je rovná , znamenie je < > .
2

Vytvorte pre sláčiky v jazyku VBA po tomto príklade kódu , ktorý sa vloží na hodnotu zvýšený čítač do každého príslušného riadku . klipart

Sub My_For_Test ( )

Dim counter

Dim end_value

end_value = 10

čítača = 0 až end_value Krok 1

Sheets ( " Hárok1 " ) . bunky ( čítače , 1 ) . Value = čítač

Ďalšie

End Sub
3

Vytvorte Do /while v jazyku VBA po tomto príklade kódu , ktorý , rovnako ako napríklad slučky , vloží hodnotu zvýšený čítač do každého príslušného riadku . klipart

Sub My_DoWhile_Test ( )

Dim index

Dim end_value

index = 0

end_value = 10

Do Kým index < end_value

Sheets ( " Hárok1 " ) . bunky ( počítadlo , 1 ) . Value = index

index = index + 1

Loop

End Sub

logiku Do /while je taká , že ak počiatočné porovnaní wHILE podmienka zlyhá , slučka sa nevykoná . Napríklad , ak index sa rovnal 10 alebo viac , než je kód spustený tento Do /while , kód vnútri slučky by nikdy nedôjde .
4

Vytvorte Do /, kým slučka vo VBA nasledujúce tento príklad kód , ktorý , rovnako ako napríklad v do /cyklus while , vloží hodnotu zvýšený čítač do každého príslušného riadku .

Sub My_DoUntil_Test ( )

Dim index

Dim end_value

index = 0

end_value = 10

Do

Sheets ( " Hárok1 " ) . bunky ( počítadlo , 1 ) . Value = index

index = index + 1

Loop Do index = end_value

End Sub

logiku Do /Do slučky je nepatrne odlišný , než Do /While slučka . Kód Do /Do prevedenie aspoň raz , aj keď Dokiaľ podmienka zlyhá . Napríklad , ak index sa rovnal 10 alebo viac , než je kód spustený tento Do /Do slučky , kód vnútri slučky by byť vykonaná raz tak ako tak .

• Predchádzajúca strana: Ako používať Word , Excel , PowerPoint & Outlook Ako správni asistent 
• Ďalšia strana: Ako obnoviť Paleta farieb Microsoft Excel 2002