Замена в прайсе гипперсылки из текса в адрес

Вход

Регистрация

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

= Мир MS Excel/Замена в прайсе гипперсылки из текса в адрес - Мир MS Excel

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена в прайсе гипперсылки из текса в адрес (Формулы/Formulas)

Замена в прайсе гипперсылки из текса в адрес

irina18430

Дата: Среда, 27.02.2019, 12:36 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 16

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

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

Excel 2016

Помогите : есть прайс с гиперссылками в которых нужно заменить гиперссылку с текстом на гиперссылку с адресом. но в прайсе более 1000 позиций. можно ли сделать это одним движением?
пробовала: изменить гиперсссылку - адрес вставит в текст но так приходится на каждую позицию нажимать

К сообщению приложен файл: 0630767.xls (27.0 Kb)

Сообщение отредактировал irina18430 - Среда, 27.02.2019, 12:37

Ответить

Pelena

Дата: Среда, 27.02.2019, 13:26 | Сообщение № 2

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

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

Сообщений: 19179

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

Замечаний: ±

Excel 365 & Mac Excel

Можно макросом
[vba]

Код

Public Sub Hpl()
    Dim Hyp As Hyperlink
    Application.ScreenUpdating = False
    For Each Hyp In Columns("D").Hyperlinks
        Hyp.TextToDisplay = Hyp.Address
    Next Hyp
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 6776078.xls (37.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена в прайсе гипперсылки из текса в адрес (Формулы/Formulas)

Страница 1 из 1
1