Hvordan fremhæves alle celler, der henvises til med en formel i Excel?
Denne artikel taler om at fremhæve alle celler, som der henvises til med en formel i Excel. Følg nedenstående to metoder for at få det gjort.
Fremhæv alle celler, der henvises til med en formel med genvejstast
Fremhæv alle celler, der henvises til med en formel med VBA-kode
Fremhæv alle celler, der henvises til med en formel med genvejstast
Dette afsnit vil anbefale dig at bruge genvejstasten til at vælge alle celler, som der er henvist til med en formel, og derefter manuelt udfylde farve til dem.
1. Antag, at E1 er en formelcelle, og du skal fremhæve alle celler, som den henviste til. Vælg formelcelle E1, og tryk derefter på Ctrl + [ (det åbne firkantede beslag) taster samtidigt.
2. Nu er celler, der refereres til med denne formel, valgt. Angiv venligst en fyldfarve for at fremhæve dem. Se skærmbillede:
Fremhæv alle celler, der henvises til med en formel med VBA-kode
Du kan også køre VBA-kode for at fremhæve alle celler, som der henvises til med en formel i Excel.
1. Trykke andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, klik venligst indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.
VBA-kode: Fremhæv alle celler, der henvises til med 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 Sub3. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel i dialogboksen skal du vælge en formelcelle eller flere formelceller, som du har brug for for at fremhæve refererede celler baseret på, og klik derefter på OK knap. Se skærmbillede:
Nu er alle refererede celler baseret på de valgte formelceller markeret med rødt straks som vist nedenstående skærmbillede.
Relaterede artikler:
- Hvordan holder jeg formelcellehenvisning konstant i Excel?
- Hvordan henvises der til fanenavn i celle i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
