Hogyan lehet kiemelni az összes cellát, amelyre egy képlet hivatkozik az Excelben?

Ez a cikk az összes olyan cellának kiemeléséről szól, amelyekre az Excel képlete hivatkozott. Kérjük, kövesse az alábbi két módszert.

Jelölje ki az összes cellát, amelyre hivatkozik egy képlet a Gyorsbillentyűvel
Jelölje ki az összes cellát, amelyre VBA kódú képlet hivatkozik

Jelölje ki az összes cellát, amelyre hivatkozik egy képlet a Gyorsbillentyűvel

Ez a szakasz azt javasolja, hogy a Gyorsbillentyű segítségével válassza ki az összes cellát, amelyre egy képlet hivatkozott, majd manuálisan töltse ki a színt.

1. Tegyük fel, hogy az E1 képletcella, és ki kell jelölnie az összes cellát, amelyre hivatkozott. Válassza ki az E1 képlet cellát, majd nyomja meg az gombot Ctrl + [ (a nyitott szögletes zárójelben) gombokat egyszerre.

2. Most az ezzel a képlettel hivatkozott cellák vannak kijelölve, a kiemeléshez adjon meg kitöltési színt. Lásd a képernyőképet:

Jelölje ki az összes cellát, amelyre VBA kódú képlet hivatkozik

A VBA kód futtatásával kiemelheti az összes cellát, amelyekre az Excel képlete hivatkozott.

1. nyomja meg más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.

VBA-kód: Jelölje ki az összes cellát, amelyre egy képlet hivatkozik az Excelben

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. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen válasszon egy képlet cellát vagy több képlet cellát, amelyek alapján ki kell emelnie a hivatkozott cellákat, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Most az összes hivatkozott cella a kiválasztott képletcella (k) alapján azonnal piros színnel van kiemelve, ahogy az alábbi képernyőkép látható.

Kapcsolódó cikkek:

• Hogyan tarthatjuk állandóan a képletcella referenciáját az Excelben?
• Hogyan lehet hivatkozni a fül nevére az Excel cellájában?