ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перейти по гиперссылке???
6 сообщений из 6, страница 1 из 1
Как перейти по гиперссылке???
    #36422786
Vasilisk_and
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vasilisk_and
Гость
Возможно ли с помощью VBA перейти по Гиперссылке не привязывая ее к ячейке?
пока нашел только такой выход:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub goto_link(link_txt$) 

With Range("AAA1") '(Range("a1").End(xlDown).Address)
      mem$ = .Formula
      .Hyperlinks.Add Anchor:=.Cells, Address:=link_txt
   If .Hyperlinks.Count >  0  Then
      .Hyperlinks( 1 ).Follow NewWindow:=False, AddHistory:=True
   Else
      MsgBox "Hyperlink not found", vbCritical
   End If
   .Hyperlinks( 1 ).Delete
   .Formula = mem$
End With

Но вся беда в том, что слетает форматирование ячейки
...
Рейтинг: 0 / 0
21.01.2010, 13:59
| Ответить | Цитировать | Написать  
Как перейти по гиперссылке???
    #36425432
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
Vasilisk_and,

может быть просто: application goto range(link_txt),true

?
...
Рейтинг: 0 / 0
22.01.2010, 14:59
| Ответить | Цитировать | Написать  
Как перейти по гиперссылке???
    #36425886
Vasilisk_and
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vasilisk_and
Гость
_slan_,

Неа, ведь все равно надо ссылаться на ячейку, в которой есть гиперссылка, а задача заключается в том, что есть гиперссылка в виде ТЕКСТА, то есть, например
Код: plaintext
link_txt="http://www.sql.ru/forum/actualpost.aspx?bid=46&tid=728751&mid=8229958&p=1"
? по которой надо перейти
...
Рейтинг: 0 / 0
22.01.2010, 17:14
| Ответить | Цитировать | Написать  
Как перейти по гиперссылке???
    #36426353
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
Можно:
Код: plaintext
1.
2.
3.
4.
5.
Sub Test()
  Dim lnk$
  lnk = "http://www.sql.ru/forum/actualpost.aspx?bid=46&tid=728751&mid=8229958&p=1"
  ThisWorkbook.FollowHyperlink Address:=lnk, NewWindow:=True
End Sub
...
Рейтинг: 0 / 0
23.01.2010, 00:50
| Ответить | Цитировать | Написать  
Как перейти по гиперссылке???
    #36427638
Vasilisk_and
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vasilisk_and
Гость
ZVI,

Спасибо, работает, только вот почему иногда не переходит по ссылке пи любом из способов в этой теме? При copy\paste в браузер все ок...
...
Рейтинг: 0 / 0
24.01.2010, 18:20
| Ответить | Цитировать | Написать  
Как перейти по гиперссылке???
    #36427866
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
Vasilisk_andтолько вот почему иногда не переходит по ссылке при любом из способов в этой теме? При copy\paste в браузер все ок...
Можете привести пример ссылки, которая не срабатывает в моем примере?
...
Рейтинг: 0 / 0
24.01.2010, 21:57
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перейти по гиперссылке???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2178568]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 174ms
get topic data:
 11ms
get first new msg:
 6ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 250ms
total:  538ms
созд. / загр.: 538ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]