Kako izraditi radnu knjigu i preimenovati tablice
Želite stvoriti radne knjige koje sadrže dvanaest radnih listova kako biste mogli prikupljati podatke za svaki mjesec u godini? Dopustite da makro to automatski učini umjesto vas.
Sljedeća makronaredba stvara novu, praznu radnu knjigu s dvanaest radnih listova i imenuje pojedinačne listove u skraćenom obliku naziva mjeseci, tj. "Siječanj", "veljača" itd. Ovdje je odgovarajuća makronaredba:
Tablice pod CreateMonth ()
Zatamni broj kartice kao cijeli broj
Dim New As Workbook
Zatamnjena imena kao varijanta
Names = array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Srpanj", "kolovoz", "rujan", "listopad", "studeni", "prosinac")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Postavi novo = Radne knjige.Dodaj
Application.SheetsInNewWorkbook = TabNumber
Za TabNumber = 1 do 12
Novo.Radni listovi (TabNumber) .Name = Imena (TabNumber - 1)
Broj sljedeće kartice
Kraj podm
Nakon početka, dobit ćete radnu bilježnicu s dvanaest radnih listova. Sljedeća slika prikazuje kako rezultat izgleda:
Ako želite umjesto naziva mjeseci koristiti druge nazive, prilagodite nazive u dodjeli vrijednosti varijabli "Names".
Savjet: Ako želite znati kako unijeti i pokrenuti makroe u Excelu, ovdje ćete pronaći kratak opis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
