Получить номер страницы excel

Как узнать текущий номер листа книги?

Если у вас в книге несколько листов, есть ли у вас какие-нибудь хорошие идеи, чтобы получить текущий номер листа, кроме того, чтобы пересчитывать их по одному? В этой статье я расскажу о простом трюке, с помощью которого вы сможете вернуть номер активного рабочего листа по мере необходимости.

Получить текущий номер рабочего листа книги с кодом VBA

стрелка синий правый пузырь Получить текущий номер рабочего листа книги с кодом VBA

С помощью следующего простого кода VBA вы можете быстро получить номер активного рабочего листа по своему усмотрению, сделайте следующее:

1. Активируйте рабочий лист, которому вы хотите вернуть его порядковый номер.

2. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: получить текущий номер листа

Sub GetActiveSheetIndex()
MsgBox ActiveSheet.Index
End Sub

4, Затем нажмите F5 ключ для запуска этого кода, и вы получите порядковый номер текущего рабочего листа во всплывающем окне сообщения, как показано на следующем снимке экрана:

документ-получить-текущий-лист-номер-1

Статьи по теме:

Как быстро вставить названия листов в ячейки в Excel?

Как посчитать количество листов в рабочей тетради?

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Комментарии (3)


Оценок пока нет. Оцените первым!

Источник

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

В программе Эксель есть такая функция как “Колонтитулы”, которая и поможет в выполнении поставленной задачи, причем существует несколько вариантов, каким образом можно проставить номера страниц. Ниже мы подробно рассмотрим каждый из них.

Содержание

  • Простая нумерация страниц
  • Нумерация с учетом общего количества страниц в файле
  • Нумерация со второго листа
  • Нумерация с определенной страницы
  • Заключение

Простая нумерация страниц

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

  1. Чтобы активировать колонтитулы, переходим во вкладку «Вставка».
  2. Кликаем по разделу «Текст» и в открывшемся списке выбираем «Колонтитулы».Простая нумерация страницПримечание: Располагаться колонтитулы, а значит и номера страниц могут как наверху листа, так и внизу. По умолчанию их значения не заданы и, соответственно, они не отображаются на странице. Отличительной особенностью колонтитулов является то, что внесенная в них информация отображается на всех листах текущего файла.
  3. Программа должна автоматически перейти во вкладку “Колонтитулы”, где отобразит разметку текущего листа и верхний колонтитул, который поделен на 3 части. При желании и необходимости можно переключиться и на нижний, нажав на соответствующую кнопку.Простая нумерация страниц
  4. Теперь нужно выбрать подходящий колонтитул и одну его из частей, где будут располагаться номера страницы. На практике чаще всего выбирают левую сторону верхнего колонтитула. Кликаем по выбранной части, затем щелкаем по кнопке “Номер страницы”.Простая нумерация страниц
  5. На листе в области колонтитула вставится тег следующего формата: &[Страница].Простая нумерация страниц
  6. Теперь щелкаем по любому месту документа за пределами области с колонтитулом, чтобы проставить номер страницы.Простая нумерация страниц
  7. Чтобы быстро отыскать номер страницы, придать ему симпатичный вид, а также, выделить среди другой информации, можно воспользоваться функцией форматирования. Выделяем информацию в колонтитуле, наведя курсор на нужную область и щелкнув левой кнопкой мыши. Далее переходим по вкладке “Главная” (если это не произошло автоматически) и можно приступить к настройке внешнего вида колонтитулов:
    • поменять шрифт
    • применить полужирное/курсивное начертание или подчеркнуть текст
    • скорректировать размер текста
    • выбрать его цветПростая нумерация страниц
  8. После того, как все корректировки внесены, снова щелкаем по любой области вне колонтитула и готово.Простая нумерация страниц

Примечание: Обратите внимание, что все работы с колонтитулами (за исключением настройки их внешнего вида) ведутся из вкладки “Колонтитулы” в верхней строке меню программы.

Нумерация с учетом общего количества страниц в файле

