Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Скрыть листы в Excel так, чтобы они отображались, когда переходишь к ним по гиперссылке
 
#1
15.09.2011 12:46:41
Добрый день!  
Подскажите, пожалуйста, можно ли в Excel организовать следующее:  
Есть отчет с несколькими листами. На главной странице сделаны гиперссылки на каждый лист, на каждом листе есть гиперссылка на главную страницу.    
Хочется, чтобы навигация по отчету осуществлялась ТОЛЬКО по гипессылкам, и все листы, кроме главного, были скрыты.  
Если скрыть листы обычным образом, то с главной страницы не получается к ним перейти.
 
 
 
#2
15.09.2011 12:53:45
ну а если просто убрать ярлычки листов?
Живи и дай жить..
 
 
 
#3
15.09.2011 14:26:11
{quote}{login=слэн}{date=15.09.2011 12:53}{thema=}{post}ну а если просто убрать ярлычки листов?{/post}{/quote}  
 
Убрать, нажав на них "скрыть" ?  
тогда с главной страницы не получится перейти на эти листы по гиперссылке
 
 
 
#4
15.09.2011 14:28:22
Скажите, а для чего это нужно, может действтиельно можно задачку по-другому решить.
 
 
 
#5
15.09.2011 14:35:45
Скрываются ярлычки листов так:  
http://www.ExcelVBA.ru/pictures/20110915-j3i-60kb.jpg
 
 
 
#6
15.09.2011 14:42:37
не скрыть, а вот так
Живи и дай жить..
 
 
 
#7
15.09.2011 15:03:21
Вариант, по двойному клику.
Я сам - дурнее всякого примера! ...
 
 
 
#8
15.09.2011 15:27:49
Серж,  
попаразитировал на твоем примере, сделал по гиперссылкам:
 
 
 
#9
15.09.2011 15:33:49
{quote}{login=Казанский}{date=15.09.2011 03:27}{thema=}{post}Серж,  
попаразитировал на твоем примере, сделал по гиперссылкам:{/post}{/quote}  
 
Казанский, это то, что нужно!!  
только объясните, пожалуйста, как адаптировать этот макрос к другому файлу... офис 2007.
 
 
 
#10
15.09.2011 15:47:51
Alt+F11, перенести код из модуля ЭтаКнига этого файла в модуль ЭтаКнига другого файла.
 
 
 
#11
15.09.2011 15:51:52
Можно убрать одну проверку:  
 
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
 
 
 
#12
25.01.2012 16:41:15
Ребята мне все то что надо ...но я в этом деле мало разбираюсь можно по шагово сделать как прописать этот макрос чтобы при нажатии гиперссылки переходить на скрытый лист и с него по гиперссылке попасть на главную и после листы кроме главной опять скрылись
 
 
 
Страницы: 1
Наверх