нумерация в нижнем колонтитуле

[27102014]

Всем доброго времени суток!
Возникла необходимость сделать макросом нумерацию страниц в Excel. Задача такая: на двух листах (например, Содержание и Текст) нахадятся страницы, нужно начать нумерацию с листа Содержание и закончить на листе Текст, количество страниц может быть различным.

Поискал решение в интернете, ничего похоже не нашел, придумал такое решение для нижнего колонтитула - может кому-нибудь пригодится

 Sub Макрос()
'

 Worksheets("Содержание").Select
 
 i = 2 ' начальный номер страницы, с которого нужно начать нумерацию
ActiveSheet.PageSetup.FirstPageNumber = i
ActiveSheet.PageSetup.RightFooter = "&P" 'CenterFooter - если по центру

R = ActiveSheet.HPageBreaks.Count + 1 'счетчик кол-ва страниц на листе
Worksheets("Текст").Select
ActiveSheet.PageSetup.FirstPageNumber = R + i
ActiveSheet.PageSetup.RightFooter = "&P" 'CenterFooter


End Sub

[27102014]

Т.к. это всего лишь кусок кода, возник вопрос - можно ли в формуле прописать ссылку на колонтитул? А1 = колонтитул страницы 2?
Никто не сталкивался с такой задачей?

[Казанский]

Задача такая: на двух листах (например, Содержание и Текст) нахадятся страницы, нужно начать нумерацию с листа Содержание и закончить на листе Текст, количество страниц может быть различным.

Включите нумерацию страниц на обоих листах, выделите оба и распечатайте: получите сквозную нумерацию страниц.

[27102014]

Вся суть задачи как раз в том, чтобы исключить ручные действия.
Пока решил задачу так - собираю оглавление, считаю сколько оно занимает места (1 или 2 страницы), далее собираю текст и оглавление снова, напротив позиции текста в оглавлении ставится формула номер строки. Формулу нашел на нашем сайте - лень искать ссылку, кажется автор EducatedFool .

Function PageNumber(cel As Range) As Long
    Dim ws As Worksheet, rgBreaks As Range, hBreak As HPageBreak
    Dim vBreak As VPageBreak, i As Long, j As Long, k As Long, n As Long
    Set ws = cel.Parent
    For Each hBreak In ws.HPageBreaks
        If hBreak.Location.Row > cel.Row Then Exit For
        i = i + 1
    Next
    For Each vBreak In ws.VPageBreaks
        If vBreak.Location.Column > cel.Column Then Exit For
        j = j + 1
    Next
    PageNumber = j * ws.VPageBreaks.Count + i + 1 + 2 'если лист СОДЕРЖАНИЕ второй и всего один
End Function

Т.к. Содержание может быть на двух листах, в основной код макроса добавил оперетора Select Case - и просто добавил еще одну такую же формулу, но с таким условием

PageNumber = j * ws.VPageBreaks.Count + i + 1 + 3 'если лист СОДЕРЖАНИЕ второй и их два

Еще не тестировал, но вроде как должно работать