excelのセルにハイパーリンク「特性」がありますか？

Question

マクロを作成していて、セルに有効なハイパーリンクがあるかどうかを確認する方法があるかどうかを知りたいですか？

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

明らか.hyperlinkが間違っている（右？）、これを行うにはとにかくがある：私は状態ならば、単に基本を設定したいですか？

Answer 1

あなたが実際に=Hyperlink()式を使用している場合は、上記ののみに動作します

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

注意を使用することができます。あなただけのテキスト、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