1 2 3 4 5 6 7 8 | Для того, чтобы отловить клик мышкой (или нажатие клавиши enter в Excel 2000) по гиперссылке, а также определить адрес ячейки с этой гиперссылкой, можно использовать нижеприведённое событие, которое необходимо разместить в модуле нужного рабочего листаPrivate Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim iCell As Range Set iCell = Target.Range 'Target.Parent MsgBox iCell.AddressEnd SubДанное событие не позволяет отловить переход по гиперссылкам, которые связаны с автофигурой/рисунком, или созданы с помощью стандартной функции рабочего листа =ГИПЕРССЫЛКА(), впрочем, есть обходные решения. |