Jak wyróżnić wszystkie komórki, do których odwołuje się formuła w programie Excel?
W tym artykule jest mowa o podświetleniu wszystkich komórek, do których odwołuje się formuła w programie Excel. Aby to zrobić, wykonaj poniższe dwie metody.
Podświetl wszystkie komórki, do których odwołuje się formuła za pomocą klawisza skrótu
Podświetl wszystkie komórki, do których odwołuje się formuła z kodem VBA
Podświetl wszystkie komórki, do których odwołuje się formuła za pomocą klawisza skrótu
W tej sekcji zalecane jest użycie klawisza skrótu do zaznaczenia wszystkich komórek, do których odwołuje się formuła, a następnie ręczne wypełnienie ich kolorem.
1. Załóżmy, że E1 jest komórką formuły i musisz podświetlić wszystkie komórki, do których się ona odwołuje. Wybierz komórkę formuły E1, a następnie naciśnij Ctrl + [ (otwarte nawiasy kwadratowe) jednocześnie.
2. Teraz komórki, do których odwołuje się ta formuła, są zaznaczone. Określ kolor wypełnienia, aby je podświetlić. Zobacz zrzut ekranu:
Podświetl wszystkie komórki, do których odwołuje się formuła z kodem VBA
Możesz także uruchomić kod VBA, aby podświetlić wszystkie komórki, do których odwołuje się formuła w programie Excel.
1. naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.
Kod VBA: zaznacz wszystkie komórki, do których odwołuje się formuła w programie 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. wciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz komórkę formuły lub wiele komórek formuły, na podstawie których chcesz podświetlić komórki, do których istnieją odniesienia, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Teraz wszystkie komórki, do których istnieją odwołania, oparte na wybranych komórkach formuły są natychmiast podświetlone na czerwono, jak pokazano na zrzucie ekranu.
Powiązane artykuły:
- Jak zachować stałą odwołania do komórki formuły w programie Excel?
- Jak odwołać się do nazwy karty w komórce w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
