Prihl�si� sa

Select the product you need help with

XL: Ako pou��va� cyklick� �trukt�r v jazyku Visual Basic for Applications

ID �l�nku: 141762 - Zobrazi� produkty, ktor�ch sa tento �l�nok t�ka.

Kliknut�m sem zobraz�te vyhl�senie t�kaj�ce sa strojovo prelo�en�ch �l�nkov datab�zy KB

Kliknut�m sem zobraz�te strojovo prelo�en� �l�nok a p�vodn� anglick� �l�nok ved�a seba

Rozbali� v�etko | Zbali� v�etko

Ke� vytvor�te makr�ch alebo aplik�ci�ch v programe Microsoft Visual Basic pre Aplik�cie, je �asto potrebn� spusti� cez oddiel k�du nieko�kokr�t. Visual Basic for Applications poskytuje nieko�ko met�d s ktor�mi chcete opakova� alebo "slu�ky" cez oddiel k�dexu.

Tento �l�nok poskytuje vzorky k�d, ktor� ilustruje pou�itie r�znych �trukt�ry a algoritmy cyklick� jazyka Visual Basic for Applications poskytuje.

Sp� na za�iatok | Odo�lite odozvu

DALSIE INFORMACIE

Spolo�nos� Microsoft poskytuje pr�klady programovacieho k�du len ako n�zorn� uk�ku bez �ubovo�nej vyjadrenej alebo implicitnej z�ruky. Toto zah��a, okrem in�ho, implicitn� z�ruky obchodovate�nosti a vhodnosti pre konkr�tny ��el. �rove� odbornosti �l�nku predpoklad�, �e ovl�date predv�dzan� programovac� jazyk a n�stroje, ktor� sa pou��vaj� na vytv�ranie a ladenie proced�r. Pracovn�ci technickej podpory spolo�nosti Microsoft m��u pom�c� vysvetli� funk�nos� konkr�tny postup, ale nie modifikuje tieto pr�klady poskytova� pridan� funk�nos� alebo v�stavbe postupy splni� va�e konkr�tne po�iadavky. Ke� sa rozhodne, ktor� looping �trukt�ra pou��va�, existuje nieko�ko �vahy, by� vedom�. Napr�klad:

Viem presne ko�kokr�t chcem slu�ky pomocou k�du?

Ak �no, ko�ko?

Ak nie, existuje �pecifick� podmienku kedy chcem makra Ukon�ite slu�ky? Ak podmienen� loop chcete otestova� podmienka pred alebo po k�d sa vykon�va?

Vzorky Visual Basic postupy

Nasledovn� pr�klady demon�truj� r�znych looping �trukt�r k dispoz�cii v jazyku Visual Basic for Applications. Pokia� nie je uveden� inak, Pr�klady predpokladaj� bunku alebo rozsah buniek je za�iarknut�. Nieko�ko �al��ch veci na vedomie:

V r�mci ka�dej pr�klad spr�vy r�m�ek () funkciaMsgBox) sa pou��va na zobrazenie inform�ci�. V t�chto pr�kladoch kdeko�vek MsgBox Funkcia vyskytne, je, kde by ste mali zada� k�d opakova� cez ka�d� iter�ciu slu�ky.
Niektor� z pripomienok v k�de op�sa� alternat�vne met�dy pre uskuto��ovan� ur�itej �lohy alebo pre rob� r�zne �lohy s podobn� k�d.
Symbol tilda (~) pou�it� v r�mci niektor� z pripomienok by nahradi� n�zov uveden� objektu [objekt v �vodzovk�ch, napr�klad worksheets("sheet1")] alebo objektu indexov� ��slo.

Pre...Ka�d�...Next

