Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Аналог меню веб-сайта
 
#1
21.04.2011 09:01:06
Как сделать?  
Подробности в файле.  
 
Заранее благодарен.
 
 
 
#2
21.04.2011 10:21:47
примерно так?
Живи и дай жить..
 
 
 
#3
21.04.2011 10:31:29
Да, примерно так. Но только на веб-сайте главное меню никогда не меняется.  
"О компании" всегда останется главной, хотя, из него вываливаются другие пункты меню.  
 
Кстати, не могли бы вы рассказать, как устроена эта ссылка?
 
 
 
#4
21.04.2011 10:35:43
это макросы  
 
при активации ячейки открывается список, созданный на основе проверки данных.  
 
при выборе из списка(изменении значения ячейки) выполняется переход.
Живи и дай жить..
 
 
 
#5
21.04.2011 10:36:43
про главное меню - ничего не понял :)
Живи и дай жить..
 
 
 
#6
21.04.2011 10:46:34
Главное меню - это вероятно так:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim tmp As String  
With Target  
If .Address = [a1].Address Then
Application.EnableEvents = False  
tmp = .Text  
   Application.Undo  
   Application.EnableEvents = True  
   Sheets(tmp).Activate  
End If  
End With  
End Sub
 
 
 
#7
21.04.2011 10:50:05
Извините, я плохо выразил свою мысль, заметил, но редактировать сообщения тут нет возможности.  
 
Так вот, меню должно быть  
 
О компании  
\Специализация  
\Контактная информация  
\Сотрудники  
 
При работе вашего алгоритма "Специализация" подменит "О компании". Когда человек вернется с листа "Специализация" обратно на главную страницу, то там раздела "О компании" уже не будет.  
 
И еще просьба. Не могли бы вы разжевать мне, как при выборе из списка сделать переход.
 
 
 
#8
21.04.2011 10:55:42
Разобрался с активацией листов. Спасибо.  
Hugo, браво.  
 
А как мне добавить - при активации любого листа возврат списков в исходное состояние с отображением  
 
О компании Новости Юр. Лицам Физ. Лицам Программы
 
 
 
#9
21.04.2011 11:03:18
Зачем при "любого"? Достаточно "первого" :)  
Или там формулы будут завязаны на эти значения?  
 
И вообще-то я только Application.Undo в код слэна добавил...
 
 
 
#10
21.04.2011 15:51:24
можно заморочиться и сделать именно меню..
Живи и дай жить..
 
 
 
#11
21.04.2011 17:00:54
Сделал я вам подобие выпадающего меню - проверяйте (только пункт О КОМПАНИИ) <BR>http://excelvba.ru/XL_Files/Sample__21-04-2011__19-00-07.zip
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#12
22.04.2011 10:27:05
вот так чуть почище работает :)  
 
да простит меня мастер ёда.. только чуть формы подрисовал..
Живи и дай жить..
 
 
 
Страницы: 1
Читают тему
Наверх