Отследить переход по гиперссылке и определить адрес ячейки с этой гиперссылкой- Visual Basic(Бейсик)

Для того, чтобы отловить клик мышкой (или нажатие клавиши enter в Excel 2000) по гиперссылке, а также определить адрес ячейки с этой гиперссылкой, можно использовать нижеприведённое событие, которое необходимо разместить в модуле нужного рабочего листа

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim iCell As Range
    Set iCell = Target.Range 'Target.Parent
    MsgBox iCell.Address
End Sub
Данное событие не позволяет отловить переход по гиперссылкам, которые связаны с автофигурой/рисунком, или созданы с помощью стандартной функции рабочего листа =ГИПЕРССЫЛКА(), впрочем, есть обходные решения.

Leave a Comment