Необходимость удаления от гиперссылок в документе может быть вызвана рядом причин. В качестве основных отметим:
- предотвращение случайных нажатий;
- удаление устаревшей информации;
- оптимизация книги Excel.
Безусловно удалить пару ссылок в документе не составит труда. Но если таких ссылок ни одна и ни две...
О том, как автоматизировать данный процесс и ни утруждать себя рутинной работой рассмотрим сегодня в обзоре.
📢 Файл с примером размещен в конце статьи 🔽
Рассмотренный макрос обеспечит эффективное удаление гиперссылок и восстановление форматирования текста в выбранном диапазоне, предоставляя пользователю удобный и автоматизированный инструмент.
▶️ Пример исходных данных
Для целей данного примера создадим на листе ряд гиперссылок которые требуется удалить:
▶️ Удаление гиперссылок из выбранного пользователем диапазона (пример макроса)
Для реализации поставленной задачи применим макрос:
▶️ Краткое описание
🔘 Запрос пользовательского выбора:
При выполнении макроса пользователь должен выбрать диапазон ячеек, содержащих гиперссылки, с которыми будет произведена обработка:
🔘 Отключение отображения изменений на экране:
Операция Application.ScreenUpdating = False используется для временного отключения обновления экрана, что улучшает производительность и предотвращает мерцание экрана при выполнении макроса.
🔘 Определение используемого диапазона в активном листе:
Set my_URange = Application.ActiveSheet.UsedRange определяет используемый диапазон на активном листе.
🔘 Проход по каждой гиперссылке в выбранном диапазоне: For Each my_Link In my_WorkRange.Hyperlinks запускает цикл для каждой гиперссылки в выбранном пользователем диапазоне.
🔘 Обработка каждой гиперссылки:
- создается временный диапазон my_TempRange для копирования и восстановления форматирования.
- содержимое гиперссылки копируется во временный диапазон.
- гиперссылка удаляется из исходного диапазона.
- изменяется размер временного диапазона и копируется форматирование обратно в исходный диапазон.
- очищается временный диапазон, а форматирование текста сбрасывается на предустановленные значения.
🔘 Включение отображения изменений на экране: Application.ScreenUpdating = True включает обновление экрана после завершения макроса.
▶️ Тестируем результат
Напомним, что для вызова макроса вы можете использовать один из наиболее приемлемых способов:
В результате все гиперссылки с указанного диапазона удалены! 🤗
🙌 Оставайся с нами на связи и узнавай больше о других методах и приемах работы в Excel:
✅ СКАЧАТЬ ПРИМЕР 🔽
