0

ハイパーリンク数式がクリックされたときに起動するワークシート イベント マクロがあります。これは、ハイパーリンク先セルを「強調表示」(セル内部の色を変更) して、エンド ユーザーにより見やすくします。ユーザーが不要になったときに、宛先セルを「強調表示しない」(つまり、セルの内部の色を白に戻す) ように変更するにはどうすればよいですか? つまり、ハイライガーを「オン」にしたのですが、どうすれば「オフ」にできますか? 以下のコードはハイライトを「オン」にします。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ControlPoint As String
Dim RowVar As Integer
Dim Destination As String

If InStr(1, Target.Cells(1, 1).Formula, "HYPERLINK") = 0 Then Exit Sub

ControlPoint = Target.Value

RowVar = Application.WorksheetFunction _
            .Match(ControlPoint, _
            Sheets("Control Point Log").Range("c1:c700"), 0)

Destination = "C" & RowVar

Sheets("Control Point Log").Range(Destination).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = -9.99786370433668E-02
        .PatternTintAndShade = 0
    End With

End Sub
4

1 に答える 1