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