我该如何做:在第二部分中设置带有URL的超链接:
=HYPERLINK("","http://example.com")
在VBA编辑器中创建一个模块:
Declare Function GetKeyState Lib "User32" (ByVal vKey As Integer) As Integer
Global Const CTRL_KEY = 17
然后是工作表代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Error1
If Left(Target.Formula, 10) = "=HYPERLINK" Then
If GetKeyState(CTRL_KEY) < 0 Then 'Check if CTRL is held in
Application.EnableEvents = False
ThisWorkbook.FollowHyperlink Mid(Target.Formula, 16, Len(Target.Formula) - 17)
Application.EnableEvents = True
End If
End If
Exit Sub
Error1:
Application.EnableEvents = True
End Sub
要使其正常工作,请单击该单元格,然后按CTRL +单击该单元格以访问链接。您可以执行其他操作,例如在HYPERLINK的第二部分中包含文本,然后在代码中添加一个SELECT CASE,这将基于文本打开一个url。其他按键也可用:
Global Const SHIFT_KEY = 16
Global Const ALT_KEY = 18
http://msdn.microsoft.com/zh-CN/library/aa243025(v=vs.60).aspx