|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.01.2009, 15:46 | #1 |
Пользователь
Регистрация: 19.03.2007
Сообщений: 53
|
Скрыть листы по запросу
Есть большая книга из более чем 100 листов. Для удобства надо по выбору из выпадающего списка, в котором перечислены все имена листов, скрыть все листы кроме выбраного. Это будет намного удобней, чем листать всю книгу. Кроме того желетельно иметь кнопку для отображения всех листов книги. Если кто поможет, то буду чрезвычайно благодарен, так как своих знаний не хватает для такой реализации.
С уважением - Рубей. |
14.01.2009, 16:04 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Может, так подойдёт?
Назначьте этим макросам кнопки на панели инструментов, или горячие клавиши. Код:
|
14.01.2009, 17:02 | #3 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Я немного доработал предыдущий ответ. Посмотрите, может понравиться!
Назначте макросу какую-нибудь комбинацию клавиш, что бы можно было его запускать с текущего листа, только в этом случае при выборе "Скрыть все кроме активного", вы останетесь на этом же листе. Последний раз редактировалось Maxx; 14.01.2009 в 17:20. |
14.01.2009, 17:22 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
2 Maxx
Совет на будущее: удаляйте из своих файлов ссылки на всякие библиотеки, а то на некоторых компах Ваши макросы не заработают.
В данном файле была ссылка на компонент Ref Edit Control, который на моём компе изволил отсутствовать. Из-за этого макросы не запускались. Но это всё мелочи. Ну а так, в общем-то, неплохо. Вот только это лишнее: Код:
Кстати, выделять ячейки тоже совсем не обязательно. Весь макрос "Выбор_Листа" можно заменить таким кодом: Код:
|
14.01.2009, 17:36 | #5 | ||
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Вы ПРОФИ, а я новичок. Многого не знаю, ну а за:
Цитата:
Цитата:
Вот итоговый вариант: Последний раз редактировалось Maxx; 14.01.2009 в 17:43. |
||
14.01.2009, 17:45 | #6 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Появляется окно: Убираете лишние галочки. В данном случае достаточно оставить только эти: В данном случае проблема была в том, что среди прочих была ссылка на компонент Ref Edit Control из Office 2007, который у меня не установлен. Для данного проекта этот компонент не нужен. Цитата:
|
||
14.01.2009, 18:07 | #7 |
Пользователь
Регистрация: 19.03.2007
Сообщений: 53
|
Не запускается макрос
Последний вариант макроса выдает ошибку
CAN'T FIND PROJECT OR LIBRARY И что-то он подозрительно короткий по тексту. Рубей |
14.01.2009, 18:21 | #8 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Цитата:
(кнопки ОК и ОТМЕНА убрал, так как не понял, для чего они предназначены) При выборе имени листа в выпадающем списке этот лист автоматически активируется. |
||
15.01.2009, 11:28 | #9 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Конечно же Ваш код компактней, но зато он не позволяет выбрать из списка скрытый лист
|
15.01.2009, 16:24 | #10 | |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Цитата:
Правда, как потом быть с активным листом, скрывать его или оставлять? Кстати, Maxx, а в какой версии офиса идет работа? Можно сделать панель инструментов (для 2003) или динамическое меню (для 2007)
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 15.01.2009 в 16:28. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сохранение по запросу | Jura_71 | БД в Delphi | 2 | 07.01.2009 04:04 |
вопрос по SQL запросу | Anton_S | БД в Delphi | 5 | 09.06.2008 01:47 |
Переименовались Листы | valerij | Microsoft Office Excel | 2 | 24.05.2008 21:35 |
Хелп по ссылкам на другие листы | frozencat | Microsoft Office Excel | 3 | 15.11.2007 19:18 |
Разнести информацию на разные листы | asale | Microsoft Office Excel | 3 | 13.06.2007 20:16 |