Jak utworzyć skoroszyt i zmienić nazwy tabel
Chcesz tworzyć skoroszyty zawierające dwanaście arkuszy, aby móc zbierać dane za każdy miesiąc w roku? Niech makro zrobi to za Ciebie automatycznie.
Poniższe makro tworzy nowy, pusty skoroszyt z dwunastoma arkuszami roboczymi i nazywa poszczególne arkusze w skróconej formie nazw miesięcy, tj. „Jan”, „Feb” itd. Oto odpowiednie makro:
Podrzędne tabele CreateMonth ()
Numer zakładki Dim jako liczba całkowita
Przyciemnij nowy jako skoroszyt
Dim nazwy jako wariant
Names = array ("sty", "lut", "mar", "kwi", "maj", "czer", _
„lip”, „sierpień”, „wrzesień”, „październik”, „listopad”, „grudzień”)
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Ustaw nowy = Skoroszyty.Dodaj
Application.SheetsInNewWorkbook = TabNumber
Dla TabNumber = 1 do 12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
Numer następnej karty
Napis końcowy
Po uruchomieniu otrzymasz skoroszyt z dwunastoma arkuszami roboczymi. Poniższy rysunek pokazuje, jak wygląda wynik:
Jeśli chcesz użyć innych nazw zamiast nazw miesięcy, dostosuj nazwy w przypisaniu wartości do zmiennej „Nazwy”.
Wskazówka: Jeśli chcesz wiedzieć, jak wprowadzać i uruchamiać makra w Excelu, krótki opis znajdziesz tutaj: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- w-excel-ein.html
