Sažetak
Ovaj članak sadrži Microsoft Visual Basic for Applications makronaredbe (potproceduru) koja petlje kroz sve radne listove u aktivnoj radnoj knjizi. Ova makronaredba prikazuje naziv svakog radnog lista.
Dodatne informacije
Microsoft navodi primjere programiranja samo, radi ilustracije bez jamstva, izražena ili implicitnih. To uključuje, ali nije ograničen na, implicirana jamstva utrživosti ili prikladnosti za određenu svrhu. Ovaj članak podrazumijeva da poznajete programski jezik koji se koristi u primjeru i alate koji se koriste za stvaranje i ispravljanje pogrešaka u postupcima. Microsoftovi inženjeri za podršku mogu objasniti funkciju određenog postupka, ali oni neće mijenjati te primjere da pružaju dodaje funkcionalnost niti prilagođavati postupke vašim potrebama. Pokušajte primjer makronaredbe, slijedite ove korake:
-
Unesite sljedeći kod makronaredbe 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
-
Za pokretanje makronaredbe, točku umetanja postavite u redak koji se čita "Sub WorksheetLoop()" i pritisnite F5.
Makronaredba će prolazi kroz radnu knjigu i prikazati okvir poruke s drugom radnom listu naziv svaki put pokreće kroz petlje. Imajte na umu ovu makronaredbu samo prikaz naziva radnog lista; će prikazati nazive drugih vrsta listova u radnoj knjizi. Možete također Ponavljaj kroz sve radne listove u radnoj knjizi pomoću petlje 'Za svaku'.
-
Unesite sljedeći kod makronaredbe u novi modul list.
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
-
Za pokretanje makronaredbe, točku umetanja postavite u redak koji se čita "Sub WorksheetLoop2()" i pritisnite F5.
Ovu makronaredbu radi jednak način za makronaredbe WorksheetLoop, osim što koristi drugu vrstu petlja obraditi sve radne listove u aktivnoj radnoj knjizi.
Reference
Dodatne informacije o dobivanju pomoći za Visual Basic for Applications potražite u sljedećem članku u Microsoftovoj bazi znanja:
VBA: programiranje resursi za Visual Basic for Applications
OFF2000: programiranje resursi za Visual Basic for Applications