Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/поиск номера страницы на листе эксель (содержание) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск номера страницы на листе эксель (содержание) (Макросы/Sub)
поиск номера страницы на листе эксель (содержание)
AB0885 Дата: Вторник, 12.07.2022, 15:01 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

тема крос. My WebPage . Начинали с простых формул, пришли к выводу о том, что надо макрос. Последнее к чему пришли, это
[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]
Nic70y, занят и пока не может помочь.

[admin]Тема закрыта. Причина: Нарушение правил форума пп. 5f[/admin]
К сообщению приложен файл: 1234.xlsm(21.6 Kb)
 
Ответить
Сообщениетема крос. My WebPage . Начинали с простых формул, пришли к выводу о том, что надо макрос. Последнее к чему пришли, это
[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]
Nic70y, занят и пока не может помочь.

[admin]Тема закрыта. Причина: Нарушение правил форума пп. 5f[/admin]

Автор - AB0885
Дата добавления - 12.07.2022 в 15:01
Serge_007 Дата: Вторник, 12.07.2022, 15:31 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 15571
Репутация: 2559 ±
Замечаний: ±

Excel 2016
тема крос
Это не кросс (кросс невозможен в рамках одного сайта/форума), а дубль, что противоречит правилам форума
Зачем Вы дублируете?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
тема крос
Это не кросс (кросс невозможен в рамках одного сайта/форума), а дубль, что противоречит правилам форума
Зачем Вы дублируете?

Автор - Serge_007
Дата добавления - 12.07.2022 в 15:31
AB0885 Дата: Вторник, 12.07.2022, 15:38 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

Serge_007, там раздел "Вопросы по Excel". Решил сюда переместить т.к., это соответствует разделу "Вопросы по VBA".
 
Ответить
СообщениеSerge_007, там раздел "Вопросы по Excel". Решил сюда переместить т.к., это соответствует разделу "Вопросы по VBA".

Автор - AB0885
Дата добавления - 12.07.2022 в 15:38
Serge_007 Дата: Вторник, 12.07.2022, 15:47 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 15571
Репутация: 2559 ±
Замечаний: ±

Excel 2016
Решил сюда переместить
Вы ничего не переместили (перемещать темы могут только админы и модераторы), а создали дубль

там раздел "Вопросы по Excel"... это соответствует разделу "Вопросы по VBA"
И это тоже противоречит правилам, т.к. Вы разместили тему в несоответствующем разделе


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Решил сюда переместить
Вы ничего не переместили (перемещать темы могут только админы и модераторы), а создали дубль

там раздел "Вопросы по Excel"... это соответствует разделу "Вопросы по VBA"
И это тоже противоречит правилам, т.к. Вы разместили тему в несоответствующем разделе

Автор - Serge_007
Дата добавления - 12.07.2022 в 15:47
AB0885 Дата: Вторник, 12.07.2022, 16:14 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

Извиняюсь. Удалите тогда тему.

Не смог в личные написать. Расскажите, почему код VBA не соответствует разделу "Вопросы по VBA"? в чём я заблуждаюсь?


Сообщение отредактировал AB0885 - Вторник, 12.07.2022, 16:19
 
Ответить
СообщениеИзвиняюсь. Удалите тогда тему.

Не смог в личные написать. Расскажите, почему код VBA не соответствует разделу "Вопросы по VBA"? в чём я заблуждаюсь?

Автор - AB0885
Дата добавления - 12.07.2022 в 16:14
Serge_007 Дата: Вторник, 12.07.2022, 16:20 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 15571
Репутация: 2559 ±
Замечаний: ±

Excel 2016
почему код VBA не соответствует разделу "Вопросы по VBA"?
А кто Вам сказал что не соответствует?!

Удалите тогда тему
Темы форума не удаляются, только закрыть можно


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
почему код VBA не соответствует разделу "Вопросы по VBA"?
А кто Вам сказал что не соответствует?!

Удалите тогда тему
Темы форума не удаляются, только закрыть можно

Автор - Serge_007
Дата добавления - 12.07.2022 в 16:20
AB0885 Дата: Вторник, 12.07.2022, 16:29 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

закрывайте. А то "флуд", а не тема получается.
 
Ответить
Сообщениезакрывайте. А то "флуд", а не тема получается.

Автор - AB0885
Дата добавления - 12.07.2022 в 16:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск номера страницы на листе эксель (содержание) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!