/ / Pętla poprzez książki i arkusze w Excelu VBA

Zapętlaj książki i arkusze w programie Excel VBA

Poniżej przyjrzymy się programowi w Excel VBA że pętle przez wszystkie otwarte skoroszytów i arkuszei wyświetla wszystkie nazwiska.

Sytuacja:

Pętla poprzez książki i arkusze Przykład

Dodaj następujące linie kodu do przycisku polecenia:

1. Najpierw deklarujemy dwa obiekty i jedną zmienną. Jeden obiekt typu skoroszyt, który nazywamy książką, jeden obiekt typu Arkusz roboczy, który nazywamy arkuszem, oraz zmienną typu String, którą nazywamy tekstem.

Dim book As Workbook, sheet As Worksheet, text As String

2. Chcemy przeglądać wszystkie otwarte skrypty. Aby to osiągnąć, dodaj następującą linię kodu:

For Each book In Workbooks

3. Piszemy tekst "Workbook:", nazwę skoroszytu oraz tekst "Arkusze robocze:" "do tekstu zmiennego.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

Uwaga: możesz użyć operatora & do łączenia (łączenia) elementów. Aby rozpocząć nową linię, możesz użyć vbNewLine.

4. Aby przejrzeć wszystkie arkusze robocze skoroszytu, dodaj następującą linię kodu:

For Each sheet In book.Worksheets

5. Piszemy nazwy arkuszy roboczych skoroszytu do tekstu zmiennego.

text = text & sheet.Name & vbNewLine

6. Zamknij drugą pętlę.

Next sheet

7. Dodaj białą linię.

text = text & vbNewLine

8. Nie zapomnij zamknąć pierwszej pętli.

Next book

9. Na koniec wyświetlamy zmienny tekst za pomocą MsgBox.

MsgBox text

10. Sprawdź program. Zanim klikniesz przycisk polecenia, podaj swoim arkuszom roboczym kilka opisowych nazw i otwórz kolejny pusty skoroszyt.

Wynik:

Zapętlaj książki i arkusze w programie Excel VBA

Przeczytaj również: