Macrocomandă pentru toate registrele de lucru într-un registru de lucru în buclă

Rezumat

Acest articol conține o Microsoft Visual Basic for Applications macrocomenzi (procedură Sub) care buclele prin toate foile de lucru în registrul de lucru activ. Această macrocomandă afişează numele de fiecare foaie de lucru.

Mai multe informații

Microsoft furnizează exemple de programare scop ilustrativ, fără nicio garanţie explicită sau implicită. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau de potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este prezentat şi cu instrumentele utilizate pentru a crea şi a depana proceduri. Specialiștii în asistență Microsoft pot ajuta la explicarea funcționalității unei anumite proceduri, dar nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară sau pentru a construi proceduri pentru a răspunde cerințelor dvs. specifice. Pentru a încerca macrocomanda eșantion, urmați acești pași:

1. Tastați următorul cod de macrocomandă într-o foaie de modul nou.

         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. Pentru a executa macrocomanda, poziționați punctul de inserare în linia "Sub WorksheetLoop()" și apăsați F5.

Macrocomanda va Ciclează prin registrul de lucru și va afișa o casetă de mesaj cu un nume de foaie de lucru diferită de fiecare dată când se execută prin bucla. Rețineți că această macrocomandă va afișa numai numele foii de lucru; Nu va afișa numele de alte tipuri de foi în registrul de lucru. Se poate, de asemenea, buclă prin toate foile de lucru în registrul de lucru utilizând o buclă 'Pentru fiecare'.

1. Introduceți următorul cod de macrocomandă într-o foaie de modul nou.

         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. Pentru a executa macrocomanda, poziționați punctul de inserare în linia "Sub WorksheetLoop2()" și apăsați F5.

Această macrocomandă funcționează fii macrocomandă WorksheetLoop, cu excepţia faptului că se utilizează un alt tip de buclă să proceseze toate foile de lucru în registrul de lucru activ.

Referințe

Pentru informații suplimentare despre obținerea ajutorului pentru Visual Basic for Applications, consultaţi următorul articol din baza de cunoștințe Microsoft:

163435 VBA: programare resurse pentru Visual Basic for Applications

226118 OFF2000: programare resurse pentru Visual Basic for Applications