Note: The other languages of the website are Google-translated. Back to English

Как изменить сразу несколько путей гиперссылок в Excel?

Для некоторых целей вы можете создать несколько гиперссылок для своих данных на листе, и все гиперссылки связаны с одним и тем же путем или адресом файла, но теперь вам нужно заменить этот путь гиперссылки на другой адрес за раз. Изменение пути гиперссылок по отдельности может тратить много времени, есть ли быстрый способ решить эту проблему?

Одновременное изменение нескольких путей гиперссылок на листе с помощью кода VBA

Одновременное изменение нескольких путей гиперссылок на листе / книге / нескольких листах / выделении с помощью удивительной функции


Одновременное изменение нескольких путей гиперссылок на листе с помощью кода VBA

Предположим, у вас есть список данных с теми же гиперссылками, что и на следующем снимке экрана, и с кодом VBA, вы можете быстро заменить старый путь к файлу или адрес на листе новым.

1. Удерживая нажатой ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Окно модуля.

Код VBA: изменить сразу несколько путей гиперссылок

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 ключ для запуска этого кода и окно подсказки, позволяющее ввести старый адрес гиперссылки в Старый текст коробка. Смотрите скриншот:

4. Нажмите OK, и появится другое окно подсказки, напоминающее вам о вводе нового адреса гиперссылки, который вы хотите использовать.

5, Затем нажмите OK, все те же старые адреса гиперссылок были сразу заменены на новые. Смотрите скриншоты:


Одновременное изменение нескольких путей гиперссылок на листе / книге / нескольких листах / выделении с помощью удивительной функции

Если вы хотите заменить пути гиперссылок из выделенного фрагмента, нескольких листов, текущей рабочей книги или нескольких книг, как вы могли бы это сделать? С участием Найти и заменить особенность Kutools for Excel, вы быстро справитесь с этой задачей.

Примечание:Чтобы применить это Найти и заменить утилиту, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Нажмите Кутулс > Навигация, см. снимок экрана:

2. В открытом Навигация панели, нажмите Найти и заменить в Найти и заменить панели, нажмите Замените tab, а затем выполните следующие операции:

  • Введите текст старой гиперссылки, которую хотите найти, в Найти то, что текстовое поле, а затем введите новый текст гиперссылки, который вы хотите заменить, в поле Заменить текстовое окно;
  • Укажите область, в которой вы хотите найти, и замените путь гиперссылки из В раскрывающийся список;
  • Затем выберите «Гиперссылки» в раскрывающемся списке «Искать в»;
  • Наконец, нажмите Найти все Кнопка, все соответствующие ячейки, содержащие конкретный текст гиперссылки, перечислены в нижнем списке.

3, Затем нажмите Заменить все кнопки старые пути гиперссылок были сразу изменены на новые, см. снимок экрана:

Нажмите, чтобы загрузить Kutools for Excel в бесплатную пробную версию!


