Makro do pętli za pośrednictwem wszystkich arkuszy w skoroszycie

Dotyczy: Visual Basic 2010 Express

Podsumowanie


Ten artykuł zawiera Microsoft Visual Basic for Applications makra (procedura Sub), która w pętli przegląda wszystkie arkusze w aktywnym skoroszycie. To makro wyświetla również nazwę każdego arkusza.

Więcej informacji


Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika. Próba przykładowe makro, wykonaj następujące kroki:
  1. Wpisz następujący kod makra w nowym arkuszu modułu.
          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. Aby uruchomić makro, umieoć punkt wstawiania w wierszu, który czyta "Sub WorksheetLoop()" i naciśnij klawisz F5.
Makro będzie pętli skoroszyt i wyświetlić okno komunikatu o nazwie inny arkusz każdym uruchomieniu go przez pętlę. Należy zauważyć, że to makro wyświetli tylko nazwy arkusza; nie będą wyświetlane nazwy innych typów arkuszy w skoroszycie. Można również przeglądać wszystkich arkuszy w skoroszycie za pomocą pętli "For Each'.
  1. Wprowadź następujący kod makra w nowym arkuszu modułu.
          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. Aby uruchomić makro, umieoć punkt wstawiania w wierszu, który czyta "Sub WorksheetLoop2()" i naciśnij klawisz F5.
To makro działa identycznie do makra WorksheetLoop, chyba że używa innego rodzaju pętli przetworzyć wszystkie arkusze w aktywnym skoroszycie.

Informacje


Aby uzyskać dodatkowe informacje dotyczące uzyskiwania pomocy programu Visual Basic for Applications zobacz następujący artykuł z bazy wiedzy Microsoft Knowledge Base:
163435 VBA: programowania zasobów dla języka Visual Basic for Applications
226118 OFF2000: programowania zasobów dla języka Visual Basic for Applications