Comment mettre en évidence les cellules liées par des hyperliens dans Excel?

S'il y a des hyperliens liés à la même feuille de calcul ou classeur, maintenant, j'ai besoin que la cellule de destination du lien hypertexte cliqué soit remplie d'une couleur pour faire ressortir la cellule liée, lorsqu'un autre lien hypertexte est cliqué, le premier revient à la normale comme ci-dessous la capture d'écran montrée. Est-ce possible d'être résolu dans Excel?

Mettez en surbrillance les cellules liées par des hyperliens avec du code VBA

Mettez en surbrillance les cellules liées par des hyperliens avec du code VBA

Normalement, il n'existe aucun moyen direct pour nous de mettre en évidence les cellules de destination liées par des hyperliens, mais le code VBA suivant peut vous aider, procédez comme suit:

1. Cliquez avec le bouton droit sur l'onglet de la feuille pour lequel vous souhaitez mettre en évidence les cellules de destination liées par des hyperliens, puis choisissez Voir le code dans le menu contextuel et dans la fenêtre Microsoft Visual Basic pour applications ouverte, copiez et collez le code suivant dans le module vide:

Code VBA: mettez en surbrillance les cellules liées par des hyperliens:

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. Ensuite, enregistrez et fermez ce code, maintenant, lorsque vous cliquez sur une cellule de lien hypertexte, la cellule liée de destination sera mise en surbrillance à la fois, lorsque vous cliquez sur un autre lien hypertexte, le premier revient à la normale.