Използвайте VBA макрос, за да създадете нова работна книга, която съдържа точно толкова работни листове, колкото ви е необходимо
В много макроси трябва да се създават нови работни книги, които например са изпълнени с определено съдържание. Важна задача тук е да създадете нова работна книга на Excel, която да съдържа точно желания брой електронни таблици.
Следният макрос върши тази работа. Той създава нова работна книга, която съдържа 31 работни листа. Тези работни листове са номерирани от 1 до 31. Ето подходящите VBA команди:
Sub FuegeTabellenEin ()
Затъмнете числото като цяло число
Dim i As Integer
Dim Mappe като работна тетрадка
Number = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Задайте папка = Работни книги
За i = 1 към Mappe.Worksheets.Count
Папка. Работни листове (i). Име = i
Следва i
Application.SheetsInNewWorkbook = номер
End Sub
Когато стартира, Excel показва нова работна книга, която съдържа 31 работни листа. Следващата фигура показва как изглежда това в регистъра на листа:
В макроса посочвате желания брой работни листове, като използвате числото 31. Променете този номер, ако искате да имате по -малко или повече работни листове в работна книга.
За да въведете макроса, натиснете ALT F11 в Excel, за да изведете редактора на VBA. Използвайте командата INSERT - MODULE, за да вмъкнете празен модулен лист. За да стартирате макроса директно от Excel, използвайте комбинацията от клавиши ALT F8.
