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 Sub3. 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?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
