ハイパーリンクがあるセルに網かけをするマクロ

Pocket

以前、ハイパーリンクの有無を判定するユーザー定義関数を紹介しました。
今回は同じ仕組みを使い、ハイパーリンクがあるセルに網かけをするマクロを作りました。

色は「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

[ 2021年2月5日 | カテゴリー: Excel | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報