Как превратить столбец URL в гиперссылки, чтобы пользователи могли щелкнуть URL-адрес в ячейке и открыть его в браузере?
Я вставил 100 URL, и каждый вошел в свою собственную камеру. Когда я дважды щелкаю в ячейке и затем оставляю ее, Excel превращает текст в синий и делает из него ссылку. Я не хочу дважды щелкать сто раз, но все же хочу отформатировать все ячейки в ссылки.
Отсюда: конвертировать URL в интерактивные ссылки в Excel
Public Sub Convert_To_Hyperlinks()
Dim Cell As Range
For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
If Cell <> "" Then
ActiveSheet.Hyperlinks.Add Cell, Cell.Value
End If
Next
End Sub
Создание макроса
- Откройте документ Excel
- Откройте редактор макросов, нажав ALT+F11.
- В меню «Инструменты» щелкните левой кнопкой мыши «Вид» и выберите «Обозреватель проектов».
- Найдите папку с названием «Модули», щелкните ее правой кнопкой мыши, выберите «Вставить», затем выберите «Модуль».
- Вставьте код в выбранный вами модуль проекта.
- Нажмите клавиши ALT+F11, чтобы вернуться в рабочую книгу Excel (или щелкните ее значок на панели задач Windows).
Запустить макрос
- Чтобы выполнить макрос, выберите не кликаемые текстовые ссылки, которые вы хотите преобразовать в кликабельные гиперссылки.
- Нажмите ALT+F8, чтобы открыть окно выбора макроса, и нажмите на макрос, который вы только что создали.
- Ваши ссылки теперь все кликабельны! Экономия времени и усталости при вводе данных :)
В Excel для создания гиперссылки используется функция =Hyperlink("http://www.techonthenet.com","Tech on the Net") где "http://www.techonthenet.com" - это интернет-адрес, а "Tech on the Net" - это заголовок, который отображается в ячейке Excel.
Таким образом, когда вы пишете URL-адреса в файл Excel, просто оберните эту функцию вокруг каждого URL-адреса. Если вы не хотите придумывать динамическое имя, вы всегда можете указать его в качестве имени.
Если вы не вставляете значения программно, то этот сайт упоминает, используя функцию рабочего листа HYPERLINK. Хотя еще лучшая ссылка - это то, что поможет вам добавить макрос в Excel, и они предоставят код для макроса. Таким образом, когда после добавления этого макроса вы можете выбрать столбец URL-адресов и запустить макрос, и он преобразует весь столбец в гиперссылки
Трудно поверить, что не существует необязательного параметра, позволяющего Excel рассматривать URL-адреса как живые ссылки. Ведь Outlook автоматически делает это. Но опять же - это продукт Microsoft, вздох.
У меня есть колонка ссылок в Excel. Я выбрал столбец и вставил его в электронное письмо самому себе. Когда я получил письмо (колонка Excel все еще выбрана), я вставил живые ссылки обратно в колонку. Готово!
Кроме того, вы можете сохранить письмо как черновик и снова открыть сохраненный черновик. Там нет необходимости на самом деле отправлять и получать электронную почту.
Самый простой способ сделать это - просто сохранить файл Excel в виде HTML-страницы. Затем снова откройте HTML-страницу в Excel, и ссылки станут кликабельными.
ОБНОВИТЬ
Иногда это не работает. Но это, кажется, всегда работает. Щелкните правой кнопкой мыши выбранные столбцы URL находятся в. Затем нажмите "Гиперссылка", затем нажмите "Поместить в этот документ"
Посмотрите, как преобразовать текст URL в интерактивную гиперссылку в Excel для простых инструкций.
В Excel щелкните столбец, который хотите преобразовать в интерактивные гиперссылки.
Следуйте первому варианту: преобразовать текст URL в кликабельную гиперссылку с кодом VBA
Выполните действия и после нажатия клавиши F5 закройте приложение Microsoft Visual Basic, чтобы вернуться к файлу Excel. Ваши URL теперь будут кликабельными!
Ответ Киры указывает вам здесь, что, по сути, дает вам это, и было хорошим руководством. Позволяет делать большой выбор по вашему желанию и конвертировать их все.
Sub addHypers()
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell <> "" Then
ActiveSheet.Hyperlinks.Add cell, "http://" + cell.Value
End If
Next cell
End Sub
Sub removeHypers()
Intersect(Selection, ActiveSheet.UsedRange).Hyperlinks.Delete
End Sub
Если вы не хотите создавать макрос и если вы не возражаете против дополнительного столбца, просто создайте новый столбец рядом с вашим столбцом URL-адресов.
В новом столбце введите в формуле = HYPERLINK(A1) (заменив A1 на любую интересующую вас ячейку). Затем скопируйте формулу вниз остальные записи.