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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматически скрывать, раскрывать листы (при гипперссылке) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматически скрывать, раскрывать листы (при гипперссылке) (Формулы/Formulas)
Автоматически скрывать, раскрывать листы (при гипперссылке)
Nikitos79 Дата: Четверг, 25.08.2016, 10:09 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Есть лист (Расстанавливать)этот лист всегда должен отображаться. При нажатии на Фамилии открывается другой лист. Я делаю эти страницы скрытными, и при нажатии на гиперссылку они уже естественно не открываются. Можно ли реализовать чтобы они все равно открывались.

То есть я нажимаю на Кокин и открывается лист с ссылкой на него, после нажимаю на этом листе
(Кокин), на Токин и открывается лист с ним, а лист кокин автоматически опять становится скрытым. Лист Расстанавливать вседа должен отображаться, а вот остальные скрываться пока не перейду по гиперссылке на них.
Выкладываю пример, но таких листов я буду делать где то 160
К сообщению приложен файл: 123.xlsx (21.5 Kb)
 
Ответить
СообщениеЕсть лист (Расстанавливать)этот лист всегда должен отображаться. При нажатии на Фамилии открывается другой лист. Я делаю эти страницы скрытными, и при нажатии на гиперссылку они уже естественно не открываются. Можно ли реализовать чтобы они все равно открывались.

То есть я нажимаю на Кокин и открывается лист с ссылкой на него, после нажимаю на этом листе
(Кокин), на Токин и открывается лист с ним, а лист кокин автоматически опять становится скрытым. Лист Расстанавливать вседа должен отображаться, а вот остальные скрываться пока не перейду по гиперссылке на них.
Выкладываю пример, но таких листов я буду делать где то 160

Автор - Nikitos79
Дата добавления - 25.08.2016 в 10:09
buchlotnik Дата: Четверг, 25.08.2016, 10:33 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
так может имеет смысл просто скрыть отображение ярлычков листов и по книге перемещаться только по ссылкам?
 
Ответить
Сообщениетак может имеет смысл просто скрыть отображение ярлычков листов и по книге перемещаться только по ссылкам?

Автор - buchlotnik
Дата добавления - 25.08.2016 в 10:33
Nikitos79 Дата: Четверг, 25.08.2016, 10:51 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
buchlotnik, А я этого и не знал, что можно скрывать отображение листов, намного проще. СПАСИБО))) :D


Сообщение отредактировал Nikitos79 - Четверг, 25.08.2016, 10:52
 
Ответить
Сообщениеbuchlotnik, А я этого и не знал, что можно скрывать отображение листов, намного проще. СПАСИБО))) :D

Автор - Nikitos79
Дата добавления - 25.08.2016 в 10:51
Roman777 Дата: Четверг, 25.08.2016, 11:38 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Nikitos79, пример с макросом (нужен формат книги, поддерживающий макросы).
[vba]
Код
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
If Target.SubAddress = "" Then: Exit Sub
Dim s As Object
Set s = Target.Parent
n$ = s.Offset(, -1).Text
Application.ScreenUpdating = False
   For Each Sh In ActiveWorkbook.Sheets
   nt = Sh.Name
      If Sh.Name <> "Расстанавливать" Then
         If Sh.Name = n Then
            Sh.Visible = True
         Else
            If Sh.Visible Then
               Sh.Visible = False
            End If
         End If
      End If
   Next Sh
Application.ScreenUpdating = True
Worksheets(n).Activate
Range(Names(Target.SubAddress).RefersToRange.Address).Select
End Sub
[/vba]
К сообщению приложен файл: 123-.xls (84.5 Kb)


Много чего не знаю!!!!
 
Ответить
СообщениеNikitos79, пример с макросом (нужен формат книги, поддерживающий макросы).
[vba]
Код
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
If Target.SubAddress = "" Then: Exit Sub
Dim s As Object
Set s = Target.Parent
n$ = s.Offset(, -1).Text
Application.ScreenUpdating = False
   For Each Sh In ActiveWorkbook.Sheets
   nt = Sh.Name
      If Sh.Name <> "Расстанавливать" Then
         If Sh.Name = n Then
            Sh.Visible = True
         Else
            If Sh.Visible Then
               Sh.Visible = False
            End If
         End If
      End If
   Next Sh
Application.ScreenUpdating = True
Worksheets(n).Activate
Range(Names(Target.SubAddress).RefersToRange.Address).Select
End Sub
[/vba]

Автор - Roman777
Дата добавления - 25.08.2016 в 11:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматически скрывать, раскрывать листы (при гипперссылке) (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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