Когда вы начинаете новую книгу, один из распространенных сценариев требует создания рабочих листов за год, по одному на каждую неделю года. Другими словами, рабочая тетрадь может содержать 52 или 53 рабочих листа, в зависимости от того, сколько недель в конкретном году.

Если вам нужно создать такую ​​книгу, вы знаете, что индивидуальное создание и присвоение имен всем рабочим листам может быть настоящей проблемой. Вот здесь и пригодится макрос. Следующий макрос добавит соответствующее количество рабочих листов, а затем переименует все рабочие листы в соответствии с номером недели (с 01 по 52).

Sub YearWorkbook1()

Dim iWeek As Integer     Dim sht As Variant     Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

iWeek = 1     For Each sht In Worksheets         sht.Name = "Week " & Format(iWeek, "00")

iWeek = iWeek + 1     Next sht     Application.ScreenUpdating = True End Sub

Если вместо этого вам нужен способ создания рабочих листов, показывающих дату окончания каждой недели в течение года, то потребуется другой макрос.

Sub YearWorkbook2()

Dim iWeek As Integer     Dim sht As Variant     Dim sTemp As String     Dim dSDate As Date

sTemp = InputBox("Date for the first worksheet:", "End of Week?")

dSDate = CDate(sTemp)

Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

For Each sht In Worksheets         sht.Name = Format(dSDate, "dd-mmm-yyyy")

dSDate = dSDate + 7     Next sht     Application.ScreenUpdating = True End Sub

Эта версия макроса запрашивает дату начала. Затем он использует эту дату, чтобы начать именовать различные рабочие листы в книге. Если вы введете значение, которое нельзя перевести в дату, макрос выдаст ошибку.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (12403) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для более старого интерфейса меню Excel здесь: link: / excel-Naming_Tabs_for_Weeks [Именование вкладок для недель].