Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 qui ont été référencées par une formule dans Excel. S'il vous plaît suivez 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


flèche bleue droite bulleMettez 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 qui ont été référencées par une formule, puis de leur remplir manuellement la couleur.

1. Supposons que E1 est une cellule de formule, et vous devez mettre en évidence toutes les cellules qui ont été référencées par elle. Veuillez sélectionner la cellule de formule E1, puis appuyez sur Ctrl + [ (les touches du carré ouvert) simultanément.

2. Maintenant, 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:


flèche bleue droite bulleMettez en surbrillance toutes les cellules référencées par une formule avec le code VBA

Vous pouvez également exécuter le code VBA pour mettre en évidence toutes les cellules qui ont été 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, s'il vous plaît cliquez 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 Sub

3. appuie sur le F5 clé pour exécuter le code. Dans le popping up Kutools for Excel Dans la boîte de dialogue, sélectionnez une cellule de formule ou plusieurs cellules de formule dont vous avez besoin pour mettre en évidence les cellules référencées, puis cliquez sur 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 surlignées en rouge immédiatement comme illustré ci-dessous.


flèche bleue droite bulleArticles connexes:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thomas · 1 years ago
    That was really helpful. One additional question. Could someone tell me how to adjust the code, such that ONLY the blank referenced cells are highlighted and not all of them?
  • To post as a guest, your comment is unpublished.
    Bullz · 1 years ago
    That was really helpful. One additional question. Could someone tell me how to adjust the code, such that ONLY the blank referenced cells are highlighted and not all of them?
  • To post as a guest, your comment is unpublished.
    Donald · 1 years ago
    Really liked it! But just one thing -- colon should be taken care of separately since it refers to a range.