Makro na cyklické prechádzanie cez všetky pracovné hárky v zošite

Súhrn

Tento článok obsahuje makro (podprocedúru) jazyka Microsoft Visual Basic for Applications, ktoré cyklicky prechádza cez všetky pracovné hárky v aktívnom zošite. Makro tiež zobrazí názov každého pracovného hárka.

Ďalšie informácie

Microsoft poskytuje príklady programovacieho iba, bez ľubovoľnej vyjadrenej alebo implicitnej záruky. Tie okrem iného zahŕňajú predpokladané záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. Tento článok 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 vám môžu vysvetliť fungovanie konkrétneho postupu, ale neupravia tieto príklady s cieľom poskytnutia pridanej funkčnosti ani nevytvoria procedúry zohľadňujúce vaše konkrétne požiadavky. Vyskúšať vzorka makro, postupujte nasledovne:

1. Na hárok nového modulu zadajte nasledujúci kód makra.

         Sub WorksheetLoop()         Dim WS_Count As Integer         Dim I As Integer         ' Set WS_Count equal to the number of worksheets in the active         ' workbook.         WS_Count = ActiveWorkbook.Worksheets.Count         ' Begin the loop.         For I = 1 To WS_Count            ' Insert your code here.            ' The following line shows how to reference a sheet within            ' the loop by displaying the worksheet name in a dialog box.            MsgBox ActiveWorkbook.Worksheets(I).Name         Next I      End Sub

2. Ak chcete makro spustiť, umiestnite kurzor do riadka s textom „Sub WorksheetLoop()“ a stlačte kláves F5.

Makro prejde celým zošitom a zobrazí hlásenie, ktoré bude obsahovať iný názov hárka pri každom spustení cez slučku. Upozorňujeme, že makro zobrazuje iba názvy pracovných hárkov; nezobrazuje názvy iných typov hárkov v zošite. Môžete tiež cyklicky prechádzať cez všetky pracovné hárky v zošite pomocou slučky For Each.

1. Na hárok nového modulu zadajte nasledujúci kód makra.

         Sub WorksheetLoop2()         ' Declare Current as a worksheet object variable.         Dim Current As Worksheet         ' Loop through all of the worksheets in the active workbook.         For Each Current In Worksheets            ' Insert your code here.            ' This line displays the worksheet name in a message box.            MsgBox Current.Name         Next      End Sub

2. Ak chcete makro spustiť, umiestnite kurzor do riadka s textom „Sub WorksheetLoop2()“ a stlačte kláves F5.

Toto makro funguje rovnako ako makro WorksheetLoop, ale používa iný typ slučky na spracovanie všetkých pracovných hárkov v aktívnom zošite.

Odkazy

Ďalšie informácie o získaní pomoci k jazyku Visual Basic for Applications získate v nasledujúcom článku databázy Microsoft Knowledge Base:

163435 VBA: Programovací zdroje pre Visual Basic for Applications

226118 OFF2000: Programovací zdroje pre Visual Basic for Applications