Проставить номера на листах в Эксель можно и с учетом общего количества страниц в документе. Вот, что нужно для этого сделать:

  1. Для начала активируем колонтитулы, как это было описано в примере выше, и вставляем простую нумерацию.
  2. В появившемся теге дописываем перед ним слово “Страницы”, а после – “из”. Должно получится так: Страница &[Страница] из.Нумерация с учетом общего количества страниц в файле
  3. Далее, нажав пробел после слова “из” кликаем по кнопке «Количество страниц». Таким образом, наш финальный тег должен выглядеть следующим образом: Страница &[Страница] из &[Страница].Нумерация с учетом общего количества страниц в файле
  4. Кликаем на любую место в документе за пределами колонтитула, чтобы теги изменились на числовые значения. Причем будет отображаться не только номер текущей страницы, но и общее количество листов, что и требовалось сделать.Нумерация с учетом общего количества страниц в файле
  5. При желании, как и в первом способе, можно настроить внешний вид текста.

Нумерация со второго листа

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

  1. Активируем колонтитулы, как и в предыдущих методах.
  2. Далее нужно нажать на кнопку “Параметры”, где следует поставить галочку напротив опции “Особый колонтитул для первой страницы”.Нумерация со второго листа
  3. Теперь нужно пронумеровать страницы любым из методов, о которых шла речь выше. Однако, в данном случае выбрать нужно любую страницу, за исключением титульной.
  4. Если все действия выполнены верно, будут пронумерованы все листы, за исключением первого. При этом, обратите внимание, что в общем счете первая страница учитывается, просто номер на ней не отображается, что соответствует поставленной задаче. Это значит, что на второй странице будет проставлен именно номер 2 в соответствии с ее реальным порядковым номером.

Нумерация с определенной страницы

В некоторых документах требуется проставление нумерации с определенного номера, например, со второго или, скажем, с пятого. Подобные ситуации на практике встречаются редко, но все же существуют. Для решения подобной задачи выполняем следующие действия:

  1. Сначала нумеруем страницы первым или вторым способами, которые мы уже рассмотрели ранее.
  2. Далее переходи во вкладку “Разметка страницы”.
  3. Снизу в правой части области с инструментами находим кнопку, которая ведет в параметры страницы, и щелкаем по ней. Она представлена виде маленького значка со стрелкой, указывающей вниз по диагонали.Нумерация с определенной страницы
  4. В открывшемся окне мы по умолчанию должны оказаться во вкладке “Страница”. Здесь проставляем номер первой страницы и жмем OK.Нумерация с определенной страницы
  5. В итоге, нумерация начнется с указанной цифры с соответствующим смещением номеров последующих страниц. Нумерация с определенной страницы

Примечание: Чтобы убрать нумерацию страниц, выделяем соответствующую часть колонтитула, и нажимаем кнопку Del (или Backspace), чтобы удалить содержащиеся в ней порядковые номера.

Заключение

Процедура нумерации в программе Microsoft Excel в определенных ситуациях незаменима, а ее реализация достаточно проста даже для начинающих пользователей. В первую очередь, важно активировать сами колонтитулы, после чего уже можно выбрать различные виды нумерации и настроить их отображение на свой собственный вкус и в соответствии с преследуемыми целями.

Источник

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

В программе Excel есть такая функция, как «Верхние и нижние колонтитулы», которая поможет вам выполнить задачу, и есть несколько вариантов того, как вставлять номера страниц. Мы подробно рассмотрим каждый из них ниже.

Простая нумерация страниц

