Открываем ссылки даблкликом из сводной.

С удивлением обнаружил, что не выкладывал этот полезный макрос. Суть в том, что мы можем засунуть url в одно из полей сводной таблицы. Затем правой кнопкой по ярлыку листа - Просмотреть код. И копирнуть туда текст этого макроса: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Еще больше пользы в канале: https://t.me/TrueExcel Dim pt As PivotTable Dim url As String

' Проверяем, кликнули ли внутри сводной таблицы On Error Resume Next Set pt = Target.PivotTable On Error GoTo 0

If Not pt Is Nothing Then Cancel = True ' Отменяем стандартное действие двойного клика url = Target.Value ' Проверяем, является ли значение URL If InStr(url, "http://") > 0 Or InStr(url, "https://") > 0 Then ThisWorkbook.FollowHyperlink url Else ' MsgBox "Ссылка не найдена в ячейке.", vbExclamation End If End If End Sub