Мне нужно создать рабочую книгу, состоящую из 52 листов, первая из которых будет названа неделя 1, затем неделя 2 и так далее. Как я могу сделать это без переименования каждого листа вручную.

Спасибо

1 ответ1

1

Я не вижу каких-либо ограничений для достижения этой цели, поэтому я использовал код VBA:

Sub btnClick()
    Dim counter As Integer
    counter = 1
    For Each ws In ActiveWorkbook.Worksheets
        ws.Name = "Week" & counter
        counter = counter + 1
    Next
    Do While counter < 53
        Worksheets.Add().Name = "Week" & counter
        counter = counter + 1
    Loop
End Sub

Для этого нужно переименовать существующие рабочие листы: поэтому, если вы используете новую рабочую книгу, у вас будет 3 рабочих листа, и они будут переименованы в неделю1, неделю2 и неделю3. Когда существующие рабочие листы будут переименованы, код сгенерирует новые рабочие листы и назовет их "неделя" с номером рабочего листа.

Если у вас есть какие-либо дополнительные функции или проблемы с этим решением, не стесняйтесь комментировать.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .