Shrnutí
Tento článek obsahuje Microsoft Visual Basic pro Applications makro (procedura Sub) prochází všechny listy aktivního sešitu. Toto makro také zobrazí název každého listu.
Další informace
Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo odvozené. To zahrnuje, ale není omezen pouze na předpokládané záruky obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou pomoci vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo vytvářet postupy podle vašich konkrétních požadavků. Zkuste ukázkové makro, postupujte takto:
-
Do nového listu modulu zadejte následující 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
-
Chcete-li spustit makro, umístěte kurzor v řádku přečte "Sub WorksheetLoop()" a stiskněte klávesu F5.
Makro bude procházet sešitu a zobrazí okno se zprávou s názvem jiného listu při každém spuštění průchodu smyčkou. Poznámka: Toto makro se zobrazí pouze názvy listu; nezobrazí názvy jiných typů listů v sešitu. Přes všechny listy v sešitu můžete také opakovat pomocí smyčky "Pro každou".
-
Do nového listu modulu zadejte následující 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
-
Chcete-li spustit makro, umístěte kurzor v řádku přečte "Sub WorksheetLoop2()" a stiskněte klávesu F5.
Toto makro funguje stejně jako makro WorksheetLoop s tím rozdílem, že používá jiný typ smyčky zpracovat všechny listy v aktivním sešitu.
Odkazy
Další informace o získání nápovědy pomocí jazyka Visual Basic for Applications naleznete v následujícím článku znalostní báze Microsoft Knowledge Base:
163435 VBA: prostředky programování v jazyce Visual Basic for Applications
226118 OFF2000: prostředky programování v jazyce Visual Basic for Applications