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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение адреса гиперссылки. Выделение только названия файл - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение адреса гиперссылки. Выделение только названия файл (Формулы/Formulas)
Изменение адреса гиперссылки. Выделение только названия файл
mary202 Дата: Понедельник, 20.02.2017, 14:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Задачу можно решить двумя вариантами, помогите пожалуйста программно
Суть:
файл excel с множеством гиперссылок на документы, находящихся в разных папках, теперь все документы переехали в одну папку. Необходимо в отдельную колонку поместить только название файла без адреса, не соответствует имени гиперссылки или в гиперссылках с разными путями на папки все пути заменить на одну папку.


Сообщение отредактировал mary202 - Понедельник, 20.02.2017, 15:23
 
Ответить
СообщениеЗадачу можно решить двумя вариантами, помогите пожалуйста программно
Суть:
файл excel с множеством гиперссылок на документы, находящихся в разных папках, теперь все документы переехали в одну папку. Необходимо в отдельную колонку поместить только название файла без адреса, не соответствует имени гиперссылки или в гиперссылках с разными путями на папки все пути заменить на одну папку.
Автор - mary202
Дата добавления - 20.02.2017 в 14:41
Nic70y Дата: Понедельник, 20.02.2017, 14:58 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Ctrl+h *\ --> новый_путь\
хотя мож и не правильно, но без файла же

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 20.02.2017, 14:59
 
Ответить
СообщениеCtrl+h *\ --> новый_путь\
хотя мож и не правильно, но без файла же
Автор - Nic70y
Дата добавления - 20.02.2017 в 14:58
mary202 Дата: Понедельник, 20.02.2017, 15:25 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, все пути разные через замену никак.
файл прикладываю. вопрос по столбцу Р
К сообщению приложен файл: 0344664.xlsx (81.2 Kb)
 
Ответить
СообщениеNic70y, все пути разные через замену никак.
файл прикладываю. вопрос по столбцу Р
Автор - mary202
Дата добавления - 20.02.2017 в 15:25
Perfect2You Дата: Понедельник, 20.02.2017, 17:53 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 237
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
Попробуйте так.
[vba]
Код
Sub ZamHyper()
Dim cC As Variant
Dim iL As Long, iC As Long
Const NewPapka As String = "C:"

For Each cC In Intersect(Columns("P:P"), ActiveSheet.UsedRange)
    For iC = 1 To cC.Hyperlinks.Count
        iL = InStrRev(cC.Hyperlinks(iC).Address, "\")
        If iL Then cC.Hyperlinks(iC).Address = NewPapka & Right(cC.Hyperlinks(iC).Address, Len(cC.Hyperlinks(iC).Address) - iL + 1)
    Next iC
Next cC

End Sub
[/vba]
 
Ответить
СообщениеПопробуйте так.
[vba]
Код
Sub ZamHyper()
Dim cC As Variant
Dim iL As Long, iC As Long
Const NewPapka As String = "C:"

For Each cC In Intersect(Columns("P:P"), ActiveSheet.UsedRange)
    For iC = 1 To cC.Hyperlinks.Count
        iL = InStrRev(cC.Hyperlinks(iC).Address, "\")
        If iL Then cC.Hyperlinks(iC).Address = NewPapka & Right(cC.Hyperlinks(iC).Address, Len(cC.Hyperlinks(iC).Address) - iL + 1)
    Next iC
Next cC

End Sub
[/vba]
Автор - Perfect2You
Дата добавления - 20.02.2017 в 17:53
mary202 Дата: Вторник, 21.02.2017, 13:12 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Perfect2You, спасибо большое! заменила с С на нужный диск и все отлично работает!
 
Ответить
СообщениеPerfect2You, спасибо большое! заменила с С на нужный диск и все отлично работает!
Автор - mary202
Дата добавления - 21.02.2017 в 13:12
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение адреса гиперссылки. Выделение только названия файл (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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