Создать гиперссылки в столбце для адреса в другом столбце

Question

Возможно ли (возможно, с горячей клавишей) изменить текст в ячейке в столбце E на гиперссылку на веб-сайт, указанный в столбце F.

Я думаю, что это самый простой способ создать эти ссылки и обновить их при необходимости.

Редакция: Оказывается, функция HYPERLINK недостаточно хороша. Мне нужно экспортировать файл excel в .pdf, но с помощью функции HYPERLINK получается файл .pdf без рабочих гиперссылок. Причина в том, что преобразование .pdf сначала разрешает все формулы Excel, прежде чем преобразовывать его в файл .pdf. Поэтому единственным способом создания рабочих ссылок является то, что текст в ячейке становится гиперссылкой, делая это вручную. Возможно ли, чтобы макрос сделал это автоматически, не используя функцию HYPERLINK?

Answer 1

Попробуйте Hyperlinks.Add https://msdn.microsoft.com/en-us/library/office/ff822490.aspx

Say клетка f5 содержит http://stackoverflow.com как текст. Код преобразует его в ссылку, отображающую исходный текст в e5.

Sub ConvertToHyperlink() 
With Worksheets(1) 
.Hyperlinks.Add Anchor:=.Range("e5"), _ 
Address:=.Range("f5"), _ 
ScreenTip:="test web site" 
End With 

End Sub