Kako označiti vse celice, na katere se sklicuje formula v Excelu?

Ta članek govori o poudarjanju vseh celic, na katere je sklicevala formula v Excelu. Upoštevajte spodnja dva načina, da to storite.

S tipko za bližnjico označite vse celice, na katere se sklicuje formula
Označite vse celice, na katere se sklicuje formula s kodo VBA

S tipko za bližnjico označite vse celice, na katere se sklicuje formula

Ta razdelek vam priporoča, da s tipko za bližnjico izberete vse celice, na katere se sklicuje formula, in jim nato ročno izpolnite barvo.

1. Recimo, da je E1 celica s formulo, in morate označiti vse celice, na katere se je skliceval. Izberite celico formule E1 in pritisnite Ctrl + [ tipke (odprti oglati oklepaj) hkrati.

2. Zdaj so celice, na katere se sklicuje ta formula, izbrane, določite barvo polnila, da jih označite. Oglejte si posnetek zaslona:

Označite vse celice, na katere se sklicuje formula s kodo VBA

Kodo VBA lahko zaženete tudi, da označite vse celice, na katere je sklicevala formula v Excelu.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v okno modula.

Koda VBA: Označite vse celice, na katere se sklicuje formula v Excelu

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. Pritisnite F5 tipko za zagon kode. V pojavnem oknu Kutools za Excel v pogovornem oknu izberite celico formule ali več celic formule, na katerih morate poudariti sklicevane celice, in nato kliknite OK . Oglejte si posnetek zaslona:

Zdaj so vse referenčne celice, ki temeljijo na izbranih celicah formule, takoj označene z rdečo, kot je prikazano spodaj.

Sorodni članki:

• Kako ohraniti referenco celice formule konstantno v Excelu?
• Kako se sklicevati na ime zavihka v celici v Excelu?