Cum să evidențiați toate celulele la care face referire o formulă în Excel?
Acest articol vorbește despre evidențierea tuturor celulelor la care se face referire printr-o formulă în Excel. Vă rugăm să urmați cele două metode de mai jos pentru a o face.
Evidențiați toate celulele la care se face referire printr-o formulă cu tasta de comandă rapidă
Evidențiați toate celulele la care se face referire printr-o formulă cu cod VBA
Evidențiați toate celulele la care se face referire printr-o formulă cu tasta de comandă rapidă
Această secțiune vă va recomanda să utilizați tasta de comandă rapidă pentru a selecta toate celulele la care se face referire printr-o formulă, apoi să completați manual culoarea acestora.
1. Să presupunem că E1 este o celulă formulă și trebuie să evidențiați toate celulele la care a făcut referire. Selectați formula celulă E1, apoi apăsați Ctrl + [ (tastele deschise-paranteză) simultan.
2. Acum sunt selectate celulele la care se face referire prin această formulă, vă rugăm să specificați o culoare de umplere pentru a le evidenția. Vedeți captura de ecran:
Evidențiați toate celulele la care se face referire printr-o formulă cu cod VBA
De asemenea, puteți rula codul VBA pentru a evidenția toate celulele la care a făcut referire o formulă în Excel.
1. presa Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastra, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în fereastra Module.
Cod VBA: evidențiați toate celulele la care face referire o formulă în 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. apasă pe F5 tasta pentru a rula codul. În pop-up Kutools pentru Excel casetă de dialog, vă rugăm să selectați o celulă de formulă sau mai multe celule de formulă pe care trebuie să evidențiați celulele de referință bazate pe, apoi faceți clic pe OK buton. Vedeți captura de ecran:
Acum, toate celulele la care se face referire, bazate pe celula (celulele) formulei selectate, sunt evidențiate în roșu imediat, așa cum este prezentat mai jos.
Articole pe aceeași temă:
- Cum se menține constantă referința celulei de formulă în Excel?
- Cum se face referire la numele filei în celulă în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!