Excelでそのセルにハイパーリンクがあるか否かを判定するユーザー定義関数を作りました。
「範囲.Hyperlinks.Count」で指定した範囲内のハイパーリンクの数を取得できます。
これを使っています。
Function ISHYPERLINK(myrange As Range)
If myrange.Hyperlinks.Count > 0 Then
ISHYPERLINK = True
Else
ISHYPERLINK = False
End If
End Function
If myrange.Hyperlinks.Count > 0 Then
ISHYPERLINK = True
Else
ISHYPERLINK = False
End If
End Function
コメント
[…] 以前、ハイパーリンクの有無を判定するユーザー定義関数を紹介しました。 今回は同じ仕組みを使い、ハイパーリンクがあるセルに網かけをするマクロを作りました。 […]