Самый простой способ — пронумеровать все страницы открытого файла. Процедура выполняется следующим образом:

  1. Чтобы активировать верхние и нижние колонтитулы, перейдите на вкладку «Вставка».
  2. Щелкните раздел «Текст» и в открывшемся списке выберите «Верхние и нижние колонтитулы».Простая планировка Примечание. Можно найти верхние и нижние колонтитулы, поэтому номера страниц могут быть вверху или внизу листа. По умолчанию их значения не указаны и, следовательно, они не отображаются на странице. Отличительной особенностью верхних и нижних колонтитулов является то, что введенная в них информация отображается на всех листах текущего файла.
  3. Программа должна автоматически переключиться на вкладку «Верхние и нижние колонтитулы», где отобразит текущий макет листа и верхний колонтитул, который разделен на 3 части. При желании и необходимости вы можете переключиться на нижний, нажав соответствующую кнопку.Простая планировка
  4. Теперь вам нужно выбрать соответствующий верхний и нижний колонтитулы и одну из их частей, где будут размещены номера страниц. На практике чаще всего выбирается левая часть заголовка. Щелкните выбранную часть, затем нажмите кнопку «Номер страницы”.Простая планировка
  5. На листе в области верхнего и нижнего колонтитула размещается тег следующего формата: & [Страница].Простая планировка
  6. Теперь щелкните в любом месте документа за пределами области верхнего и нижнего колонтитула, чтобы вставить номер страницы.Простая планировка
  7. Чтобы быстро найти номер страницы, сделать ее хорошо выглядящей, а также выделить ее среди другой информации, вы можете использовать функцию форматирования. Выберите информацию в заголовке, наведя указатель мыши на нужную область и щелкнув левой кнопкой мыши. Затем перейдите на вкладку «Главная» (если это не произошло автоматически), и вы можете начать настраивать внешний вид верхних и нижних колонтитулов:
    • изменить характер
    • применять полужирный / курсив или подчеркивать текст
    • регулирует размер текста
    • выберите его цветПростая планировка
  8. После внесения всех изменений щелкните еще раз в любой области за пределами заголовка, и все.Простая планировка

Примечание. Обратите внимание, что вся работа с верхними и нижними колонтитулами (кроме настройки их внешнего вида) выполняется на вкладке «Верхние и нижние колонтитулы» в верхней строке меню программы.

Нумерация с учетом общего количества страниц в файле

вы можете вставлять числа на листы в Excel с учетом общего количества страниц в документе. Вот что для этого нужно сделать:

  1. Сначала мы активируем верхние и нижние колонтитулы, как описано в примере выше, и вставляем простую нумерацию.
  2. В появившемся теге добавьте слово «Pages» перед ним и «from» после него. Должно получиться так: Страница и [Страница] из.Нумерация на основе общего количества страниц в файле
  3. Также, нажав пробел после слова «от», нажмите кнопку «Количество страниц». Итак, наш последний тег должен выглядеть так: Page & [Page] of & [Page].Нумерация на основе общего количества страниц в файле
  4. Щелкните в любом месте документа за пределами верхнего и нижнего колонтитула, чтобы изменить теги на числовые значения. Кроме того, будет отображаться не только номер текущей страницы, но и общее количество листов, которые необходимо было сделать.Нумерация на основе общего количества страниц в файле
  5. При желании, как и в первом способе, можно настроить внешний вид текста.

Нумерация со второго листа

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

  1. Активируем верхние и нижние колонтитулы, как в предыдущих способах.
  2. Затем вам нужно нажать на кнопку «Параметры», где вам нужно установить флажок рядом с опцией «Специальный заголовок для первой страницы”.Нумерация со второго листа
  3. Теперь вам нужно пронумеровать страницы одним из рассмотренных выше способов. Однако в этом случае вам нужно выбрать любую страницу, кроме титульной.
  4. Если все действия выполнены правильно, все листы будут пронумерованы, кроме первого. При этом обратите внимание, что в общем аккаунте учитывается первая страница, но отображается не только номер на ней, который соответствует текущей активности. Это означает, что вторая страница будет содержать в точности цифру 2 в соответствии с ее фактическим серийным номером.

Нумерация с определенной страницы

Некоторые документы требуют нумерации с определенного номера, например со второго или, скажем, с пятого. Такие ситуации на практике редки, но все же существуют. Для решения подобной проблемы выполняем следующие действия:

  1. Сначала пронумеруем страницы первым или вторым способом, который мы уже рассмотрели выше.
  2. Затем перейдите на вкладку «Макет страницы”.
  3. Ниже, в правой части области с инструментами, находим кнопку, которая ведет к настройкам страницы, и нажимаем на нее. Он представлен маленьким значком со стрелкой, направленной вниз по диагонали.Нумерация с определенной страницы
  4. В открывшемся окне по умолчанию мы должны находиться на вкладке «Страница». Здесь вводим номер первой страницы и нажимаем ОК.Нумерация с определенной страницы
  5. Следовательно, нумерация начнется с указанной цифры с соответствующим смещением последующих номеров страниц. Нумерация с определенной страницы

