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

Вход

Регистрация

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

 

= Мир MS Excel/Гиперссылка. Отображение и скрытие таблиц. - Мир MS Excel

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

Excel 2010
Здравствуйте, ВСЕМ!
Уже не раз обращалась за помощью, надеюсь, и в этот раз мне помогут бескорыстные знатоки Excel.
На листе, в вертикальной последовательности, размещены расчетные таблицы со значениями (лист "разделы" в примере). Над каждой таблицей есть ее название. Заполнение таблиц будет выборочное. Так как, из-за большого объема не совсем удобно прокручивать и искать нужный раздел (таблицу) на листе, можно ли сделать так:
1.Название таблицы преобразовать в гиперссылку.
2.Присвоить ей действие (думаю, наверное, все-таки макрос) на отображение и (или) скрытие соответствующего раздела (таблицы).

Т.е. визуально будет виден только список наименований таблиц (как на листе «список» в примере). А при выборе из списка заголовка отображается (скрывается) соответствующая под ним таблица.
К сообщению приложен файл: 1616215.xls (34.5 Kb)
 
Ответить
СообщениеЗдравствуйте, ВСЕМ!
Уже не раз обращалась за помощью, надеюсь, и в этот раз мне помогут бескорыстные знатоки Excel.
На листе, в вертикальной последовательности, размещены расчетные таблицы со значениями (лист "разделы" в примере). Над каждой таблицей есть ее название. Заполнение таблиц будет выборочное. Так как, из-за большого объема не совсем удобно прокручивать и искать нужный раздел (таблицу) на листе, можно ли сделать так:
1.Название таблицы преобразовать в гиперссылку.
2.Присвоить ей действие (думаю, наверное, все-таки макрос) на отображение и (или) скрытие соответствующего раздела (таблицы).

Т.е. визуально будет виден только список наименований таблиц (как на листе «список» в примере). А при выборе из списка заголовка отображается (скрывается) соответствующая под ним таблица.

Автор - Лорик
Дата добавления - 14.03.2015 в 04:43
ShAM Дата: Суббота, 14.03.2015, 07:33 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
А чем обычная Группировка не подходит? Нажимаете на "+", есть таблица. Нажимаете на "-", нет таблицы.
К сообщению приложен файл: 1616215_1.xls (41.0 Kb)
 
Ответить
СообщениеА чем обычная Группировка не подходит? Нажимаете на "+", есть таблица. Нажимаете на "-", нет таблицы.

Автор - ShAM
Дата добавления - 14.03.2015 в 07:33
Vostok Дата: Суббота, 14.03.2015, 12:25 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 211
Репутация: 1 ±
Замечаний: 40% ±

Excel 2010
Возьмите мой файл, прикреплённый в сообщении http://www.excelworld.ru/forum/10-16353-1.
Там в коде - есть блок создания гиперссылок на Диаграммы, можно взять за основу. Хотя вряд ли гиперссылка - это то что вам нужно.


"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Суббота, 14.03.2015, 12:30
 
Ответить
СообщениеВозьмите мой файл, прикреплённый в сообщении http://www.excelworld.ru/forum/10-16353-1.
Там в коде - есть блок создания гиперссылок на Диаграммы, можно взять за основу. Хотя вряд ли гиперссылка - это то что вам нужно.

Автор - Vostok
Дата добавления - 14.03.2015 в 12:25
Leanna Дата: Суббота, 14.03.2015, 14:03 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Вот так можно скрывать:
[vba]
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
addr = Target.Parent.Cells(1).Address(0, 0)
Select Case addr
Case "A1"
     Rows("2:18").Hidden = Not Rows("2:18").Hidden
Case "A20"
     Rows("21:33").Hidden = Not Rows("21:33").Hidden
Case "A35"
     Rows("36:45").Hidden = Not Rows("36:45").Hidden
End Select
End Sub
[/vba]
Если строки не фиксированные то надо придумать метки по которым можно было бы понять, что таблица окончилась, тогда можно циклом перебирать строчки пока не дойдет до метки и всё что между гиперссылкой и меткой скроет. Меткой может быть заливка другого цвета, жирная линия внизу (вроде) и тд.
К сообщению приложен файл: hyperlinks.xls (59.5 Kb)


Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеВот так можно скрывать:
[vba]
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
addr = Target.Parent.Cells(1).Address(0, 0)
Select Case addr
Case "A1"
     Rows("2:18").Hidden = Not Rows("2:18").Hidden
Case "A20"
     Rows("21:33").Hidden = Not Rows("21:33").Hidden
Case "A35"
     Rows("36:45").Hidden = Not Rows("36:45").Hidden
End Select
End Sub
[/vba]
Если строки не фиксированные то надо придумать метки по которым можно было бы понять, что таблица окончилась, тогда можно циклом перебирать строчки пока не дойдет до метки и всё что между гиперссылкой и меткой скроет. Меткой может быть заливка другого цвета, жирная линия внизу (вроде) и тд.

Автор - Leanna
Дата добавления - 14.03.2015 в 14:03
Лорик Дата: Суббота, 14.03.2015, 16:14 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 109
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Возьмите мой файл, прикреплённый в сообщении http://www.excelworld.ru/forum/10-16353-1.

Vostok, что-то ссылка не рабочая?!
 
Ответить
Сообщение
Возьмите мой файл, прикреплённый в сообщении http://www.excelworld.ru/forum/10-16353-1.

Vostok, что-то ссылка не рабочая?!

Автор - Лорик
Дата добавления - 14.03.2015 в 16:14
Лорик Дата: Суббота, 14.03.2015, 16:18 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 109
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Вот так можно скрывать:

Спасибо,Leanna,за код и за подсказки.
 
Ответить
Сообщение
Вот так можно скрывать:

Спасибо,Leanna,за код и за подсказки.

Автор - Лорик
Дата добавления - 14.03.2015 в 16:18
OutCast Дата: Пятница, 21.08.2015, 11:34 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

Excel 2003
Доброго времени суток!
Подскажите пожалуйста как сделать макрос на добавление нового листа в книгу и автоматически привязать к нему гиперссылку...
а то лист создает, но привязывает гиперссылку постоянно к первому листу
[moder]Создавайте свою тему


Сообщение отредактировал _Boroda_ - Пятница, 21.08.2015, 12:47
 
Ответить
СообщениеДоброго времени суток!
Подскажите пожалуйста как сделать макрос на добавление нового листа в книгу и автоматически привязать к нему гиперссылку...
а то лист создает, но привязывает гиперссылку постоянно к первому листу
[moder]Создавайте свою тему

Автор - OutCast
Дата добавления - 21.08.2015 в 11:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Гиперссылка. Отображение и скрытие таблиц. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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