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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Массово изменить гиперссылки
ExcelDK Дата: Четверг, 14.11.2024, 12:57 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 1 ±
Замечаний: 0% ±

Здравствуйте! Создавал гиперсылки через ПКМ - гиперссылка. В какой то момент все мои гиперсылки из абсолютных превратились в относительные. Благо я макросом извлекал их и хранил в столбце в виде текста, теперь есть столбец с абсолютными адресами в виде текста и столбец с активными но не рабчими. Подскажите, пожалуйста как вернуть абсолютные? Формулы не подходят, в файле их не должно быть.


Сообщение отредактировал ExcelDK - Четверг, 14.11.2024, 13:47
 
Ответить
СообщениеЗдравствуйте! Создавал гиперсылки через ПКМ - гиперссылка. В какой то момент все мои гиперсылки из абсолютных превратились в относительные. Благо я макросом извлекал их и хранил в столбце в виде текста, теперь есть столбец с абсолютными адресами в виде текста и столбец с активными но не рабчими. Подскажите, пожалуйста как вернуть абсолютные? Формулы не подходят, в файле их не должно быть.

Автор - ExcelDK
Дата добавления - 14.11.2024 в 12:57
Nic70y Дата: Четверг, 14.11.2024, 13:20 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010


ЮMoney 41001841029809
 
Ответить
Сообщениеhttp://www.excelworld.ru/forum/10-12099-103588-16-1406198133

Автор - Nic70y
Дата добавления - 14.11.2024 в 13:20
ExcelDK Дата: Четверг, 14.11.2024, 14:43 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 1 ±
Замечаний: 0% ±

Nic70y, спасибо! Но я не понял, извините. Поясню ещё разок, теперь с файлом. Знаю, что задача заурядная, старую гиперссылку убить вставить новую (без формул), но не владею VBA от слова совсем, помогите пожалуйста.
К сообщению приложен файл: 2315275.xlsx (180.3 Kb)


Сообщение отредактировал ExcelDK - Четверг, 14.11.2024, 14:44
 
Ответить
СообщениеNic70y, спасибо! Но я не понял, извините. Поясню ещё разок, теперь с файлом. Знаю, что задача заурядная, старую гиперссылку убить вставить новую (без формул), но не владею VBA от слова совсем, помогите пожалуйста.

Автор - ExcelDK
Дата добавления - 14.11.2024 в 14:43
_Boroda_ Дата: Четверг, 14.11.2024, 14:58 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16728
Репутация: 6524 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Ловите
[vba]
Код
Sub tt()
    nr_ = Cells(Rows.Count, 1).End(3).Row - 1
    ar_ = Cells(2, 1).Resize(nr_, 2).Value
    Application.ScreenUpdating = 0
    For i = 1 To nr_
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), Address:=ar_(i, 2), TextToDisplay:=ar_(i, 1)
    Next i
    With Cells(2, 1).Resize(nr_, 2).Font
        .Name = "Arial"
        .Size = 7
        .Underline = xlUnderlineStyleNone
    End With
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЛовите
[vba]
Код
Sub tt()
    nr_ = Cells(Rows.Count, 1).End(3).Row - 1
    ar_ = Cells(2, 1).Resize(nr_, 2).Value
    Application.ScreenUpdating = 0
    For i = 1 To nr_
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), Address:=ar_(i, 2), TextToDisplay:=ar_(i, 1)
    Next i
    With Cells(2, 1).Resize(nr_, 2).Font
        .Name = "Arial"
        .Size = 7
        .Underline = xlUnderlineStyleNone
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 14.11.2024 в 14:58
ExcelDK Дата: Четверг, 14.11.2024, 16:06 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 1 ±
Замечаний: 0% ±

Благодарю! Спасибо большое!
 
Ответить
СообщениеБлагодарю! Спасибо большое!

Автор - ExcelDK
Дата добавления - 14.11.2024 в 16:06
  • Страница 1 из 1
  • 1
Поиск:

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