Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim PT As String
On Error Resume Next
PT = Target.PivotTable.Name
On Error GoTo 0
If PT <> "" Then
If InStr(Target, "www.") Then
If Left(Target, 4) = "http" Then
FollowHyperlink (Target)
Else
FollowHyperlink ("https://" & Target)
End If
End If
End If
End Sub
1条答案
按热度按时间06odsfpq1#
严格地说,答案是否定的,你不能在数据透视表中插入超链接。
然而,可能有一种方法可以做到你想要的,但这取决于你的超链接是什么。它们是链接到网站吗?超链接地址是直接输入单元格中,还是通过右键单击〉插入超链接或=HYPERLINK公式添加的?
下面的代码可以做你想要的:如果用户单击数据透视表中包含“www.”的单元格,Excel将尝试根据已单击的单元格中的文本打开网站。
此代码必须放在ThisWorkbook模块中。