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

Следующий макрос был разработан, чтобы помочь в этих ситуациях. Он проверяет имена рабочих листов в вашей книге, переименовывая их в месяцы года, если они начинаются с букв «Лист». Если в книге недостаточно листов, она добавляет листы по мере необходимости для каждого месяца года.

Sub DoMonths()

Dim J As Integer     Dim K As Integer     Dim sMo(12) As String

sMo(1) = "January"

sMo(2) = "February"

sMo(3) = "March"

sMo(4) = "April"

sMo(5) = "May"

sMo(6) = "June"

sMo(7) = "July"

sMo(8) = "August"

sMo(9) = "September"

sMo(10) = "October"

sMo(11) = "November"

sMo(12) = "December"



For J = 1 To 12         If J <= Sheets.Count Then             If Left(Sheets(J).Name, 5) = "Sheet" Then                 Sheets(J).Name = sMo(J)

Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sMo(J)

End If         Else             Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sMo(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> sMo(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = sMo(J) Then                     Sheets(K).Move Before:=Sheets(J)

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

Последним шагом в макросе является то, что он размещает рабочие листы в правильном порядке для месяцев с 1 по 12. В результате, если у вас остались какие-либо другие рабочие листы в книге (другими словами, у вас были некоторые листы, которые начинались не с буквы «Лист», то эти рабочие листы оказываются в конце учебного пособия по прошествии 12 месяцев.

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

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

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

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

Этот совет (2017 г.) относится к Microsoft Excel 97, 2000, 2002, и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

`ссылка: / excelribbon-Sheets_ for_Months [Таблицы за месяцы] `.