📌 Сводные таблицы в Excel: как создать активные гиперссылки. Пример решения

2 минуты

187 прочтений

31 октября 2023

Всем привет! 👋

Сталкивались ли вы с тем, что создание сводной таблицы в Excel делает ваши гиперссылки неактивными?

Вроде бы все готово к удобной навигации, но при клике на ссылки в таблице ничего не происходит.

Это может быть довольно раздражающе, верно? 😉

Пример, того как можно организовать данные см. в приложенном файле

По умолчанию гиперссылки в сводных таблицах не работают! 🤔

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

⏩ Предварительные настройки

Прежде всего, убедитесь, что ваши данные в таблице организованы правильно.

В нашем примере мы использовали сводную таблицу и срезы для удобства навигации:

📝 Прим. автора: В столбце В размещены ссылки, указывающие на соответствующие веб-страницы.

⏩ Пишем код

Для реализации поставленной задачи на событие Worksheet.SelectionChange назначим макрос, который обеспечит быстрый и удобный доступ к важной информации без лишних усилий.

🔷 Быстрый поиск решения. Путеводитель по Excel

Excel на ИЗИ: ✅ Приемы эффективной работы в Microsoft Excel 7 июня 2022

🔶 Способ 1:

Данный код обрабатывает выбор ячейки на листе Excel. Если выбранная ячейка находится в столбце B, начиная с B4 и до последней заполненной строки, он открывает веб-ссылку из этой ячейки в новом окне браузера.

⚙️ Краткое описание:

проверяем, выделена ли только одна ячейка. Если выбрано более одной ячейки, код завершает выполнение и ничего не происходит.
проверяем, находится ли выбранная ячейка в столбце B, начиная с B4 и до конца заполненных строк на листе.
On Error Resume Next используем, чтобы игнорировать любые ошибки, которые могут возникнуть при выполнении следующей строки кода.
строка Application.ActiveWorkbook.FollowHyperlink Address:=CStr(Target.Value), NewWindow:=True открывает веб-ссылку, содержащуюся в выбранной ячейке. Target.Value предоставляет значение выбранной ячейки (в данном случае, веб-ссылку), и FollowHyperlink используется для открытия этой ссылки. NewWindow:=True указывает открыть ссылку в новом окне браузера.

🔔 Что важно: код применим только к гиперссылкам на веб-страницы с префиксом "http" и "https", например:

🔶 Способ 2:

Если непосредственное наличие столбца, указывающего ссылку вас, расстраивает, то его можно скрыть:

Но, в этом случае, придется несколько изменить код:

⚙️ Как это работает:

В этой версии, при клике на ячейку в столбце A, Excel берет значение из соответствующей ячейки в столбце B (справа от кликнутой ячейки в столбце A) и использует его в качестве адреса для гиперссылки.