Последние записи
- Редактировать содержимое ListBox в Microsoft Office Excel
- Отчистить содержимое через макрос (Microsoft Office Excel)
- Чередующиеся строки столбца перевести в столбцы (Microsoft Office Excel)
- Выбор ЯП для приложений промышленной автоматизации (Delphi, Pascal, Scada)
- Как программно увеличить толщину линий в графике на форме в Microsoft Office Access?
- Рандомное слово в документе Word
- Чем отличается MBR (с физического диска), BootSector (с логического диска)
- Проверка установки офиса
- <fstream> <iomanip> <ios> <iostream>. Краткое описание ввода/вывода
- Русский текст в консоли
7th
Ноя
Как вытащить URL адрес из формулы с гиперссылкой в Excel
Posted by obzor under VBA
Имеется документ с прописанной гиперссылкой на url с фото.
Как сделать чтобы в столбце было не слово «фото» с гиперссылкой на url фото, а просто сам адрес в соседнем столбике?
Работает с выделенным диапазоном. Выделять можно столбец целиком.
Код:
Sub bb()
Const H = "=HYPERLINK("""
Dim c As Range, lh&
lh = Len(H) + 1
For Each c In Intersect(Selection, ActiveSheet.UsedRange).SpecialCells(xlCellTypeFormulas)
If Left$(c.Formula, lh - 1) = H Then _
c.Offset(, 1) = Mid(c.Formula, lh, InStr(lh, c.Formula, """") - lh)
Next
End Sub
Похожие статьи
