У нас вы можете посмотреть бесплатно Хитрость в Excel: как получить адрес, скрытый за гиперссылкой. или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
★ Получите пример файла ★ Зарегистрируйтесь в нашей бесплатной программе 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