Как да създадете работна книга и да преименувате таблици
Искате ли да създадете работни книги, които съдържат дванадесет работни листа, така че да можете да събирате данни за всеки месец от годината? Нека макросът направи това вместо вас автоматично.
Следният макрос създава нова, празна работна книга с дванадесет работни листа и назовава отделните листове под стенография на имената на месеците, т.е. "Jan", "Feb" и т.н. Ето и подходящия макрос:
Sub CreateMonth таблици ()
Затъмнете номера на раздела като цяло число
Dim New As Workbook
Приглушени имена като вариант
Имена = масив ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
„Юли“, „август“, „септември“, „октомври“, „ноември“, „декември“)
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Set New = Работни книги
Application.SheetsInNewWorkbook = TabNumber
За TabNumber = 1 до 12
Ново.Работни листове (TabNumber) .Name = Имена (TabNumber - 1)
Номер на следващия раздел
End Sub
След стартиране ще получите работна книга с дванадесет работни листа. Следващата фигура показва как изглежда резултатът:
Ако искате да използвате други имена вместо имената на месеците, адаптирайте имената в присвояването на стойността към променливата "Имена".
Съвет: Ако искате да знаете как да въвеждате и стартирате макроси в Excel, ще намерите кратко описание тук: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- в-excel-ein.html