Примечание. Чтобы удалить нумерацию страниц, выберите соответствующую часть верхнего и нижнего колонтитула и нажмите кнопку «Удалить» (или Backspace), чтобы удалить содержащиеся на ней порядковые номера.

Заключение

Процедура нумерации в Microsoft Excel незаменима в определенных ситуациях, и ее выполнение довольно просто даже для начинающих пользователей. В первую очередь важно активировать сами верхние и нижние колонтитулы, после чего уже можно выбрать разные типы нумерации и настроить отображение по своим вкусам и в соответствии с преследуемыми целями.

Источник

0 / 0 / 0

Регистрация: 30.05.2010

Сообщений: 13

1

10.06.2010, 09:18. Показов 22441. Ответов 6

Студворк — интернет-сервис помощи студентам

при переходе в режим предпросмотра и после выхода из него можно (так же при задании областей) можно видеть, что в фоновом изображении Excel отображает номера страниц.

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



0

petr-sev

496 / 130 / 19

Регистрация: 30.03.2010

Сообщений: 224

10.06.2010, 14:54

2

как решить эту задачу в лоб — не знаю
предлагаю вариант в обход:
у листа есть коллекция горизонтальных разделителей HPageBreaks
у каждого разделителя есть свойство .Location.Row, которое содержит номер строки, перед которой этот разделитель вставлен

Visual Basic 
1
2
3
4
5

For I = 1 To ActiveSheet.HPageBreaks.Count
    If ActiveCell.Row < ActiveSheet.HPageBreaks(I).Location.Row - 1 Then Exit For
    
Next
MsgBox "Текущая строка на " & CStr(I) & "-й странице"



2

0 / 0 / 0

Регистрация: 30.05.2010

Сообщений: 13

10.06.2010, 17:54

 [ТС]

3

очень интересная идея, огромное спасибо



0

EducatedFool

0 / 0 / 0

Регистрация: 28.09.2009

Сообщений: 88

11.06.2010, 01:10

4

Воспользовался поиском — нашел такие варианты:

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

Public Sub PageNumner()
    Dim VPB As Excel.VPageBreak
    Dim HPB As Excel.HPageBreak
    Dim intVPBC As Integer
    Dim intHPPC As Integer
    Dim lngPage As Long
    
    lngPage = 1
    
    If Activesheet.PageSetup.Order = xlDownThenOver Then
        intHPPC = Activesheet.HPageBreaks.Count + 1
        intVPBC = 1
    Else
        intVPBC = Activesheet.VPageBreaks.Count + 1
        intHPPC = 1
    End If
 
    For Each VPB In Activesheet.VPageBreaks
        If VPB.Location.Column > ActiveCell.Column Then
            Exit For
        End If
        
        lngPage = lngPage + intHPPC
    Next VPB
    
    For Each HPB In Activesheet.HPageBreaks
        If HPB.Location.Row > ActiveCell.Row Then
            Exit For
        End If
            
        lngPage = lngPage + intVPBC
    Next HPB
    
    MsgBox "Номер страницы активной ячейки = " & lngPage
End Sub
Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

Function PageNumber(cel As Range, Optional bEntireWorkbookNumbering As Boolean = False, _
    Optional vUpdatePageNumbering As Variant, Optional bAcrossThenDown As Boolean = False) As Long
Dim ws As Worksheet
Dim rgBreaks As Range
Dim hBreak As HPageBreak
Dim vBreak As VPageBreak
Dim 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
If bAcrossThenDown Then 'Print pages across, then down
    PageNumber = i * ws.HPageBreaks.Count + j + 1
Else    'Print pages down, then across
    PageNumber = j * ws.VPageBreaks.Count + i + 1
