Creați un registru de lucru cu tabele timp de douăsprezece luni

Cuprins

Cum să creați un registru de lucru și să redenumiți tabelele

Doriți să creați registre de lucru care să conțină douăsprezece foi de lucru, astfel încât să puteți colecta date pentru fiecare lună a anului? Lăsați o macrocomandă să facă acest lucru automat.

Următoarea macro creează un registru de lucru nou, gol, cu douăsprezece foi de lucru și numește foile individuale în forma prescurtată a numelor lunii, adică „Jan”, „Feb” etc. Iată macro-ul corespunzător:

Sub tabele CreateMonth ()
Dim Numărul filei ca număr întreg
Afișează nou ca registru de lucru
Numele dim ca variantă
Nume = matrice ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
„Iul”, „Aug”, „Sep”, „Oct”, „Nov”, „Dec”)
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Setați New = Workbooks.Add
Application.SheetsInNewWorkbook = TabNumber
Pentru TabNumber = 1-12
New.Worksheets (TabNumber) .Name = Nume (TabNumber - 1)
Următorul număr de filă
Sfârșitul Sub

După ce începeți, veți primi un registru de lucru cu douăsprezece foi de lucru. Următoarea figură arată cum arată rezultatul:

Dacă doriți să utilizați alte nume în locul numelor lunare, adaptați numele din atribuirea valorii la variabila „Nume”.

Sfat: Dacă doriți să știți cum să introduceți și să porniți macrocomenzile în Excel, veți găsi o scurtă descriere aici: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html

Vei ajuta la dezvoltarea site-ului, partajarea pagina cu prietenii

wave wave wave wave wave