Гиперссылку перевести в текст

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Гиперссылку перевести в текст (Формулы/Formulas)

Tavlar

Дата: Четверг, 17.11.2022, 09:15 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Здравствуйте. Подскажите, пожалуйста. Есть файл в котором в ячейках вставлены ссылки на картинки на внешних ресурсах и в ячейке отображается слово фото. Как сделать так, чтобы в ячейках отображался адрес фотографии в виде текста?

К сообщению приложен файл: 2509448.xlsx (9.7 Kb)

Ответить

Nic70y

Дата: Четверг, 17.11.2022, 09:32 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9185

Репутация: 2448 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub u_714()
    Application.ScreenUpdating = False
    a = Cells(Rows.Count, "a").End(xlUp).Row
    For Each c In Range("a1:a" & a)
        c.Offset(0, 2) = c.Hyperlinks.Item(1).Address
    Next
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 2509448.xlsm (16.9 Kb)

ЮMoney 41001841029809

Ответить

_Boroda_

Дата: Четверг, 17.11.2022, 09:42 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16956

Репутация: 6631 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Выделите ячейки с ГС и запустите такой макрос
[vba]

Код

Sub tt()
    Dim d_ As Range
    On Error Resume Next
    For Each d_ In Selection
        With d_.Hyperlinks(1)
            .TextToDisplay = .Address
        End With
    Next d_
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995