Вот такая задача: два столбца, первый - значение , второй - кнопка , при нажатии на кнопку открывается сайт http://www.russianpost.ru/tracking20/ и заполняется поле "Почтовый идентификатор" значением из первого столбца. Жду ответов профессионалов. Файл прикрепил. Заранее спасибо за ответы=)
Вот такая задача: два столбца, первый - значение , второй - кнопка , при нажатии на кнопку открывается сайт http://www.russianpost.ru/tracking20/ и заполняется поле "Почтовый идентификатор" значением из первого столбца. Жду ответов профессионалов. Файл прикрепил. Заранее спасибо за ответы=)vlad372
Можно еще так (должны открываться в браузере по умолчанию): [vba]
Код
Sub Set_links() i = 1 For Each Sh In ActiveSheet.Shapes Sh.Select temp = "http://www.russianpost.ru/tracking20/?" & Cells(i, 1).Value ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=temp i = i + 1'добавила Next Sh End Sub
[/vba]
UPD. забыла про i. Файл перезалила
Можно еще так (должны открываться в браузере по умолчанию): [vba]
Код
Sub Set_links() i = 1 For Each Sh In ActiveSheet.Shapes Sh.Select temp = "http://www.russianpost.ru/tracking20/?" & Cells(i, 1).Value ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=temp i = i + 1'добавила Next Sh End Sub
Sub Get_Site() Dim GL, Shap GL = Application.Caller Shap = ActiveSheet.Shapes(GL).TopLeftCell.Offset(0, -1) With CreateObject("WScript.Shell") .Run "http://www.russianpost.ru/tracking20/?" & Shap End With End Sub
[/vba]
Добрыйю Можно так [vba]
Код
Sub Get_Site() Dim GL, Shap GL = Application.Caller Shap = ActiveSheet.Shapes(GL).TopLeftCell.Offset(0, -1) With CreateObject("WScript.Shell") .Run "http://www.russianpost.ru/tracking20/?" & Shap End With End Sub
А если усложнить задачу ? возможно ли ко всему этому еще и подключить сервис https://rucaptcha.com что б не вводить капчи??? Понимаю что это перебор. Но может все-таки кто то сможет. вот логин и пароль для входа в личный кабинет rucaptcha там положительный баланс. Надеюсь на порядочность=) LOGIN: vlad372@yandex.ru PASS: 5355559 За решение данной задачи хотелось бы даже отблагодарить человека 500р. на телефон. понимаю не много, но чем богаты так сказать.
А если усложнить задачу ? возможно ли ко всему этому еще и подключить сервис https://rucaptcha.com что б не вводить капчи??? Понимаю что это перебор. Но может все-таки кто то сможет. вот логин и пароль для входа в личный кабинет rucaptcha там положительный баланс. Надеюсь на порядочность=) LOGIN: vlad372@yandex.ru PASS: 5355559 За решение данной задачи хотелось бы даже отблагодарить человека 500р. на телефон. понимаю не много, но чем богаты так сказать.vlad372
vlad372, насколько я понимаю, этот вопрос выходит за рамки заявленной темы. Создавайте новую (можно в платном разделе). И персональные данные лучше не выкладывать в открытый доступ
vlad372, насколько я понимаю, этот вопрос выходит за рамки заявленной темы. Создавайте новую (можно в платном разделе). И персональные данные лучше не выкладывать в открытый доступPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816