Номер страницы - проставить

[Zirat]

Добрый вечер!
Подскажите, пож-та каким образом можно сделать следующее: для строк в столбце "В", текст в которых написан шрифтом большим 12 (выделены красным) проставить напротив (в стобце М) номера страниц, на которых эти строки расположены


Файл-исходник:

[EducatedFool]

каким образом можно сделать следующее

При помощи пользовательской функции

проставить напротив (в стобце М) номера страниц

А что такое - номер страницы?
По каким признакам его вычислять?

К примеру, почему строки 54 (Резервуар горизонтальный) и 55 (Технологическое оборудование ) имеют номер страницы, равный двум?

[андей]

Вроде это то, что Вам нужно:
http://www.sql.ru/forum/actualthread.aspx?tid=329838

Или вот ещё:
http://www.programmersforum.ru/showthread.php?t=23104

[Zirat]

Скачал выставленный файл. Почему-то параметры страницы слетели (ориентация была альбомная, и отступы полей были другие).
На самом деле Таблица будет шириной в 1 страницу, а высотой n страниц.
Номер страницы определяется по номеру, который будет при включенном режиме "Разметка страницы" (или предварительном просмотре), т.е. количеством разрывов страниц.

Попробую еще раз залить файл.

[EducatedFool]

Вот Вам пример:



Обратите внимание на формулы в столбце M:

  Ячейка: M9      Формула  (стиль A1):   =НомерСтраницы(B9)
                  Формула  (стиль R1C1): =НомерСтраницы(RC[-11])

Вот весь код:

Function НомерСтраницы(ByRef cell As Range) As String
    If cell.Font.Size < 12 Then Exit Function
    НомерСтраницы = PageNumber(cell)
End Function

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
End Function

Отключите автоматический пересчёт формул.
Перед выводом на печать вручную запускайте пересчёт.

[Zirat]

EducatedFool, спасибо Вам большое! Вы мне очень помогли. Буду дальше разбираться.

[tae1980]

EducatedFool: Как быть в подобной ситуации при этом использовать колонтитул. А номер страницы должен отражать в колонтитуле?

[tae1980]

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

Еще вопрос: В книге есть лист "Лист 1" как узнать сколько в нем всего листов, с учетом колонтитула на этом листе?

[EducatedFool]

Сообщение от tae1980

EducatedFool: Как быть в подобной ситуации при этом использовать колонтитул. А номер страницы должен отражать в колонтитуле?

А в чём сложность?
Меню Вид - Колонтитулы - Создать верхний колонтитул, нажимаем на кнопочку с символом #, потом ОК.

[tae1980]

Сообщение от EducatedFool

А в чём сложность?
Меню Вид - Колонтитулы - Создать верхний колонтитул, нажимаем на кнопочку с символом #, потом ОК.

Я скорее всего не правильно выразился. Попробую еще раз:
Есть таблицы, шириной 1 лист, длиною N листов , на первом листе оформлена шапка (3-4 строки), которая должна повторяться на каждом листе. Эту шапку я задаю сквозными строками:
.PrintTitleRows = "$1:$" & Строк_скв 'Задаем сквозные строки
где Строк_скв - количество сквозных строк.

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

Я планирую такой алгоритм работы при печати таблицы:
1. по списку смотрим какие листы (таблицы) должны печататься раньше и определяем их общий размер в страницах.
2. вносим номер страница в шапку.
3. печатаем одну страницу текущего листа (таблицы).
4. увеличиваем номер страницы в шапке.
5. печатаем следующую страницу.
6. повторяем 4-5 пока не кончаться страницы.

Возникает вопрос по пункту 1. Нужно определить размер листа (таблицы) с учетем сквозных строк.