Hoe alle cellen die door een formule worden gerefereerd in Excel markeren?

Dit artikel legt uit hoe u alle cellen die door een formule worden gerefereerd in Excel kunt markeren. Volg de onderstaande twee methoden om dit te doen.

Markeer alle cellen die door een formule worden gerefereerd met een sneltoets
Markeer alle cellen die door een formule worden gerefereerd met VBA-code

Markeer alle cellen die door een formule worden gerefereerd met een sneltoets

U kunt een sneltoets gebruiken om alle cellen die door een formule worden gerefereerd te selecteren en vervolgens handmatig een vulkleur toepassen.

1. Stel dat E1 een formulecel is, en u moet alle cellen markeren die door deze cel worden gerefereerd. Selecteer de formulecel E1 en druk tegelijkertijd op Ctrl + [ (de open vierkante haak) toetsen.

2. Nu zijn de cellen die door deze formule worden gerefereerd geselecteerd. Specificeer een vulkleur om ze te markeren. Zie screenshot:

Markeer alle cellen die door een formule worden gerefereerd met VBA-code

U kunt ook VBA-code uitvoeren om alle cellen die door een formule worden gerefereerd in Excel te markeren.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Markeer alle cellen die door een formule worden gerefereerd in 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. Druk op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster van Kutools voor Excel een formulecel of meerdere formulecellen waarop u de gerefereerde cellen wilt markeren en klik vervolgens op de OK-knop. Zie screenshot:

Nu worden alle gerefereerde cellen op basis van de geselecteerde formulecel(len) onmiddellijk rood gemarkeerd zoals in onderstaande screenshot te zien is.

Gerelateerde artikelen:

• Hoe een constante formulecelreferentie in Excel behouden?
• Hoe een tabblagnaam in een cel in Excel refereren?