End If
If bEntireWorkbookNumbering Then
    n = ws.Index
    If n > 1 Then
        n = n - 1
        For k = 1 To n
            Select Case Sheets(k).Type
            Case xlChart
                PageNumber = PageNumber + 1
            Case xlWorksheet
                i = Worksheets(k).HPageBreaks.Count
                j = Worksheets(k).VPageBreaks.Count
                PageNumber = PageNumber + (i + 1) * (j + 1)
            End Select
        Next
    End If
End If
End Function
Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

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



0

ironegg

1904 / 781 / 31

Регистрация: 11.02.2010

Сообщений: 1,567

11.06.2010, 03:12

5

вопрос, конечно, решенный, но раз наваял, то выложу

Visual Basic 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Public Sub a()
If ActiveWindow.Selection.Cells.Count > 1 Then MsgBox "âûäåëèòå îäíó ÿ÷;åéêó!": Exit Sub
For Each hpb In ActiveSheet.HPageBreaks
    If Not (ActiveCell.Row < hpb.Location.Row) Then
        RowPage = RowPage + 1
    End If
Next hpb
For Each vpb In ActiveSheet.VPageBreaks
    If Not (ActiveCell.Column < vpb.Location.Column) Then
        ColumnPage = ColumnPage + 1
    End If
Next vpb
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
    ActivePage = ColumnPage * (ActiveSheet.HPageBreaks.Count + 1) + RowPage + 1
Else
    ActivePage = RowPage * (ActiveSheet.VPageBreaks.Count + 1) + ColumnPage + 1
End If
MsgBox ActivePage
End Sub



1

0 / 0 / 0

Регистрация: 30.05.2010

Сообщений: 13

11.06.2010, 08:09

 [ТС]

6

благодарствую.

*пошёл разбираться*



0

1 / 1 / 0

Регистрация: 17.11.2010

Сообщений: 40

17.11.2010, 14:20

7

Доброго времени суток

Хотел спросить совета. Итак есть табличка (некая форма док-та). Ее нужно в 4-х экземплярах на печать выдавать (данные в экземлярах разные, но форма одна). Так вот вопрос — как можно определить границу печатного листа при копировании-вставки этой формы?

ActiveSheet.HPageBreaks.Count пока я не вылезу за диапазон 1-го листа, значение = 0. Соответственно и границу (последнюю строку листа) неполучается вычислить…

Можно конечно сделать по простому — сначала копировать, потом определять границы и добивать до нужного пустыми строками, но м.б. есть более красивый выход?



0
Источник

Можно ли вытащить из колонтитулов номер страницы?

yuka

 Дата: Среда, 06.02.2013, 09:44 |
Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 94


Репутация:
0
±

Замечаний:
0% ±


Excel 2007

Доброе утро! Суть я описала в теме. Есть книга, в ней огромное количество строк. Оглавление у меня — это ссылка на ячейку. Честно говоря, в лом вручную прописывать страницы, тем более, что количество строк меняется, следовательно ссылки на эти страницы могут потеряться.
Спасибо.
 

Ответить

RAN

 Дата: Среда, 06.02.2013, 10:17 |
Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Записать рекордером макрос поиска, повесить его на даблклик, и будет щасте… biggrin

PS Искать не номер страницы, а пункт оглавления.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN — Среда, 06.02.2013, 10:18
 

Ответить

yuka

 Дата: Среда, 06.02.2013, 10:47 |
Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 94


Репутация:
0
±

Замечаний:
0% ±


Excel 2007

Цитата (RAN)

PS Искать не номер страницы, а пункт оглавления.

У меня и есть пункты оглавления на гиперссылках. Но я вывожу все в .pdf. Поэтому проще запомнить номера страниц и в файле pdf вводить уже саму страницу, а не переходить по ссылке.
 

Ответить

AlexM

 Дата: Среда, 06.02.2013, 11:13 |
Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257


Репутация:
1046
±

Замечаний:
0% ±


Excel 2003

