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

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

Potrzebna dalsza pomoc?

Rozwijaj swoje umiejętności
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów firmy Microsoft

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×