FollowHyperlink事件不工作

FollowHyperlink事件當我和超鏈接功能使用不火：FollowHyperlink事件不工作

=IF(C8505=0;IF(F8505=0;"";IF(H8505=0;"Nothing";IF(G8505="Memo";HYPERLINK("\\scan2014\memo\"&H8505&".pdf";" Link ");HYPERLINK("\\scan2014\"&H8505&".pdf";"Link"))));IF(H8505=0;VLOOKUP("*"&Inbox!$C8505&"*";Sheet1!A:C;1;FALSE);IF(G8505="Memo";HYPERLINK("\\scan2014\memo\"&H8505&".pdf";VLOOKUP("*"&Inbox!$C8505&"*";Sheet1!A:C;1;FALSE));HYPERLINK("\\scan2014\"&H8505&".pdf";VLOOKUP("*"&Inbox!$C8505&"*";Sheet1!A:C;1;FALSE)))))

我的代碼，我想火是：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
LastR = Sheets("Track").Range("a10000").End(xlUp).Row + 1 

With Worksheets("Track") 
.Hyperlinks.Add Anchor:=Sheets("Track").Range("a" & LastR), _ 
Address:="", _ 
SubAddress:="inbox!" & Target.Parent.Address, _ 
ScreenTip:=Target.Parent.Address 
End With 

End Sub

來源

2014-03-01 SQB

看到這個鏈接：[Worksheet_FollowHyperlink和MsgBox不工作]（http://stackoverflow.com/questions/9828260/worksheet-followhyperlink-and-msgbox-not-working-in-excel-2010） –

這是由設計。 HYPERLINK（）函數不會引發事件，插入超鏈接會引發事件。如果您需要舉辦活動，請修改公式以跳轉至工作表中的單元格轉儲，如Z100。

在Z100放置一個插入超鏈接到達最終目的地。

這種方式可以同時獲得公式和宏功能的靈活性。

來源

2014-03-01 13:35:54

FollowHyperlink事件不工作

回答

相關問題