Посмотрите тему «без помощи колонтитула»
Возможно вам такое решение подойдет.
Макрос проставил номера страниц в определенных ячейках относительно разметки листа перед печатью.
А дальше эти номера как-то (макросом) использовать в оглавлении.


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

 

Ответить

RAN

 Дата: Среда, 06.02.2013, 12:02 |
Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Ниченепонимаю. dry
Т.е вывести все в ПДФ, а затем их Excel говорить ридеру, какую страницу найти? surprised

Быть или не быть, вот в чем загвоздка!

 

Ответить

yuka

 Дата: Среда, 06.02.2013, 13:10 |
Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 94


Репутация:
0
±

Замечаний:
0% ±


Excel 2007

Цитата (AlexM)

Посмотрите тему «без помощи колонтитула»

AlexM, классный макрос! Очень нужный. Возник вопрос… Что это за строчка, что она означает?
[vba]

Код

Ctp = ActiveSheet.HPageBreaks(i).Location.Row ‘номер первого ряда листа i

[/vba]
[Можно ли номер поставить внизу страницы, а не наверху?]
—>не буду сама себя цитировать… Как выяснилось мне это не к чему. Для наглядности достаточно колонтитулов. А номер в ячейке нужен только для оглавления.

RAN, в Adobe Reader Pro есть функция конвертирования Excel в .pdf. Если в исходнике есть ссылки на ячейки книги, то при конвертации они сохраняются. Фактически создается оглавление с ссылками. Но моим пользователям мало этих ссылок, им нужны номера страниц, чтобы в самом файле .pdf переходить не по ссылке, а вводить напрямую номер страницы. [Возможно, такое желание возникло из-за того, что оглавление достаточно большое].

Сообщение отредактировал yuka — Среда, 06.02.2013, 13:35
 

Ответить

Michael_S

 Дата: Среда, 06.02.2013, 13:18 |
Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 2012


Репутация:
373
±

Замечаний:
0% ±


Excel2016

Оглавления с ссылками и страницами хорошо делает Word.
А уже из него в .pdf

Сообщение отредактировал Michael_S — Среда, 06.02.2013, 13:18
 

Ответить

RAN

 Дата: Среда, 06.02.2013, 13:19 |
Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Опять ниченепонимаю.
Сохранил в ПДФ, ввел номер страницы — перешел. Никаких ссылок не делал.

Быть или не быть, вот в чем загвоздка!

 

Ответить

Michael_S

 Дата: Среда, 06.02.2013, 13:21 |
Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 2012


Репутация:
373
±

Замечаний:
0% ±


Excel2016

RAN, ну так знать, какой № вводить… а это можно узнать из оглавления.
 

Ответить

yuka

 Дата: Среда, 06.02.2013, 13:28 |
Сообщение № 10

Группа: Пользователи

Ранг: Участник

Сообщений: 94


Репутация:
0
±

Замечаний:
0% ±


Excel 2007

Цитата (Michael_S)

Оглавления с ссылками и страницами хорошо делает Word.
А уже из него в .pdf

Никогда не пробовала… но слышала… Это тогда надо весь документ засовывать в Word?
 

Ответить

Michael_S

 Дата: Среда, 06.02.2013, 13:35 |
Сообщение № 11

Группа: Друзья

Ранг: Старожил

Сообщений: 2012


Репутация:
373
±

Замечаний:
0% ±


Excel2016

Надо посмотреть на документ… Может проще макрос создать, чем документ в ворд перевести.
 

Ответить

yuka

 Дата: Среда, 06.02.2013, 13:56 |
Сообщение № 12

Группа: Пользователи

Ранг: Участник

Сообщений: 94


Репутация:
0
±

Замечаний:
0% ±


Excel 2007

файл весит около 3 Мб, поэтому вот:
файл
Страницы выведены, теперь как-то заголовки надо привязать к страницами…)) Я уже почти отказалась от этой идеи….
 

Ответить

AlexM

 Дата: Среда, 06.02.2013, 14:13 |
Сообщение № 13

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257


Репутация:
1046
±

Замечаний:
0% ±


Excel 2003

Цитата (yuka)

