Työkirjan luominen ja taulukoiden nimeäminen uudelleen
Haluatko luoda työkirjoja, jotka sisältävät kaksitoista laskentataulukkoa, jotta voit kerätä tietoja vuoden jokaisesta kuukaudesta? Anna makron tehdä tämä puolestasi automaattisesti.
Seuraava makro luo uuden tyhjän työkirjan, jossa on kaksitoista laskentataulukkoa, ja nimetä yksittäiset taulukot kuukauden nimen lyhennetyssä muodossa, eli "Jan", "Feb" jne. Tässä on sopiva makro:
Sub CreateMonth -taulukot ()
Dim -välilehden numero kokonaislukuna
Dim New As Työkirja
Hämärät nimet Varianttina
Nimet = array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Heinäkuu", "elokuu", "syyskuu", "lokakuu", "marraskuu", "joulu")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Aseta Uusi = Työkirjat Lisää
Application.SheetsInNewWorkbook = Välilehti
TabNumber = 1-12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
Seuraavan välilehden numero
End Sub
Aloituksen jälkeen saat työkirjan, jossa on kaksitoista laskentataulukkoa. Seuraava kuva näyttää, miltä tulos näyttää:
Jos haluat käyttää muita nimiä kuukausien nimien sijasta, mukauta arvomäärityksen nimet "Nimet" -muuttujalle.
Vinkki: Jos haluat tietää, miten voit syöttää ja käynnistää makroja Excelissä, löydät lyhyen kuvauksen täältä: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
