Скачать или смотреть Хитрость в Excel: как получить адрес, скрытый за гиперссылкой.

★ Получите пример файла ★
Зарегистрируйтесь в нашей бесплатной программе Insiders и получите пример файла:
https://exceloffthegrid.com/insiders-...
Ссылка на файл для этого видео: 0305 Адрес из гиперссылки

★ ПРИСОЕДИНИТЕСЬ К БЕСПЛАТНОМУ КУРСУ ★
Хотите получить бесплатный курс «Современные формулы Excel»? Нажмите здесь:
https://exceloffthegrid.com/modern-ex...

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

Мы кратко рассмотрим несколько ручных методов, прежде чем перейти к автоматизированным решениям с использованием VBA и Office Scripts.

Независимо от того, одна у вас ссылка или сотни, вы увидите наилучший подход для каждой ситуации.

0:00 Введение
0:27 Пример файла + Ручные методы
2:35 Пользовательская функция VBA
5:56 Процедура VBA
9:00 Скрипты Office
13:50 Заключение

★ Примеры кода ★

Пользовательская функция VBA:

Функция GetHyperlink(cell As Range)
GetHyperlink = cell.Hyperlinks(1).Address
Конец функции

_______________________________________

Процедура VBA:

Sub InsertHyperlinks()

Dim sourceRng As Range
Dim targetRng As Range
Dim i As Long
Dim j As Long

On Error Resume Next

Set sourceRng = Application.InputBox(Prompt:="Выберите диапазон ячеек с гиперссылками", Type:=8)
If sourceRng Is Nothing Then Exit Sub

Set targetRng = Application.InputBox(Prompt:="Куда поместить результаты?", Type:=8)
If targetRng Is Nothing Then Exit Sub

For i = 1 To targetRng.Rows.Count
For j = 1 To targetRng.Columns.Count

targetRng.Cells(i, j).Value = sourceRng.Cells(i, j).Hyperlinks(1).Address

Next j
Next i

On Error GoTo 0

End Sub

_______________________________________

Office Script:

К сожалению, YouTube не позволяет использовать все символы, включенные в код, в поле описания.

Загрузите примеры файлов, чтобы получить код.

★ Хотите автоматизировать Excel? Ознакомьтесь с нашей академией обучения ★
https://exceloffthegrid.com/academy

★ Скачайте бесплатно электронную книгу «30 самых полезных макросов Excel VBA» ★
https://exceloffthegrid.com/

★ Где найти Excel Off The Grid ★
Блог: https://exceloffthegrid.com
Twitter:   / exceloffthegrid  

#MsExcel