Makro tsükkel läbi kogu töövihikus

Kokkuvõte

See artikkel sisaldab Microsoft Visual Basic for Applications makro (alamprotseduur) silmuseid kõik aktiivse töövihiku töölehtede kaudu. See makro kuvatakse ka iga töölehe nimi.

Lisateave

Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri funktsiooni selgitada, kuid ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele. Proovige proovi makro, järgige neid samme:

1. Tippige uue moodulilehele järgmine makrokood.

         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. Makro käivitamiseks järjepunkti "Sub WorksheetLoop()" järgmine rida ja vajutage klahvi F5.

Makro silmusena läbi töövihiku ja silmus läbi kuvada teateboksi teise töölehe nimega. Märkus See makro kuvab ainult töölehe nimed; See ei kuva talletatakse nimed töövihikus. Samuti saab läbi kõik töövihiku töölehtede lõputult "Igaühele" silmus abil.

1. Sisestage uus moodulilehele järgmine makrokood.

         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. Makro käivitamiseks järjepunkti "Sub WorksheetLoop2()" järgmine rida ja vajutage klahvi F5.

See makro töötab ühtemoodi makro WorksheetLoop välja, et see kasutab erinevat tüüpi silmus töödelda kõik aktiivse töövihiku töölehed.

Viited

Spikri Visual Basic for Applications kohta lisateabe saamiseks lugege Microsofti teabebaasi (Knowledge Base) järgmist artiklit:

VBA: programmeerimine Visual Basic for Applications vahendeid

OFF2000: programmeerimise vahendeid Visual Basic for Applications