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

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

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使用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