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

Вход

Регистрация

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

 

= Мир MS Excel/Гиперссылка на скрытый лист - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Гиперссылка на скрытый лист (Макросы/Sub)
Гиперссылка на скрытый лист
Leojse Дата: Вторник, 28.12.2021, 12:59 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 1 ±
Замечаний: 0% ±

2010/2013
Добрый день, уважаемые форумчане!
Помогите, пожалуйста, со следующим вопросом.
Есть файл с несколькими листами. На главной странице сделаны гиперссылки на каждый лист. Гиперссылки прописаны в объектах рисования (автофигуры). На каждом листе есть гиперссылка на главную страницу.
Хотелось бы перемещаться по листам только по гиперссылкам, а все листы, кроме активного, были бы скрыты.
Задавал этот вопрос на форуме: https://www.planetaexcel.ru/
Очень похожая тема: www.planetaexcel.ru
Результат похожей темы выше:
[vba]
Код
Private Sub Workbook_SheetFollowHyperlink(ByVal sh As Object, ByVal Target As Hyperlink)  
If Target.Address <> "" Then Exit Sub 'внешняя гиперссылка  
Range(Target.SubAddress).Parent.Visible = xlSheetVisible: sh.Visible = xlSheetHidden  
End Sub
[/vba]
Но код не отрабатывает, когда гиперссылки прописаны в автофигурах.
Предложенный вариант по ссылке выше не совсем подходит, так как автофигур больше 100
Помогите, пожалуйста, найти другое решение.
К сообщению приложен файл: 1632276.xls(31.5 Kb)
 
Ответить
СообщениеДобрый день, уважаемые форумчане!
Помогите, пожалуйста, со следующим вопросом.
Есть файл с несколькими листами. На главной странице сделаны гиперссылки на каждый лист. Гиперссылки прописаны в объектах рисования (автофигуры). На каждом листе есть гиперссылка на главную страницу.
Хотелось бы перемещаться по листам только по гиперссылкам, а все листы, кроме активного, были бы скрыты.
Задавал этот вопрос на форуме: https://www.planetaexcel.ru/
Очень похожая тема: www.planetaexcel.ru
Результат похожей темы выше:
[vba]
Код
Private Sub Workbook_SheetFollowHyperlink(ByVal sh As Object, ByVal Target As Hyperlink)  
If Target.Address <> "" Then Exit Sub 'внешняя гиперссылка  
Range(Target.SubAddress).Parent.Visible = xlSheetVisible: sh.Visible = xlSheetHidden  
End Sub
[/vba]
Но код не отрабатывает, когда гиперссылки прописаны в автофигурах.
Предложенный вариант по ссылке выше не совсем подходит, так как автофигур больше 100
Помогите, пожалуйста, найти другое решение.

Автор - Leojse
Дата добавления - 28.12.2021 в 12:59
Nic70y Дата: Вторник, 28.12.2021, 13:48 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7731
Репутация: 1856 ±
Замечаний: 0% ±

Excel 2010
Файл - Параметры - Дополнительно
Показать параметры для следующей книги:
снять флажок с Показывать ярлыки листов

скрывать листы не нужно, макрос не нужен


ЮMoney 41001841029809
 
Ответить
СообщениеФайл - Параметры - Дополнительно
Показать параметры для следующей книги:
снять флажок с Показывать ярлыки листов

скрывать листы не нужно, макрос не нужен

Автор - Nic70y
Дата добавления - 28.12.2021 в 13:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Гиперссылка на скрытый лист (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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