Код для ссылки excel

Вставленные в таблицу Excel ссылки не всегда становятся активными, из-за чего переход по ним в одно нажатие попросту невозможен. В таких случаях ссылку необходимо активировать, чтобы дальнейшее взаимодействие с ней было более удобным. Для этого есть разные способы, каждый из которых подойдет в определенных ситуациях.

Вариант 1: Вставка ссылки из браузера

Excel работает таким образом, что при копировании ссылки из адресной строки веб-обозревателя она сразу же становится активной. Используйте этот метод, если нужно вставить новые строки в таблицу, а не редактировать уже существующие. Найдите требуемую страницу в браузере и скопируйте ее, выделив и используя комбинацию клавиш Ctrl + C.

Перейдите в Microsoft Excel, после чего вставьте ссылку в подходящую ячейку, подогнав ее по размеру. Выберите любую другую клетку для редактирования, чтобы заметить, как применяется изменение к этой. Теперь вы можете нажать ЛКМ по ссылке, чтобы сразу открыть ее в браузере по умолчанию. 

Прочитайте текст на всплывающей подсказке, появляющейся при наведении курсора на саму ссылку: в ней есть информация о том, что переход происходит при одинарном нажатии, а для выделения необходимо кликнуть и удерживать кнопку мыши. Это поможет разобраться с редактированием, если ранее вы с ним не работали. 

Вариант 2: Самостоятельная активация ссылки

Разберу вариант, когда ссылка уже вставлена в таблицу, но не является активной. Этот же метод подойдет в тех случаях, когда нужно сделать слово или надпись с адресом в виде ссылки, по которой и будет осуществлен переход при нажатии. 

1. Выделите ячейку со ссылкой или надписью, после чего нажмите по ней ПКМ.

2. Из появившегося контекстного меню выберите пункт «Ссылка», открыв соответствующее окно с настройками.

3. Если сейчас ссылка представлена в поле «Текст», ее необходимо скопировать и перенести в поле «Адрес».

4. Вместо ссылки в поле «Текст» вы можете вписать любую надпись, нажатие по которой отвечает за переход по ссылке, вставленной в поле «Адрес».

5. Примените изменения и вернитесь к таблице. На следующем скриншоте вы видите результат активации ссылки с заменой ее текста на более уместный.

Думаю, принцип использования окна «Ссылка» вам понятен, и проблем с переименованием возникнуть не должно. Используйте такой метод, когда нужно заменить громоздкую ссылку на лаконичную надпись, которая не будет нарушать внешний вид таблицы, но при этом останется функционально полезной.

Вариант 3: Использование макроса

Последний вариант самый необычный и подходит в редких случаях. Чаще всего он применим, когда в таблице уже есть перечень ссылок, находящихся в рамках одного столбца, но при этом они неактивны. Активировать каждую при помощи представленных выше инструкций можно, но это займет много времени. Проще сделать это при помощи специального макроса.

1. Для начала через главное окно перейдите в меню «Параметры».

2. Выберите раздел «Настроить ленту» и поставьте галочку возле основной вкладки «Разработчик». Так вы обеспечите ее отображение в верхней панели программы, что нам сейчас и пригодится.

3. Примените изменения, вернитесь к таблице, перейдите на соответствующую вкладку и запустите оснастку «Visual Basic».

4. Дважды щелкните по файлу книги, чтобы справа отобразилось окно редактирования кода.

