Użyj makra VBA, aby utworzyć nowy skoroszyt zawierający dokładnie tyle arkuszy, ile potrzebujesz
W wielu makrach tworzone są nowe skoroszyty, które na przykład są wypełnione określoną treścią. Ważnym zadaniem jest tutaj utworzenie nowego skoroszytu programu Excel zawierającego dokładnie taką liczbę arkuszy kalkulacyjnych, jaką chcesz.
Poniższe makro wykonuje tę pracę. Tworzy nowy skoroszyt zawierający arkusze 31. Arkusze te są ponumerowane od 1 do 31. Oto odpowiednie polecenia VBA:
Sub FuegeTabellenEin ()
Dim liczba As Integer
Dim i jako liczba całkowita
Dim Mappe jako skoroszyt
Number = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Ustaw folder = Skoroszyty.Dodaj
For i = 1 To Mappe.Worksheets.Count
Folder.Arkusze (i) .Nazwa = i
Dalej ja
Application.SheetsInNewWorkbook = liczba
Napis końcowy
Po uruchomieniu program Excel wyświetla nowy skoroszyt zawierający 31 arkuszy. Poniższy rysunek pokazuje, jak to wygląda w rejestrze arkuszy:
W makrze określasz liczbę arkuszy roboczych, które chcesz, używając liczby 31. Zmień ten numer, jeśli chcesz mieć mniej lub więcej arkuszy w skoroszycie.
Aby wprowadzić makro, naciśnij ALT F11 w programie Excel, aby wywołać edytor VBA. Użyj polecenia WSTAW - MODUŁ, aby wstawić pusty arkusz modułu. Aby uruchomić makro bezpośrednio z programu Excel, użyj kombinacji klawiszy ALT F8.
