поиск номера страницы на листе эксель

Дата: Воскресенье, 22.05.2022, 15:21 | Сообщение № 1

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

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

Сообщений: 58

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

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

Здравствуйте. Можно ли найти номер страницы на листе эксель. Проще говоря составить содержание по разделам. Оглавление не подходит т.к. там построено на поиске листов. Пытался через гиперссылку не получилось. Тег

Код

&[Страница]

полько для колонтитула. Для наглядности сделал файл, в нём 5 страниц. На второй странице содержание.

К сообщению приложен файл: 9289299.xlsx(10.3 Kb)

Дата: Воскресенье, 22.05.2022, 16:17 | Сообщение № 2

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

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

Сообщений: 58

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

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

Или это только через VBA?

Дата: Понедельник, 23.05.2022, 08:19 | Сообщение № 3

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

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

Сообщений: 7745

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

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

Excel 2010

вдруг правильно

Код

=ИНДЕКС(A$101:A$9999;ПОИСКПОЗ("*.*раздел*";ИНДЕКС(A$101:A$9999;ЕСЛИОШИБКА(ПОИСКПОЗ(A52;A$101:A$9999;);)+1):A$9999;)+ЕСЛИОШИБКА(ПОИСКПОЗ(A52;A$101:A$9999;);))

Код

=ГИПЕРССЫЛКА("#Лист1!A"&ПОИСКПОЗ(A53;A$101:A$9999;)+100;ЦЕЛОЕ((ПОИСКПОЗ(A53;A$101:A$9999;)+100)/50)+1)

К сообщению приложен файл: 12.xlsx(10.5 Kb)

ЮMoney 41001841029809

Дата: Понедельник, 23.05.2022, 12:29 | Сообщение № 4

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

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

Сообщений: 58

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

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

Nic70y, отличное решение, если фиксированно по 50 строк на странице. У меня же на каждой странице количество строк разное (извините, не указал сразу) и может варьироваться от 1 до 50.

Дата: Понедельник, 23.05.2022, 13:10 | Сообщение № 5

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

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

Сообщений: 7745

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

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

Excel 2010

Цитата AB0885, 23.05.2022 в 12:29, в сообщении № 4 (

)

1 до 50

разрывов страниц не обнаружил. видимо у на разное понимание

Код

=ГИПЕРССЫЛКА("#Лист1!A"&ПОИСКПОЗ(A53;A$101:A$9999;)+100;СТРОКА(A1))

ЮMoney 41001841029809

Дата: Понедельник, 23.05.2022, 17:07 | Сообщение № 6

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

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

Сообщений: 58

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

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

Nic70y, немного поправил, ссылка работает правильно на вот номер страницы оставляет желать лучшего. Немного поправил документ приблизил к "полевым",

Цитата

на каждой странице количество строк разное

, в файле показал это и разрывы добавил. Мешает изменение количества строк.

К сообщению приложен файл: 121.xlsx(10.7 Kb)

Дата: Вторник, 24.05.2022, 08:06 | Сообщение № 7

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

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

Сообщений: 58

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

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

Nic70y, а с разрывами каждой страницы получится?

Дата: Вторник, 24.05.2022, 14:04 | Сообщение № 8

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

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

Сообщений: 7745

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

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

Excel 2010

почти
[vba]

Код

Sub u_700()
    Application.ScreenUpdating = False
    u = Range("a93").End(xlUp).Row
    For Each w In Range("a53:a" & u)
        f = Application.Match(w, Range("a94:a9999"), 0) + 94
        b = 0
        For Each a In ActiveSheet.HPageBreaks
            If a.Extent = xlPageBreakFull Then
                b = b + 1
                On Error Resume Next
                x = ActiveSheet.HPageBreaks(b).Location.Row
                If x > f Then
                    Exit For
                End If
            End If
        Next
        Worksheets("Лист1").Hyperlinks.Add Anchor:=Range("h" & w.Row), Address:="", _
            SubAddress:="Лист1!A" & f, TextToDisplay:="" & b
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 14.xlsm(21.6 Kb)

ЮMoney 41001841029809

Дата: Суббота, 11.06.2022, 14:39 | Сообщение № 9

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

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

Сообщений: 58

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

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

Nic70y, здравствуйте. Прошу прощения за столь длинный перерыв (обстоятельства). Ругается на эту строчку [vba]

Код

For Each a In ActiveSheet.HPageBreaks

[/vba]
ошибка runtime error 9 subscript out of range.

Устранил путём добавления ещё разделов, но стало последний раздел неправильно показывать (предыдущий номер страницы). Так что "устранил", это громко сказано.

К сообщению приложен файл: 0691347.xlsm(21.6 Kb)

Сообщение отредактировал AB0885 - Суббота, 11.06.2022, 15:12

Дата: Среда, 13.07.2022, 09:26 | Сообщение № 10

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

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

Сообщений: 7745

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

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

Excel 2010

[vba]

Код

Sub u_700()
    Application.ScreenUpdating = False
    u = Range("a93").End(xlUp).Row
    Range("h53:i" & u).ClearContents
    y = 1
    For Each a In ActiveSheet.HPageBreaks
        If a.Extent = xlPageBreakFull Then
            b = b + 1
            x = ActiveSheet.HPageBreaks(b).Location.Row
            y = y & "," & x
        End If
    Next
    For Each w In Range("a53:a" & u)
        f = Application.Match(w, Range("a94:a9999"), 0) + 93
        g = Evaluate("MATCH(" & f & ",{" & y & "},1)")
        Worksheets("Лист1").Hyperlinks.Add Anchor:=Range("h" & w.Row), Address:="", _
            SubAddress:="Лист1!A" & f, TextToDisplay:="" & g
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 800.xlsm(22.2 Kb)

ЮMoney 41001841029809