Что это за строчка, что она означает?

В комментарии написано что она обозначает.
cpt — номер первой строки на листе после разметки
в строке
[vba]

Код

Cells(Ctp+1, 6) = i + 1

[/vba]
устанавливается второй ряд после разметки.
Вам видно надо над разметкой поставить номер страницы
[vba][/vba]
Кажется так. Не проверял. Тороплюсь.


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

 

Ответить

yuka

 Дата: Среда, 06.02.2013, 14:18 |
Сообщение № 14

Группа: Пользователи

Ранг: Участник

Сообщений: 94


Репутация:
0
±

Замечаний:
0% ±


Excel 2007

Цитата (AlexM)

устанавливается второй ряд после разметки.
Вам видно надо над разметкой поставить номер страницы

Спасибо за разъяснение! Меня смутили «ряды»))) Попривыкла к строкам….)))
 

Ответить

AlexM

 Дата: Среда, 06.02.2013, 17:46 |
Сообщение № 15

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257


Репутация:
1046
±

Замечаний:
0% ±


Excel 2003

У нас* СТРОКА у них* ROW (ряд)
У нас СТОЛБЕЦ у них COLUMN (колонка)
Стараюсь называть правильно в Экселе СТРОКА и СТОЛБЕЦ, а в VBA Ряд и Колонка
* у нас — РУ, у них — EN
smile


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

 

Ответить

shanemac51

 Дата: Среда, 06.02.2013, 20:11 |
Сообщение № 16

Группа: Проверенные

Ранг: Новичок

Сообщений: 33


Репутация:
4
±

Замечаний:
0% ±


Цитата

Есть книга, в ней огромное количество строк.

обязателен ли эксель — ведь здесь скорее просмотр, чем корректировка
почему не НТМ с якорными закладками

НТМ можно уплотнить в chm

Сообщение отредактировал shanemac51 — Среда, 06.02.2013, 20:12
 

Ответить

yuka

 Дата: Пятница, 08.02.2013, 09:30 |
Сообщение № 17

Группа: Пользователи

Ранг: Участник

Сообщений: 94


Репутация:
0
±

Замечаний:
0% ±


Excel 2007

Цитата (shanemac51)

обязателен ли эксель — ведь здесь скорее просмотр, чем корректировка
почему не НТМ с якорными закладками

Честно говоря я еще не в курсе как делать HTM. Это бы осилить…

AlexM, а как прописать в макросе от текущей строки до разделителя страницы? У меня же заголовки находятся в разных строках и столбцах… Т.е. надо вычислить начало и конец страницы…. Выше было мое сообщение с ссылкой на файл с народа. Если что непонятно, то лучше глянуть файл. Спасибо за ответы!
 

Ответить

AlexM

 Дата: Пятница, 08.02.2013, 09:49 |
Сообщение № 18

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257


Репутация:
1046
±

Замечаний:
0% ±


Excel 2003

3Мб очень много.
Сделайте файл примерно на 3-4 страницы (до 100Кб) и прикрепите к своему сообщению, нажав кнопочку «Выберите файл».
Укажите в каком столбце нужны номера страниц.


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

 

Ответить

yuka

 Дата: Пятница, 08.02.2013, 10:17 |
Сообщение № 19

Группа: Пользователи

Ранг: Участник

Сообщений: 94


Репутация:
0
±

Замечаний:
0% ±


Excel 2007

ясно…)))
Макрос на создания оглавления там есть (cont). Не стала создавать, экономлю место))

К сообщению приложен файл:

new_test.xls
(50.5 Kb)
 

Ответить

AlexM

 Дата: Пятница, 08.02.2013, 11:06 |
Сообщение № 20

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4257


Репутация:
1046
±

Замечаний:
0% ±


Excel 2003

См. файл.

К сообщению приложен файл:

9515359.xls
(58.5 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

 

Ответить
Источник

Понравилась статья? Поделить с друзьями:
  • Получить названия всех листов excel
  • Пользовательские классы vba excel
  • Получить название листа excel формула
  • Пользовательские данные в word
  • Получить название листа excel vba