Макрос для копирования текста гиперссылки в ее адрес

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

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

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

Deadbeat

Дата: Четверг, 10.08.2017, 12:14 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2010

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

Ответить

_Boroda_

Дата: Четверг, 10.08.2017, 12:27 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 16674

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

Замечаний: 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

Ответить

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