Tento pr�klad pou��va Pre...Ka�d�...Next vyhl�senie do slu�ky cez v�etky bunky vybrat�ho rozsahu (koment�re uk�za� alternat�vna met�da):

   ' To show the contents of each cell in a selection or specific range.
   Sub for_each_demo()

      ' Or, use "In Worksheet(~).Range(~)" to specify a specific range.
      For Each cell In Selection

         ' Displays cell contents in message box.
         MsgBox cell.Value

         ' Reset cell to next object.
      Next
   End Sub

For <variable> = <n1> to <n2></n2></n1></variable>

' This example loops through the code a specified number of times.
   Sub for_demo()

      ' Sets x to 1, adds 1 to x until x = 5, loops 5 times.
      For x = 1 To 5 Step 1

         ' Displays value of x in msgbox.
         MsgBox x

         ' Returns to top of loop 4 times.
      Next
   End Sub

Robi�...K�m s testom na za�iatku slu�ky

Tento pr�klad pou��va Urobi�...K�m slu�ky "chodi�" v st�pci buniek sa nedosiahne prv� pr�zdnu bunku. Preto�e makro vykon� test na za�iatku slu�ky, ak je prv� bunka pr�zdna, k�d vo vn�tri sa nespustia slu�ky.

   ' Performs Do loop, testing at top of loop.
   ' Loops until empty cell is reached.
   ' Note that you can also use a Do While Not IsEmpty(ActiveCell) loop.

   Sub test_before_do_loop()

      ' Test contents of active cell; if active cell is empty, exit loop.
      Do Until IsEmpty(ActiveCell)

         ' Displays cell contents in message box.
         MsgBox ActiveCell.Value

         ' Step down 1 row to the next cell.
         ActiveCell.Offset(1, 0).Select

        ' Return to top of loop.
      Loop
   End Sub

Robi�...K�m s testom na konci slu�ky

Tento pr�klad pou��va tie� Urobi� slu�ky, ale testy v spodnej �asti slu�ky. Prv� riadok makro testy prv� bunku. Bez prv� riadok k�du na testovanie po�iato�n� bunku, k�d spusti� na aspo� jeden �as, preto�e loop testy na dne.

   ' Performs Do loop, testing at bottom of loop.

   Sub test_after_do_loop()

      ' Test to see if first cell is empty.
      If IsEmpty(ActiveCell) Then Exit Sub

         ' Begin loop.
         Do

            ' Displays cell contents in message box.
            MsgBox ActiveCell.Value

            ' Steps down one row to the next cell.
            ActiveCell.Offset(1, 0).Select

            ' Test contents of active cell; if empty, exit loop
            ' or Loop While Not IsEmpty(ActiveCell).

         Loop Until IsEmpty(ActiveCell)
      End Sub

UPOZORNENIE: Nie pobo�ky do �tvaru Zatia� �o...WEND slu�ky bez spustenia Zatia� �o vyhl�senie. Pritom m��e sp�sobi� chyby alebo in� probl�my, ktor� s� �a�k� n�js�.

V Urobi�...Slu�ka v�kaz poskytuje �trukt�rovanej�ie a pru�n�m sp�sobom na vykon�vanie cyklick�. V Zatia� �o...WEND slu�ky je zahrnut� v programe Visual Basic pre aplik�cie pre sp�tn� kompatibilitu.

Zatia� �o...WEND slu�ky

POZN�MKA: Zatia� �o...WEND slu�ky je zahrnut� v programe Visual Basic pre aplik�cie pre sp�tn� kompatibilitu.

Tento pr�klad pou��va Zatia� �o...WEND slu�ky. Tento slu�ky testy v hornej �asti slu�ke iba.

    ' Performs While loop, testing at top of the loop.
   Sub While_loop_demo()

      ' Sets condition of loop, while active cell is not empty.
      While Not IsEmpty(ActiveCell)

         ' Displays cell contents in message box.
         MsgBox ActiveCell.Value

         ' Step down one row to the next cell.
         ActiveCell.Offset(1, 0).Select

      ' End While loop.
      Wend
   End Sub

Ak...Potom...GoTo slu�ky

