..
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= "C:\test.doc", TextToDisplay:="Ссылка"
..
Гиперссылки на vba в excel
Конкретно,
Есть:
1 - Папка с заказами;
2 - Папка с приходами.
Сделано:
1 - В столбце "A" cоздан список названий всех заказов из папки "Заказы";
2 - В столбце "B" создан список пути к заказу.
То есть:
A1 Заказ №1 B1 путь к заказу №1
итак далее...
Необходимо:
Чтобы к заказу автоматически присваивалась ссылка по указанному пути.
Тоже самое проделано с папкой приходами.
В конечном итоге отображается перечень заказов с пометкой приход есть/нет. Вот только не могу разобраться с гиперссылками. Хотелось бы сразу перепрыгивать на нужный заказ просто щёлкнув по нему.
Примечание: vba изучаю самостоятельно, начинающий.
Очень рассчитываю на вашу помощь.
- Как макросом перейти к файлу (Word), путь к которому P известен? от Станислав Евтушенко, 04 января 2015 года
Как создать гиперссылку программно:
Код:
Научись пользоваться командой Сервис->Макрос->Начать запись.
Пример :
A2=Бакалея.xls
B2=C:\Мои документы
C2=ГИПЕРССЫЛКА(B2&"\"&A2)
При желании можно указать нужный текст для гиперссылки, например
=ГИПЕРССЫЛКА(B2&"\"&A2;A2)
Использование стандартной функции значительно облегчило решение задачи.
Не думал что решение может быть таким просты, даже обидно чуть-чуть стало... )
у меня не работает функция гиперссылка
=ГИПЕРССЫЛКА("[Книга1]ПРИЛОЖЕНИЯ № 2!J131") в чем может быт ошибка Мои данные сохраняется в другом листе и ссылается в этом же книгу когда я нажимаю на ссылку входят сообщения «Не удается открыт указанный файл»
=ГИПЕРССЫЛКА("[Книга1.xls]'Приложения № 2'!J131")
А если вышеупомянутая книга может быть закрыта, то в этом случае, Вы можете указать полный путь, например :
=ГИПЕРССЫЛКА("[C:\Мой архив\2007\Книга1.xls]'Приложения № 2'!J131")