Developing.ru

Есть книга Excel. Из большого количества листов. Как сделать чтобы нумеровались все листы в книге. Очень надоело в каждом листе колонтитулы проставлять

А если есть на такую заморочку макрос, то будьте милосердны - обисните как им пользоваца!
Всем огромное спасибо!

Ну если не гнаться за производительностью, то как то так:

Код: Выделить всё

Public sub WSNumerator()
    Dim ws as Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.PageSetup.CenterHeader = "Страница &С из &К"
    Next ws
End Sub

В модуль кода
Затем выполнить.

Developing.ru

Установить колонтитулы во всей книге разом

Установить колонтитулы во всей книге разом

Re: Помогите простому пользователю