用於將單元格中的超鏈接公式鏈接到宏的 Excel VBA

Question

我在 B 列中有很長的超鏈接公式列表。下面是單元格內公式的示例。 我想要實現的是，當我單擊整個 B 列的任何行中的超鏈接時，它也會運行一個單獨的 VBA 宏。

=HYPERLINK("#SHEET1!D"&ROW(D2066),D2066)

謝謝你。

Answer 1

有一個Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)事件，但我認為它不適用於超鏈接公式。 在這種情況下可能會有一個 selection_change 事件。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Target.Column = 2 Then
        If Left(Target.Formula, 10) = "=HYPERLINK" Then
            MsgBox "My Code here"
        End If
    End If
End Sub

這將進入工作表模塊。

---