Makro za prolaženje kroz sve radne listove u radnoj svesci

Rezime

Ovaj članak sadrži Microsoft Visual Basic for Applications makro (Sub procedura) koji kruћi kroz sve radne listove u aktivnoj radnoj svesci. Ovaj makro i prikazuje ime svakog radnog lista.

Više informacija

Microsoft obezbeđuje primere programiranja samo radi ilustracije, bez garancije ili podrazumevane. Ovo uključuje, ali nije ograničen na, podrazumevane garancije o mogućnostima prodaje ili prikladnosti za određenu svrhu. Ovaj članak pretpostavlja da ste upoznati sa programskim jezikom koji se prikazuje i sa alatkama koje se koriste za kreiranje i otklanjanja procedure. Inženjeri podrške korporacije Microsoft mogu pomoći u objašnjavanju određene procedure, ali oni neće menjati ove primere da bi obezbedili dodatne funkcije niti kreirati procedure da bi ispunili vaše određene zahteve. Da probam uzorak makro, sledite ove korake:

1. Otkucajte sledeći kôd makro u novi modul list.

         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. Da biste pokrenuli makro, postavite tačku umetanja u redu koji glasi „Sub WorksheetLoop()”, a zatim pritisnite taster F5.

Makro će prođite kroz radne sveske i prikazati okvir za poruke sa drugom radnom listu ime svaki put kada prolazi kroz petlju. Imajte na umu da ovaj makro će takođe prikazati ime radnog lista; ono se neće prikazivati imena druge vrste listova iz radne sveske. Takođe možete da se petlja kroz sve radne listove u radnoj svesci pomoću petlji „Za svaki”.

1. Unesite sledeći makro kôd u novom listu modula.

         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. Da biste pokrenuli makro, postavite tačku umetanja u redu koji glasi „Sub WorksheetLoop2()”, a zatim pritisnite taster F5.

Ovaj makro radi identično na makro WorksheetLoop, osim što se koristi drugačiji tip petlju da obradi sve radne listove u aktivnoj radnoj svesci.

Reference

Za dodatne informacije o traženju pomoći sa Visual Basic for Applications, pogledajte sledeći članak u Microsoft bazi znanja:

163435 VBA: programiranje resursi za Visual Basic for Applications

226118 OFF2000: programiranje resursi za Visual Basic for Applications