Больше относительных статей:

  • Извлечение фактических адресов из гиперссылок
  • Предположим, у вас есть диапазон ячеек, которые содержат гиперссылки, и теперь вам нужно увидеть реальное назначение гиперссылок и извлечь их из гиперссылок, как показано на следующем снимке экрана. Есть ли простые способы быстро решить эту проблему?
  • Преобразование URL-адресов изображений в реальные изображения в Excel
  • Если у вас есть список URL-адресов изображений в столбце A, и теперь вы хотите загрузить соответствующие изображения из URL-адресов и отобразить их в соседнем столбце B, как показано на скриншоте слева. Как в Excel быстро и легко извлечь реальные изображения из URL-адресов изображений?
  • Преобразование текста URL в интерактивную гиперссылку в Excel
  • Предположим, у вас есть несколько URL-адресов на вашем листе, но они не связаны, и теперь вам нужно преобразовать все несвязанные URL-адреса в интерактивные гиперссылки, как показано на следующих снимках экрана. Конечно, вы можете дважды щелкнуть их один за другим, чтобы сделать их интерактивными, но это займет много времени, если URL-адресов много. Как в Excel можно автоматически преобразовать несколько несвязанных URL-адресов в интерактивные гиперссылки?
  • Откройте определенную страницу PDF-документа из гиперссылки Excel
  • Когда вы связываете ячейку с файлом PDF, обычно вы переходите на первую страницу файла PDF, когда щелкаете, чтобы открыть гиперссылку. Если вам нужно напрямую перейти к определенной странице PDF-файла, щелкнув гиперссылку, эта статья может оказать вам услугу.

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (45)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Удивительно, что это сэкономило мне много усилий.
Этот комментарий был сведен к минимуму модератором на сайте
люблю это, вы экономите мне массу работы.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, не могли бы вы дать мне код VB, если мне нужно изменить ссылки в Powerpoint вместо Excel? Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Привет, кажется, это отлично работает, но некоторые символы (например, "\" и "%"). В моем случае у меня есть адреса гиперссылок, например [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] и Мне нужно получить начало [../../../../../../Application%20Data/Microsoft/] подальше от адреса из сотен ссылок. Начало ссылок одинаковое, а вот концы разные. У вас есть хороший совет?
Этот комментарий был сведен к минимуму модератором на сайте
спасибо!!!! :lol: очень помогло.
Этот комментарий был сведен к минимуму модератором на сайте
Как бы я изменил это, чтобы обновить гиперссылки, которые ссылаются на ссылки в книге, а не на внешние веб-адреса?
Этот комментарий был сведен к минимуму модератором на сайте
Просто нужно то же самое, попробуйте эти изменения: Sub ReplaceHyperlinks() 'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String, xNew As String xTitleId = "CambiaLink" 'Set Ws = Application.ActiveSheet Set Wb = Application.ActiveWorkbook xOld = Application.InputBox("Старый текст:", xTitleId, "", Type:=2) xNew = Application.InputBox("Новый текст:", xTitleId, "", Type:=2) Для каждого Ws В Wb.Worksheets 'Application.ScreenUpdating = False для каждой ссылки xHyperlink В Ws.Hyperlinks Debug.Print ("voy" & xHyperlink.SubAddress) xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew) Next Next Application.ScreenUpdating = True Конец сабвуфера
Этот комментарий был сведен к минимуму модератором на сайте
Маурисио: Ты прекрасен! Спасибо! Кроме того, для другого отчета мне нужно просто обновить ссылки только на указанных вкладках, возможно ли это?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо спасибо спасибо!!!!!!!! вы спасли меня на 2 дня работы здесь
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ одновременно изменить несколько гиперссылок «текст для отображения»?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за блестящую часть программы. Работает КАК ШАРМ..."WLC"
Этот комментарий был сведен к минимуму модератором на сайте
Великолепно! Большое спасибо!!!!
Этот комментарий был сведен к минимуму модератором на сайте
Эй, ребята, что мне не хватает, я получаю «Ошибка компиляции - переменная не определена» для XTitleId в Excel 2013 :cry:
Этот комментарий был сведен к минимуму модератором на сайте
Не беспокойтесь, я понял это и установил как строку
Этот комментарий был сведен к минимуму модератором на сайте
это очень помогло большое спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Это самая полезная статья по Excel, которую я когда-либо встречал. У меня было много проблем, когда гиперссылки в файле повреждались, или я хотел переместить расположение некоторых файлов с гиперссылками, и обновление всегда было серьезной проблемой. У моего программиста Excel не было простого решения. Это работает безупречно. Я очень благодарен - спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Ух ты! Это сэкономило мне ТАК МНОГО ВРЕМЕНИ. Ты восхитителен. Спасибо, что поделился!
Этот комментарий был сведен к минимуму модератором на сайте
Это блестяще. Вы сэкономили мне СТОЛЬКО ВРЕМЕНИ. сегодня. Спасибо, что поделился!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за разработку этого! У меня был пользователь, который создал кучу гиперссылок на нескольких вкладках (не менее нескольких сотен), и каким-то образом у него был путь к его папке AppData\Roaming на его диске c, а не к сетевой папке. Я смог использовать ваш скрипт VBA, чтобы удалить эту часть кода ссылки, и теперь все работает. Мы сэкономили нам, вероятно, неделю обновлений, и мне потребовалось менее 2 минут, чтобы внедрить!
Этот комментарий был сведен к минимуму модератором на сайте
Удивительно. Работал как шарм в Excel 2013, никаких настроек не требовалось, в отличие от аналогичных исправлений, которые я видел для этой проблемы. СПАСИБО оооочень большое. Сэкономил огромную головную боль и часы времени.
Этот комментарий был сведен к минимуму модератором на сайте
Я попытался запустить его по гиперссылкам, содержащим ссылки на другие папки, но это не сработало. Как бы я изменил это, чтобы обновить гиперссылки, которые ссылаются на папки на жестком диске, а не на внешние веб-адреса?
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL