У Джона есть рабочая книга, в которой более тысячи URL-адресов, все в столбце A. Это не гиперссылки; они представляют собой обычный текст отдельных URL-адресов. Джон хочет преобразовать URL-адреса в активные гиперссылки, но выполнение преобразования по отдельности чрезвычайно утомительно, особенно для такого большого количества URL-адресов.

Как и в большинстве случаев утомительного использования Excel, решение состоит в использовании макроса для преобразования. Чтобы быть эффективным, макрос должен пройти через каждую ячейку в выбранном диапазоне и, если ячейка не пуста, преобразовать содержимое в гиперссылку. Следующее поможет:

Sub URL_List()

For Each cell In Selection         If cell.Value <> "" Then             If Left(cell.Value, 7) = "http://" Then                 URL = cell.Value             Else                 URL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=URL, TextToDisplay:=cell.Value         End If     Next cell End Sub

Макрос не надежен; он предполагает, что если ячейка вообще что-либо содержит, это действительный URL. Он проверяет содержимое ячейки и, если перед содержимым не стоит текст «http: //», он добавляется. Затем гиперссылка создается на основе содержимого ячейки.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3110) применим к Microsoft Excel 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Converting_a_Range_of_URLs_to_Hyperlinks [преобразование диапазона URL-адресов в гиперссылки].