Makro cikls līdz visas darblapas darbgrāmatā

Kopsavilkums

Šajā rakstā ir Microsoft Visual Basic for Applications makro (apakšprocedūra), līdz visas darblapas aktīvajā darbgrāmatā cilpas. Šis makro parāda arī katras darblapas nosaukumu.

Papildinformācija

Microsoft piedāvā programmēšanas piemērus norāda tikai kā piemēru, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām. Mēģināt parauga makro, rīkojieties šādi:

1. Ierakstiet jaunu moduļa lapā šo makro kodu.

         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. Lai palaistu makro, ievietojiet iespraušanas punktu rindiņā "Sub WorksheetLoop()" un nospiediet taustiņu F5.

Makro cikls līdz darbgrāmatas un parāda ziņojuma lodziņu ar citu darblapas nosaukumu ikreiz, kad tas darbojas, izmantojot cilpa. Ņemiet vērā, ka šis makro tiek parādīti tikai darblapu nosaukumi; tas netiek parādīts cita veida lapu nosaukumi darbgrāmatā. Arī var visos darbgrāmatas darblapas cilpas, izmantojot cilpa "Attiecībā uz katru".

1. Noslēgt jaunu moduļa lapā šo makro kodu.

         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. Lai palaistu makro, ievietojiet iespraušanas punktu rindiņā "Sub WorksheetLoop2()" un nospiediet taustiņu F5.

Šis makro darbojas vienādi WorksheetLoop makro, izņemot to, ka tā izmanto cita veida cilpa apstrādāti visi darblapas aktīvajā darbgrāmatā.

Atsauces

Lai iegūtu papildinformāciju, kā iegūt palīdzību par Visual Basic for Applications, lūdzu, skatiet Microsoft zināšanu bāzes rakstu:

163435 VBA: programmēšana resursi Visual Basic for Applications

226118 OFF2000: Visual Basic for Applications programmēšanu resursi