ハイパーリンクがあるセルに網かけをするマクロ
以前、ハイパーリンクの有無を判定するユーザー定義関数を紹介しました。
今回は同じ仕組みを使い、ハイパーリンクがあるセルに網かけをするマクロを作りました。
色は「vbYellow」の所で設定します。
カラー定数 | Microsoft Docs
Sub 選択範囲のハイパーリンクがあるセルに網かけ()
Dim c As Object
For Each c In Selection
If c.Hyperlinks.Count > 0 Then
With c.Interior
.Pattern = xlSolid
.Color = vbYellow
End With
Else
With c.Interior
.Pattern = xlNone
End With
End If
Next c
End Sub
Dim c As Object
For Each c In Selection
If c.Hyperlinks.Count > 0 Then
With c.Interior
.Pattern = xlSolid
.Color = vbYellow
End With
Else
With c.Interior
.Pattern = xlNone
End With
End If
Next c
End Sub
[ 2021年2月5日 | カテゴリー: Excel | タグ: VBA , ハイパーリンク ]
« Python+SQLite入門 | Pandas入門 »
コメントを残す