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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
 
Ответить
СообщениеПомогите : есть прайс с гиперссылками в которых нужно заменить гиперссылку с текстом на гиперссылку с адресом. но в прайсе более 1000 позиций. можно ли сделать это одним движением?
пробовала: изменить гиперсссылку - адрес вставит в текст но так приходится на каждую позицию нажимать

Автор - irina18430
Дата добавления - 27.02.2019 в 12:36
Pelena Дата: Среда, 27.02.2019, 13:26 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14010
Репутация: 3066 ±
Замечаний: ±

Excel 2010, 2016 & 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)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеМожно макросом
[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]

Автор - Pelena
Дата добавления - 27.02.2019 в 13:26
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена в прайсе гипперсылки из текса в адрес (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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