区分超链接处理程序代码中的超链接

如何引用特定的超链接命名为删除而不是其他具有不同的名称在下面的代码中：

Private Sub Workbook_SheetFollowHyperlink(ByVal sh As Object, ByVal Target As Hyperlink) Range(ActiveCell.Address).Name = "Delete" MsgBox ("Activated - Workbook_SheetFollowHyperlink - before IF-ELSE") If Range(ActiveCell.AddressLocal).Text = "Delete" Then ClearThatCell 'Calling ClearThatCell sub Else MsgBox ("It's regular link - NOT DELETE ") End If End Sub 'This SUB is clearing the selected cell Sub ClearThatCell() ActiveCell.Clear MsgBox ("The cell is cleared!") End Sub Sub Workbook_SheetDeactivate(ByVal sh As Object) LastSheet = sh.Name End Sub 

上面的代码是超链接的处理程序，但是我希望只有在父工作簿中单击“删除”超链接时才能使用此代码。 感谢所有尝试帮助的人！

Answer 1

我猜测哪个工作表的事件启动Workbook_SheetFollowHyperlink事件macros并不重要。

 Private Sub Workbook_SheetFollowHyperlink(ByVal sh As Object, ByVal Target As Hyperlink) If LCase(Target.Name) = "delete" Then ClearThatCell sh, Target.Range 'Calling ClearThatCell sub End If End Sub Sub ClearThatCell(ws As Worksheet, rng As Range) MsgBox "The " & rng.Address(0, 0) & " cell on " & ws.Name & " was clicked." End Sub 

检查超链接对象和超链接成员的文档，看看你可以用超链接做什么。

Answer 2

 Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) If Target.TextToDisplay = "Delete" Then Debug.Print "deleting" 'do stuff End If End Sub