Töövihiku loomine ja tabelite ümbernimetamine
Kas soovite luua töövihikuid, mis sisaldavad kaksteist töölehte, et saaksite koguda andmeid iga kuu kohta? Laske makrol seda teie eest automaatselt teha.
Järgmine makro loob uue tühja töövihiku kaheteistkümne töölehega ja nimetab üksikud lehed kuunimede lühendatud kujul, st "Jan", "Feb" jne. Siin on sobiv makro:
Alamloome kuu tabelid ()
Vahekaardi numbri täisarv
Hämardatud uus töövihik
Hämarad nimed variandina
Nimed = massiiv ("Jaan", "Veebruar", "Märts", "Apr", "Mai", "Juuni", _
"Juuli", "Aug", "Sept", "Okt", "Nov", "Dets")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Määra Uus = Töövihikud. Lisa
Application.SheetsInNewWorkbook = TabNumber
TabNumber = 1 kuni 12
New.Worksheets (TabNumber) .Name = Nimed (TabNumber - 1)
Järgmise vahelehe number
End Sub
Pärast alustamist saate töövihiku kaheteistkümne töölehega. Järgmine joonis näitab, milline tulemus välja näeb:
Kui soovite kuunimede asemel kasutada teisi nimesid, kohandage väärtuse määramisel olevad nimed muutujaga "Nimed".
Näpunäide. Kui soovite teada, kuidas Excelis makrosid sisestada ja käivitada, leiate lühikirjelduse siit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