5. Вставьте туда оставленный ниже код, заменив значения «a2» на номер ячейки, с которой начинается активация ссылок, а «а» – на букву столбца.

   Sub HyperSsylka()
   Dim cell As Range, ra As Range: Application.ScreenUpdating = False
   Set ra = Range([a2], Range("a" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells
   If Len(cell) Then cell.Hyperlinks.Add cell, cell
   Next cell
   End Sub
   
   Sub HyperSsylkaSelect()
   Dim cell As Range: Application.ScreenUpdating = False
   For Each cell In Selection
   If Len(cell) Then cell.Hyperlinks.Add cell, cell
   Next cell
   End Sub

   Строку для редактирования вы видите на следующем изображении. 

6. Сохраните результат, нажав по соответствующей кнопке на панели сверху или используя сочетание клавиш Ctrl + S.

7. Закройте редактор кода и запустите окно «Макрос». Дважды щелкните по строке с созданным макросом для активации ссылок.

8. Все изменения выполняются автоматически, а далее вам остается только убедиться в том, что вместо обычного текста появились активные ссылки, переход по которым возможен (если в их содержимом действительно находится веб-адрес).

Все перечисленные варианты работают в любых ситуациях, а выбор зависит исключительно от того, с какой задачей столкнулись лично вы. Конечно, для активации одной ссылки не захочется создавать макрос, а вот для массовой обработки он окажется как никогда кстати.

Создание внутренних и внешних ссылок функцией ГИПЕРССЫЛКА

Это простая, но весьма полезная функция, позволяющая создать живую ссылку на:

• любую ячейку на любом листе в книге
• именованный диапазон
• фрагмент умной таблицы
• внешний файл Excel на диске или на сервере в сети
• веб-страницу

Кроме того, эта функция умеет создавать заполненную форму письма email, что сильно помогает при рассылке типовых оповещений.

Синтаксис функции прост:

=ГИПЕРССЫЛКА(Адрес; Текст)

• Текст — это видимый текст гиперссылки в ячейке (обычно выделенный синим цветом и подчеркиванием, как все гиперссылки), по которому щелкает пользователь. Может быть любым, это роли не играет.
• Адрес — место, куда мы хотим сослаться (и это самое интересное).

Давайте рассмотрим все варианты подробнее.

Ссылка на веб-страницу

Это самый простой и очевидный вариант применения нашей функции ГИПЕРССЫЛКА (HYPERLINK). Первым аргументом здесь будет полная ссылка на веб-страницу (URL):

Обратите внимание, что адрес должен быть полным, т.е. обязательно начинаться с протокола (обычно «http»). При щелчке по созданной ссылке заданный сайт откроется в браузере по умолчанию.

Ссылка на ячейку внутри книги

Если нужна ссылка на ячейку или диапазон, находящийся внутри текущей книги, то адрес нужно будет указать следующим образом:

Здесь знак решетки (#) обозначает текущую книгу. Вместо адреса одной ячейки можно, само-собой, указать целый диапазон.

Если имя листа содержит пробелы, то его обязательно заключать в апострофы — иначе ссылка не сработает:

Ссылка на ячейку во внешней книге

Можно легко создать ссылку на ячейку во внешней книге. Тогда в качестве первого аргумента нужен будет полный путь к файлу (с расширением!), имя листа и адрес ячейки:

Аналогично внутренней ссылке, если имя листа содержит пробелы, то его необходимо дополнительно заключить в апострофы.

Ссылка на файл на сервере

Также поддерживаются сетевые ссылки, если файл сохранен, например, на корпоративном сервере в общей папке — в этом случае используется путь в формате UNC, начинающийся с двух обратных дробей:

Ссылка на именованный диапазон

Если вы создали именованный диапазон (например, через Формулы — Диспетчер имен — Создать), то можно спокойно использовать это имя в ссылке:

Если нужно сослаться на именованный диапазон во внешнем файле, то потребуется уточнить его имя и путь к нему, как в предыдущем пункте. Имя листа указывать уже не нужно:

Ссылка на умную таблицу или ее элементы

Если вы знакомы с умными таблицами, то знаете какая это полезная штука. При желании, можно легко создать с помощью функции ГИПЕРССЫЛКА (HYPERLINK) ссылку на любой нужный нам фрагмент умной таблицы или на нее целиком. Для этого в первом аргументе нужно указать имя таблицы (например Таблица1) и кодовое обозначение ее элемента:

Поддерживаются следующие обозначения:

• Таблица1[#Все] — ссылка на всю таблицу, включая заголовки столбцов, данные и строку итогов
• Таблица1[#Данные] или просто Таблица1 — ссылка только на данные (без строки заголовка и итогов)
• Таблица1[#Заголовки] — ссылка только на первую строку таблицы с заголовками столбцов
• Таблица1[#Итоги] — ссылка на строку итогов (если она включена)

Формирование заполненной формы письма email

Это относительно экзотический вариант применения функции гиперссылка, позволяющий создавать заполненный бланк электронного письма:

При щелчке по такой ссылке мы увидим вот такую красоту:

Можно указывать несколько адресатов, получателей обычной и скрытой копий, форматировать текст письма и т.д. Очень удобно для служебных уведомлений и рассылок. Единственное, что нельзя таким образом сделать — прикрепить вложения. Подробнее про все возможности и параметры такого способа рассказано в отдельной статье.

Использование нестандартных символов

Иногда можно сочетать функцию ГИПЕРССЫЛКА с функцией вывода нестандартных знаков СИМВОЛ (CHAR), которую мы уже разбирали. Это позволяет заменить простой текст ссылки на что-то более симпатичное:

Ссылки по теме

• Создание писем функцией ГИПЕРССЫЛКА
• Динамические гиперссылки с помощью функций ПОИСКПОЗ и ГИПЕРССЫЛКА

Мы уже писали о том, что такое гиперссылка и как ее создать, в этой статье. Но бывает нужно получить саму ссылку из ячейки с гиперссылкой в Excel. Если таких ячеек очень много, даже больше 20, на мой взгляд, не стоит пытаться получить ссылку из ячейки вручную. Проще воспользоваться небольшим макросом. Приведу варианты решения такой задачи, все не так сложно:

Бывает, что вы скопировали адреса сайтов из списка в интернете, в большинстве случаев, при таком копировании наименование адреса неравно самому адресу:

Разберемся как вытащить гиперссылку из такой ячейки

Как вывести адрес ссылки для одной ячейки?

Это несложно. Необходимо правой кнопкой мыши нажать на ячейку и выбрать Изменить гиперссылку.

В открывшемся окне вы можете скопировать ссылку из графы Адрес:

Конечно, для каждой ячейки из множества так не накопируешься, поэтому есть удобный способ — создать отдельную функцию для доставания адреса сайта или места на диске.

Если при нажатии на ячейку правой кнопкой мыши в появившемся окне нет кнопок Изменить гиперссылку, Открыть гиперссылку и т.д. Проверьте ту ли ячейку вы выбираете. Если ту, то в такой ячейке нет гиперссылки или она задана неверно.

Как получить ссылку из ячейки с гиперссылкой в Excel

На днях у меня возникла задача: нужно было вытащить ссылки более чем из 10 тыс ячеек. Не делать же такое вручную. Я сначала поискал решение в интернете и нашел отличное вариант. Публикую для своих читателей решение с прекрасного сайта. Для применения способа запишите текст, приведенный ниже в окно модуля VBA (Ctrl+F11). Если не знаете о чем я веду речь, советую прочитать статью про макросы.

Текст создаваемой функции будет следующий:

Function Получить_Ссылку(ByVal rCell As Range) As String
    Dim s As String
    If rCell.Hyperlinks.Count = 0 Then
        If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
           Получить_Ссылку= Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13)
        Else
           Получить_Ссылку = "В ячейке нет гиперссылки!"
        End If
    Else
        s = rCell.Hyperlinks(1).SubAddress
        If s <> "" Then s = "#" & rCell.Hyperlinks(1).SubAddress
        Получить_Ссылку= rCell.Hyperlinks(rCell.Hyperlinks.Count).Address & s
    End If
End Function

Теперь если начать записывать формулу, у вас будет появляться и эта функция тоже.

Конечно, она будет доступна и в меню функций.

Введите адрес ячейки как аргумент этой функции и протяните формулу на нужное количество ячеек. Все!

Удобно, еще раз спасибо Excel-vba.ru за отличный сайт.