Makro i løkke gjennom alle regneark i en arbeidsbok

Sammendrag

Denne artikkelen inneholder en Microsoft Visual Basic for Applications-makro (Sub-prosedyre) som går gjennom alle regneark i den aktive arbeidsboken. Denne makroen viser også navnet på hvert regneark.

Hvis du vil ha mer informasjon

Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre, men de endrer ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov. For å prøve Eksempelmakro, følger du denne fremgangsmåten:

1. Skriv inn følgende makrokode i et nytt modulark.
   
   

         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. Hvis du vil kjøre makroen, plasserer du innsettingspunktet i linjen som leser "Sub WorksheetLoop()", og trykk F5.
   

Makroen vil gå i løkke gjennom arbeidsboken og vise en melding med et annet regnearknavn hver gang den kjøres gjennom løkken. Vær oppmerksom på at denne makroen bare vise regnearknavn; Det vises ikke navnene på andre typer ark i arbeidsboken.


Du kan også gå gjennom alle regneark i arbeidsboken ved hjelp av en "For Each"-løkke.

1. Skriv inn følgende makrokode i et nytt modulark.
   
   

         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. Hvis du vil kjøre makroen, plasserer du innsettingspunktet i linjen som leser "Sub WorksheetLoop2()", og trykk F5.
   

Denne makroen fungerer identisk til makroen WorksheetLoop, bortsett fra at den bruker en annen type løkke til å behandle alle regneark i den aktive arbeidsboken.

Referanser

Hvis du vil ha mer informasjon om hvordan du får hjelp med Visual Basic for Applications, kan du se følgende artikkel i Microsoft Knowledge Base:

163435 VBA: programmeringsressurser for Visual Basic for Applications

OFF2000 226118 : programmeringsressurser for Visual Basic for Applications