Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перейти по гиперссылке??? / 6 сообщений из 6, страница 1 из 1
21.01.2010, 13:59
    #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
| Ответить | Цитировать | Написать  
22.01.2010, 14:59
    #36425432
_slan_
_slan_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перейти по гиперссылке???
Vasilisk_and,

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

?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2010, 17:14
    #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
| Ответить | Цитировать | Написать  
23.01.2010, 00:50
    #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
| Ответить | Цитировать | Написать  
24.01.2010, 18:20
    #36427638
Vasilisk_and
Vasilisk_and
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перейти по гиперссылке???
ZVI,

Спасибо, работает, только вот почему иногда не переходит по ссылке пи любом из способов в этой теме? При copy\paste в браузер все ок...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2010, 21:57
    #36427866
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перейти по гиперссылке???
Vasilisk_andтолько вот почему иногда не переходит по ссылке при любом из способов в этой теме? При copy\paste в браузер все ок...
Можете привести пример ссылки, которая не срабатывает в моем примере?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перейти по гиперссылке??? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 449ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178568]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 149ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 2ms
others: 216ms
total:  449ms
x
x
Закрыть


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