Comment mettre en évidence toutes les cellules référencées par une formule dans Excel?
Cet article parle de mettre en évidence toutes les cellules référencées par une formule dans Excel. Veuillez suivre les deux méthodes ci-dessous pour le faire.
Mettez en surbrillance toutes les cellules référencées par une formule avec la touche de raccourci
Mettez en surbrillance toutes les cellules référencées par une formule avec le code VBA
Mettez en surbrillance toutes les cellules référencées par une formule avec la touche de raccourci
Cette section vous recommandera d'utiliser la touche de raccourci pour sélectionner toutes les cellules référencées par une formule, puis de leur remplir manuellement la couleur.
1. Supposons que E1 est une cellule de formule et que vous devez mettre en surbrillance toutes les cellules qui y ont été référencées. Veuillez sélectionner la cellule de formule E1, puis appuyez sur Ctrl + [ (le crochet carré ouvert) simultanément.
2. Maintenant que les cellules référencées par cette formule sont sélectionnées, veuillez spécifier une couleur de remplissage pour les mettre en évidence. Voir la capture d'écran:
Mettez en surbrillance toutes les cellules référencées par une formule avec le code VBA
Vous pouvez également exécuter du code VBA pour mettre en évidence toutes les cellules référencées par une formule dans Excel.
1. presse autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.
Code VBA: mettez en surbrillance toutes les cellules référencées par une formule dans Excel
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub3. appuie sur le F5 clé pour exécuter le code. Dans le popping Kutools for Excel boîte de dialogue, veuillez sélectionner une cellule de formule ou plusieurs cellules de formule sur lesquelles vous devez mettre en évidence les cellules référencées, puis cliquez sur le OK bouton. Voir la capture d'écran:
Maintenant, toutes les cellules référencées basées sur la ou les cellules de formule sélectionnées sont mises en surbrillance en rouge immédiatement comme illustré ci-dessous.
Articles connexes:
- Comment garder la référence de cellule de formule constante dans Excel?
- Comment référencer le nom de l'onglet dans la cellule dans Excel?
Meilleurs outils de productivité bureautique
Boostez vos compétences Excel avec Kutools for Excelet faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel Offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab Apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
