Hoe de cellen die door hyperlinks zijn gekoppeld in Excel markeren?

Als er enkele hyperlinks zijn die naar hetzelfde werkblad of werkboek leiden, wil ik nu dat de doelcel van de aangeklikte hyperlink wordt gevuld met een kleur om de gekoppelde cel te laten opvallen. Wanneer een andere hyperlink wordt aangeklikt, gaat de eerste weer terug naar normaal, zoals in onderstaande schermafbeelding te zien is. Is dit mogelijk om op te lossen in Excel?

Markeer de cellen die door hyperlinks zijn gekoppeld met VBA-code

Markeer de cellen die door hyperlinks zijn gekoppeld met VBA-code

Normaal gesproken is er geen directe manier om de doelcellen die door hyperlinks zijn gekoppeld te markeren, maar de volgende VBA-code kan u helpen. Doe het als volgt:

1. Klik met de rechtermuisknop op het tabblad van het werkblad waarop u de doelcellen die door hyperlinks zijn gekoppeld wilt markeren, kies dan Venster Code uit het contextmenu. Kopieer en plak vervolgens de volgende code in het lege modulevenster in het geopende Microsoft Visual Basic for Applications-venster:

VBA-code: Markeer cellen die door hyperlinks zijn gekoppeld:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
    Dim i As Long
    For i = 1 To ThisWorkbook.Sheets.Count
        Sheets(i).UsedRange.Interior.ColorIndex = -4142
    Next
    ActiveSheet.Cells.Interior.ColorIndex = red
    Selection.Cells.Interior.ColorIndex = 6
End Sub

2. Sla daarna de code op en sluit deze. Nu zal, wanneer u op een hyperlinkcel klikt, de gekoppelde doelcel onmiddellijk gemarkeerd worden. Wanneer u op een andere hyperlink klikt, gaat de eerste terug naar normaal.