Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Гиперссылку перевести в текст - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Гиперссылку перевести в текст (Формулы/Formulas)
Гиперссылку перевести в текст
Tavlar Дата: Четверг, 17.11.2022, 09:15 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте. Подскажите, пожалуйста. Есть файл в котором в ячейках вставлены ссылки на картинки на внешних ресурсах и в ячейке отображается слово фото. Как сделать так, чтобы в ячейках отображался адрес фотографии в виде текста?
К сообщению приложен файл: 2509448.xlsx(9.7 Kb)
 
Ответить
СообщениеЗдравствуйте. Подскажите, пожалуйста. Есть файл в котором в ячейках вставлены ссылки на картинки на внешних ресурсах и в ячейке отображается слово фото. Как сделать так, чтобы в ячейках отображался адрес фотографии в виде текста?

Автор - Tavlar
Дата добавления - 17.11.2022 в 09:15
Nic70y Дата: Четверг, 17.11.2022, 09:32 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7875
Репутация: 1894 ±
Замечаний: 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
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 17.11.2022 в 09:32
_Boroda_ Дата: Четверг, 17.11.2022, 09:42 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16499
Репутация: 6422 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеВыделите ячейки с ГС и запустите такой макрос
[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_
Дата добавления - 17.11.2022 в 09:42
Tavlar Дата: Четверг, 17.11.2022, 09:49 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, _Boroda_, благодарю, оба варианта работаю
 
Ответить
СообщениеNic70y, _Boroda_, благодарю, оба варианта работаю

Автор - Tavlar
Дата добавления - 17.11.2022 в 09:49
andreimurysev Дата: Четверг, 17.11.2022, 09:59 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 5 ±
Замечаний: 0% ±

Tavlar, или так
[vba]
Код
Function AddressHyper(xlRange As Range)

    Application.Volatile True
    AddressHyper = xlRange.Hyperlinks.Item(1).Address

End Function
[/vba]
К сообщению приложен файл: 1393452.xlsm(15.4 Kb)


Сообщение отредактировал andreimurysev - Четверг, 17.11.2022, 10:00
 
Ответить
СообщениеTavlar, или так
[vba]
Код
Function AddressHyper(xlRange As Range)

    Application.Volatile True
    AddressHyper = xlRange.Hyperlinks.Item(1).Address

End Function
[/vba]

Автор - andreimurysev
Дата добавления - 17.11.2022 в 09:59
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Гиперссылку перевести в текст (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!