Мне нужен метод создания гиперссылки некоторой переменной в макросе excel. Мое требование я должен захватить ссылку в некоторых переменных для Ex:Гиперссылка в excel macro
abc = InputBox("Enter the path")
теперь я хочу, чтобы использовать эту азбуку в качестве параметра функции гиперссылка и создать гиперссылка с именем А. Можете ли вы помочь мне решить эту проблему?
ОК, вот код. То, что он делает, это 1. Спросить, какой URL-адрес вы хотите 2. Сохранение URL-адреса в переменной с именем URL 3. Переход к листу 1, добавление функции гиперссылки в ячейку A5, привязка ее к введенному URL-адресу 4. Отобразите подходящее имя, которое вы указали в коде
Сообщите мне, если у вас есть какие-либо вопросы | вам просто нужно будет изменить код нужного URL-адреса или разместить ссылки там, где хотите.
Протестировано и работает. Пожалуйста, оцените как ответ :)
Sub CreateHyperLink()
Dim URL As String
URL = InputBox("Enter the link")
With Worksheets("Sheet1")
.Hyperlinks.Add Anchor:=.Range("A5"), _
Address:="http://www." & URL, _
TextToDisplay:="Google"
End With
End Sub
1. аЬс = InputBox (» Введите ссылку ") 2. A =" = Гиперссылка (abc, "" friendlyname ")" 3. wb2.Sheets («Отдых»). Диапазон («A» и restcounter) = A Это то, что я хотеть. Я хочу получить ссылку (например, www.google.com) в качестве входных данных. , тогда я хочу создать гиперссылку и сохранить ее в некоторой переменной A, после чего я вставляю значение в некоторую ячейку листа excel. , пожалуйста, предоставьте мне решение или лучший подход для решения этой проблемы. –
Отредактировал свой ответ с утра. Код проверен и работает. Дай мне знать. –
Спасибо за помощь .. она работает нормально :) –
Используйте функцию HYPERLINK:
=HYPERLINK(link_location, friendly_name)
Создает ярлык или прыжок, который открывает документ, сохраненный на жестком диске, на сетевом сервере или в Интернете.
Например, в макро-код:
Worksheets("Sheet1").Range("A1").Formula = "=HYPERLINK(""" & link_destination & """,""" & link_text & """)"
Обратите внимание на использование «» (две двойные кавычки) в коде VBA, чтобы произвести одну двойную котировку в формуле ячейки.
Приведи к этому [MSDN KB] (https://msdn.microsoft.com/en-us/library/office/ff822490.aspx) – Spidey