Подсчёт нажатий на гиперссылку

[Chuikov]

Добрый день, товарищи!
Подскажите, можно ли вести учёт количества нажатий на гиперссылку, в соседней ячейки, что-бы можно было отследить, какой документ открывается чаще?

[Aleksandr H.]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Hyperlinks.Count = 1 Then
        Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + 1
    End If
End Sub

[Chuikov]

Сообщение от Aleksandr H.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Hyperlinks.Count = 1 Then
        Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + 1
    End If
End Sub

Спасибо за труд! В макросах я лох.
Возможно ли это решить с помощью функций?

[Казанский]

Aleksandr H.
Есть же событие перехода по гиперссылке! А так ячейка будет увеличиваться и при выборе ячейки с гиперссылкой стрелками (для редактирования, например).

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  With Target.Range.Offset(, 1)
    .Value = .Value + 1
  End With
End Sub

Chuikov
Без VBA никак. Да и несложно это: копируете код, правый клик по ярлычку листа - Исходный текст, Ctrl+V.

[Aleksandr H.]

Сообщение от Казанский

Aleksandr H.
Есть же событие перехода по гиперссылке!

Есть, только я не нашел его в гугле

[Chuikov]

Благодарю вас!