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

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

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

★ Об этом видео ★
Флажки в Excel не являются чем-то новым, но большинство людей едва начинают осваивать их возможности.

В этом видео я покажу новые методы, которые превращают простые флажки в динамические элементы управления для сложных электронных таблиц.

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

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