Hvordan markere alle celler referert av en formel i Excel?

Denne artikkelen forklarer hvordan du markerer alle celler det refereres til av en formel i Excel. Følg de to metodene nedenfor for å få det gjort.

Uthev alle celler som refereres til av en formel med snarveitasten
Uthev alle celler referert av en formel med VBA-kode

Uthev alle celler som refereres til av en formel med snarveitasten

Du kan bruke en hurtigtast til å velge alle celler som er referert til av en formel, og deretter bruke en fyllfarge manuelt på dem.

1. Anta at E1 er en formelcelle, og du må markere alle cellene som ble referert til av den. Velg formelcellen E1, og trykk deretter Ctrl + [ (den åpne firkantede parentesen) tastene samtidig.

2. Nå er celler som refereres til av denne formelen valgt, vennligst spesifiser en fyllfarge for å markere dem. Se skjermbilde:

Uthev alle celler referert av en formel med VBA-kode

Du kan også kjøre VBA-kode for å markere alle celler som refereres til av en formel i Excel.

1. Pressen andre + F11 nøkler for å åpne Microsoft Visual Basic for Applications vinduet.

2. I Microsoft Visual Basic for Applications vindu, vennligst klikk innfelt > Moduler. Deretter kopierer og limer du inn VBA-koden nedenfor i modulvinduet.

VBA-kode: Uthev alle celler referert til av en formel i 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. trykk F5 nøkkel for å kjøre koden. I dukker opp Kutools for Excel dialogboksen, velg en formelcelle eller flere formelceller som du må markere refererte celler basert på, og klikk deretter på OK knapp. Se skjermbilde:

Nå er alle refererte celler basert på den(e) valgte formelcellen(e) uthevet i rødt umiddelbart som vist under skjermbildet.

Relaterte artikler:

• Hvordan holde formelcellereferanse konstant i Excel?
• Hvordan referere til fanenavn i celle i Excel?