Tento pr�klad vytv�ra slu�ky pomocou"Ak <condition>potom GoTo <line label=""></line> </condition>"�trukt�ra. T�to �trukt�ra sa testuje v spodnej �asti slu�ky.

     Sub loop_using_goto()

      ' Test to see if first cell is empty.
      If IsEmpty(ActiveCell) Then Exit Sub

      ' Line label indicating top of loop.
   top:

      ' Displays cell contents in message box.
      MsgBox ActiveCell.Value

      ' Step down one row to the next cell.
      ActiveCell.Offset(1, 0).Select

      ' Test to see if new cell is empty.
      If Not IsEmpty(ActiveCell) Then GoTo top

   End Sub

Sp� na za�iatok | Odo�lite odozvu

ODKAZY

�al�ie inform�cie o looping �trukt�ry, v editore jazyka Visual Basic, kliknite na Asistenta programu Office, zadajte slu�ky, a potom kliknite na tla�idlo Vyh�ad�vanie zobrazte pr�slu�n� t�my.

�al�ie inform�cie o z�skanie Pomocn�ka pre Visual Basic forApplications, po kliknut� na nasledovn� ��sla �l�nkov datab�zy Microsoft Knowledge Base:

305326

(http://support.microsoft.com/kb/305326/EN-US/ )

OFFXP: Programovanie zdroje pre Visual Basic for Applications

226118

(http://support.microsoft.com/kb/226118/EN-US/ )

OFF2000: Programovanie zdroje pre Visual Basic for Applications

163435

(http://support.microsoft.com/kb/163435/EN-US/ )

VBA: Programovanie zdroje pre Visual Basic for Applications

Microsoft Excel Visual Basic U��vate�sk� pr�ru�ka, verzia 5.0, str�nky 143-151

Sp� na za�iatok | Odo�lite odozvu

Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use

(http://go.microsoft.com/fwlink/?LinkId=151500)

for other considerations.

Sp� na za�iatok | Odo�lite odozvu

Vlastnosti

ID �l�nku: 141762 - Posledn� kontrola: 17. okt�bra 2011 - Rev�zia: 2.0

Inform�cie v tomto �l�nku sa t�kaj� nasleduj�cich produktov:

Microsoft Excel 2000 Standard Edition
Microsoft Excel 2002 Standard Edition
Microsoft Excel 97 Standard Edition
Microsoft Excel 95 Standard Edition
Microsoft Excel 5.0 Standard Edition
Microsoft Excel 98 for Macintosh
Microsoft Excel 5.0 for Macintosh

kbcode kbhowto kbprogramming kbmt KB141762 KbMtsk

Strojovo prelo�en�

D�LE�IT�: Tento �l�nok bol prelo�en� pomocou softv�ru na strojov� preklad od spolo�nosti Microsoft, nie prekladate�om. Spolo�nos� Microsoft pon�ka �l�nky prelo�en� prekladate�mi aj strojovo prelo�en� �l�nky, v�aka �omu m�te mo�nos� pr�stupu ku v�etk�m �l�nkom datab�zy Knowledge Base vo svojom jazyku. Strojovo prelo�en� �l�nok v�ak nie je v�dy perfektn�. M��e obsahova� chyby t�kaj�ce sa slovnej z�soby, syntaxe alebo gramatiky, podobne ako cudzinec m��e robi� chyby, ke� rozpr�va va�im jazykom. Spolo�nos� Microsoft nenesie zodpovednos� za ak�ko�vek nepresnosti, chyby alebo �kody sp�soben� ak�mko�vek nepresn�m prekladom obsahu alebo jeho pou�it�m zo strany z�kazn�kov. Spolo�nos� Microsoft softv�r na strojov� preklad pravidelne aktualizuje.

Pokia� chcete vidie� anglick� verziu �l�nku, kliknite sem:141762

(http://support.microsoft.com/kb/141762/en-us/ )

Sp� na za�iatok | Odo�lite odozvu