Как сделать так, чтобы ярлычок листа являлся ссылкой на другую книгу? Т.е. щелкаешь по ярлыку, а у тебя не лист открывается, а книга, лежащая в определённом месте (т.е. сделать это через гиперссылку). Хотелось бы сделать нечто вроде Базы Знаний и накидать т.о. важные блоки информации, содержащиеся в других книгах, слишком объемных, чтобы объединить всё в одну.
Приветствую!
Как сделать так, чтобы ярлычок листа являлся ссылкой на другую книгу? Т.е. щелкаешь по ярлыку, а у тебя не лист открывается, а книга, лежащая в определённом месте (т.е. сделать это через гиперссылку). Хотелось бы сделать нечто вроде Базы Знаний и накидать т.о. важные блоки информации, содержащиеся в других книгах, слишком объемных, чтобы объединить всё в одну.Venique
Сообщение отредактировал Venique - Четверг, 06.11.2014, 14:45
Ерунда - не ерунда, но потребовалось иметь эти псевдо-ссылки всегда на виду, т.е. с помощью ярлычков. Причём, необходимо было открывать не только экселевские документы, но и сторонние. Без макросов действительно нельзя... возможно, кому-то пригодится:
[vba]
Код
Private Sub Worksheet_Activate() 'запускаем макрос по активации листа On Error Resume Next 'заставляем макрос не обращать внимание на ошибки Sheets("Лист1").Activate 'убираем фокус с листа с макросом, чтобы не лицезреть пустоту AppActivate "Microsoft Access" 'выводим на передний план MS Access If err.Number = 5 Then 'если получаем ошибку #5, которая говорит о том, что MS Access не запущен, то Programm = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" 'запускаем его File = "\\***.mdb" 'открываем нужный файл Shell Programm & " " & File, vbNormalFocus 'вуаля! End If End Sub
[/vba]
Труда переделать под любую другую программу\файл нет, макрос задокументировал подробно.
Ерунда - не ерунда, но потребовалось иметь эти псевдо-ссылки всегда на виду, т.е. с помощью ярлычков. Причём, необходимо было открывать не только экселевские документы, но и сторонние. Без макросов действительно нельзя... возможно, кому-то пригодится:
[vba]
Код
Private Sub Worksheet_Activate() 'запускаем макрос по активации листа On Error Resume Next 'заставляем макрос не обращать внимание на ошибки Sheets("Лист1").Activate 'убираем фокус с листа с макросом, чтобы не лицезреть пустоту AppActivate "Microsoft Access" 'выводим на передний план MS Access If err.Number = 5 Then 'если получаем ошибку #5, которая говорит о том, что MS Access не запущен, то Programm = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" 'запускаем его File = "\\***.mdb" 'открываем нужный файл Shell Programm & " " & File, vbNormalFocus 'вуаля! End If End Sub
[/vba]
Труда переделать под любую другую программу\файл нет, макрос задокументировал подробно.Venique
Сообщение отредактировал Venique - Среда, 12.11.2014, 17:27