Kako ustvariti delovni zvezek in preimenovati tabele
Želite ustvariti delovne zvezke, ki vsebujejo dvanajst delovnih listov, da boste lahko zbirali podatke za vsak mesec v letu? Naj makro to samodejno stori namesto vas.
Naslednji makro ustvari nov, prazen delovni zvezek z dvanajstimi delovnimi listi in poimenuje posamezne liste v skrajšani obliki imen mesecev, tj. "Jan", "Feb" itd. Tu je ustrezen makro:
Sub CreateMonth tabele ()
Zatemni številko zavihka kot celo število
Zatemni kot delovni zvezek
Zatemnjena imena kot varianta
Imena = matrika ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Julij", "avgust", "september", "oktober", "november", "december")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Set New = Delovni zvezki.Dodaj
Application.SheetsInNewWorkbook = TabNumber
Za TabNumber = 1 do 12
Novo. Delovni listi (TabNumber) .Name = Imena (TabNumber - 1)
Številka naslednjega zavihka
End Sub
Po začetku boste prejeli delovni zvezek z dvanajstimi delovnimi listi. Naslednja slika prikazuje, kako izgleda rezultat:
Če želite namesto imen mesecev uporabiti druga imena, prilagodite imena v dodelitvi vrednosti spremenljivki "Imena".
Nasvet: Če želite vedeti, kako vnesti in zagnati makre v Excelu, boste tukaj našli kratek opis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
