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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для копирования текста гиперссылки в ее адрес - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос для копирования текста гиперссылки в ее адрес (Формулы/Formulas)
Макрос для копирования текста гиперссылки в ее адрес
Deadbeat Дата: Четверг, 10.08.2017, 12:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Возникла проблема с гиперссылками. Есть документ excel 2010 расшареный на компьютере в сети, в нем таблица данными и ссылками на файлы которые лежат на этом же компе, но в другой папке (pdf, jpg). До вчерашнего дня все работало нормально, а сегодня при открытии этого файла некоторые гиперссылки перестали работать. В документе нерабочие ссылки отображаются как пути вида ..\\короткий_путь_к_файлу, а при наведении курсора показывается путь файлу с таблицей вместо пути к pdf-файлу. В свойствах нерабочих гиперссылок пропали адреса ссылок. Проблема решается ручным копированием поля текст ссылки в поле адрес ссылки. Штука в том что нерабочих ссылок около 500. Подскажите макрос который для каждой ссылки копировал бы её текст в адрес.
 
Ответить
СообщениеЗдравствуйте! Возникла проблема с гиперссылками. Есть документ excel 2010 расшареный на компьютере в сети, в нем таблица данными и ссылками на файлы которые лежат на этом же компе, но в другой папке (pdf, jpg). До вчерашнего дня все работало нормально, а сегодня при открытии этого файла некоторые гиперссылки перестали работать. В документе нерабочие ссылки отображаются как пути вида ..\\короткий_путь_к_файлу, а при наведении курсора показывается путь файлу с таблицей вместо пути к pdf-файлу. В свойствах нерабочих гиперссылок пропали адреса ссылок. Проблема решается ручным копированием поля текст ссылки в поле адрес ссылки. Штука в том что нерабочих ссылок около 500. Подскажите макрос который для каждой ссылки копировал бы её текст в адрес.

Автор - Deadbeat
Дата добавления - 10.08.2017 в 12:14
_Boroda_ Дата: Четверг, 10.08.2017, 12:27 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 10992
Репутация: 4564 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub tt()
    For Each gsi_ In ActiveSheet.Hyperlinks
        gsi_.Address = gsi_.TextToDisplay
    Next gsi_
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub tt()
    For Each gsi_ In ActiveSheet.Hyperlinks
        gsi_.Address = gsi_.TextToDisplay
    Next gsi_
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 10.08.2017 в 12:27
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос для копирования текста гиперссылки в ее адрес (Формулы/Formulas)
Страница 1 из 11
Поиск:

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