Kā izveidot darbgrāmatu un pārdēvēt tabulas
Vai vēlaties izveidot darbgrāmatas, kurās ir divpadsmit darblapas, lai varētu apkopot datus par katru gada mēnesi? Ļaujiet makro automātiski to izdarīt jūsu vietā.
Šis makro izveido jaunu, tukšu darbgrāmatu ar divpadsmit darblapām un nosauc atsevišķas lapas mēneša nosaukumu saīsinātā formā, ti, "Jan", "Feb" utt. Šeit ir atbilstošais makro:
Sub CreateMonth tabulas ()
Dim cilnes numurs kā vesels skaitlis
Aptumšot jaunu kā darbgrāmatu
Dim nosaukumi kā variants
Nosaukumi = masīvs ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Jūl", "Aug", "Sep", "Oct", "Nov", "Dec")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Iestatīt Jauns = Darbgrāmatas. Pievienot
Application.SheetsInNewWorkbook = TabNumber
TabNumber = 1 līdz 12
New.Worksheets (TabNumber). Name = Names (TabNumber - 1)
Nākamās cilnes numurs
Beigt apakš
Pēc darba uzsākšanas jūs saņemsit darbgrāmatu ar divpadsmit darblapām. Nākamais attēls parāda, kā izskatās rezultāts:
Ja mēneša nosaukumu vietā vēlaties izmantot citus vārdus, pielāgojiet nosaukumus vērtību piešķiršanā mainīgajam "Vārdi".
Padoms. Ja vēlaties uzzināt, kā programmā Excel ievadīt un sākt makro, īsu aprakstu atradīsit šeit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
