Excel中的单元格是否有超链接“特征”？

Question

我正在创建一个宏，并想知道是否有任何方法来检查单元格是否具有有效的超链接？我只想建立一个基本的，如果状态：

If Range("A1").hyperlink = True Then 
// don't perform action 
Else 
// Perform action 
End if 

显然.hyperlink是错误的（？右），反正是有这样做吗？

Answer 1

你可以使用

If Left(Range("A1").Formula, 7) = "=HYPERLINK" Then 
    Debug.print "Link found!" 
End If 

注意上面会，如果你实际使用=Hyperlink()公式工作只。如果您的单元格仅包含带文本的超链接，则使用http://www.google.com，然后使用以下代码：

Sub t() 
Dim rng As Range 
Dim isLink As Boolean 
isLink = False 

Set rng = Range("A1") 

If Left(rng.Formula, 7) = "=HYPERLINK" Then 
    isLink = True 
ElseIf rng.Hyperlinks.Count > 0 Then 
    isLink = True 
End If 

If isLink Then 
    ' If there's a hyperlink, run the code here. 
End If 


End Sub