Kaip sukurti darbaknygę ir pervardyti lenteles
Norite sukurti darbaknyges, kuriose yra dvylika darbalapių, kad galėtumėte rinkti kiekvieno metų mėnesio duomenis? Leiskite makrokomandai tai padaryti automatiškai.
Ši makrokomanda sukuria naują tuščią darbaknygę su dvylika darbalapių ir pavadina atskirus lapus mėnesio pavadinimų santrumpa, ty „Jan“, „Feb“ ir tt Čia yra tinkama makrokomanda:
Sub CreateMonth lentelės ()
„Dim“ skirtuko numeris kaip sveikasis skaičius
„Dim New As Workbook“
Nežymūs pavadinimai kaip variantas
Vardai = masyvas („sausis“, „vasaris“, „kovas“, „balandis“, „gegužė“, „birželis“, _
„Liepos“, „rugpjūčio“, „rugsėjo“, „spalio“, „lapkričio“, „gruodžio“)
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Nustatyti Naujas = Darbaknygės. Pridėti
Application.SheetsInNewWorkbook = TabNumber
„TabNumber“ = nuo 1 iki 12
New.Worksheets (TabNumber) .Name = Vardai (TabNumber - 1)
Kitas skirtuko numeris
Pabaiga Sub
Pradėję gausite darbo knygą su dvylika darbalapių. Toliau pateiktame paveikslėlyje parodyta, kaip atrodo rezultatas:
Jei norite naudoti kitus pavadinimus, o ne mėnesio pavadinimus, vertės priskyrimo pavadinimus pritaikykite kintamajam „Vardai“.
Patarimas: Jei norite sužinoti, kaip įvesti ir paleisti makrokomandas „Excel“, trumpą aprašymą rasite čia: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
