Как активировать сложную гипперссылку макросом?

geo

Гость

10.12.2011 22:48:42

Уважаемые гуру экселя помогите пжл решить след. проблему.
как следует написать макрос чтобы он тупо активировал данную гипперссылку:

=ГИПЕРССЫЛКА(СЦЕПИТЬ("http://cars.auto.ru/cars/used/";AJ432;"/";AK432;"/";"?currency_key=RUR&price_usd[1]=&price_usd[2]=&year[1]=";Исходные!AD3;"&year[2]=";Исходные!AD3;"&client_id=0&body_key=®ion_id=87&stime=0");"Рыночная стоимость")

простые способы не работают((

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

10.12.2011 22:56:55

Что значит - "активировать" гиперссылку?
Бывают неактивированные гиперссылки?

Нужно макросом открыть эту ссылку в браузере?

Так это просто - выделте ячейку с этой формулой, и запустите макрос из одной строки:
Activecell.Hyperlinks(1).Follow

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest Гость	#3 10.12.2011 23:03:30 пишет run-time error "9" Subscript out of range Range("AJ433:AJ434").Select ActiveCell.Hyperlinks(1).Follow

Guest Гость	#4 10.12.2011 23:11:07 ой сейчас поправлю..

Guest Гость	#5 10.12.2011 23:13:05 Range("AJ433").Select ActiveCell.Hyperlinks(1).Follow то же самое 9 ошибка

Guest Гость	#6 10.12.2011 23:30:10 Спасибо Большое Все заработало!! Ура!

Guest

Гость

10.12.2011 23:41:49

а вот если я строки выше гипперссылки удаляю, то макрос не работает т.к. выделяется (активируется) ячейка AJ433 но там уже нет гипперссылки...может как то так написать типо найти ячейку где написано "рыночная стоимость" и активировать её, но и так тоже не работает...блин а счастье было так близко..

Sub Макрос2()
'Dim sStr As String, sFrm As String
If Cells(i, 36).Text = "Рыночная стоимость" Then
Cells(i, 36).Select
sFrm = ActiveCell.Formula
sStr = Replace(sFrm, "=HYPERLINK(", "")
sStr = Mid(sStr, 1, InStrRev(sStr, ",") - 1)
sStr = Evaluate(sStr)
ActiveWorkbook.FollowHyperlink sStr
End If
End Sub

Guest Гость	#8 10.12.2011 23:43:55 пишет ошибку в первой строке № 1004

ЛМВ

Пользователь

Сообщений: 2902 Регистрация: 17.01.2013

11.12.2011 10:38:35

А м.б. просто дать ячейке собственное имя? Допустим то же "Рыночная_стоимость".
Тогда код будет просто
Sub Макрос2()
Dim sStr As String, sFrm As String
sFrm = Range("Рыночная_стоимость").Formula
sStr = Replace(sFrm, "=HYPERLINK(", "")
sStr = Mid(sStr, 1, InStrRev(sStr, ",") - 1)
sStr = Evaluate(sStr)
ActiveWorkbook.FollowHyperlink sStr
End Sub
И будет работать, пока не удалите саму ячейку "Рыночная_стоимость".

Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/

Guest Гость	#10 12.12.2011 02:30:44 Спасибо, с назначением имени ячейки всё работает

Читают тему