Jak zvýraznit všechny buňky odkazované vzorcem v aplikaci Excel?

Tento článek hovoří o zvýraznění všech buněk, na které odkazoval vzorec v aplikaci Excel. Postupujte podle níže uvedených dvou metod.

Zvýrazněte všechny buňky odkazované vzorcem pomocí klávesové zkratky
Zvýrazněte všechny buňky odkazované vzorcem pomocí kódu VBA

Zvýrazněte všechny buňky odkazované vzorcem pomocí klávesové zkratky

Úžasný! Používání efektivních karet v Excelu, jako je Chrome, Edge, Firefox a Safari!
Ušetřete 50% svého času a snížíte tisíce kliknutí myší každý den!

Tato část vám doporučí použít klávesovou zkratku k výběru všech buněk, na které odkazoval vzorec, a poté k nim ručně vyplnit barvu.

1. Předpokládejme, že E1 je buňka vzorce a musíte zvýraznit všechny buňky, na které odkazovala. Vyberte buňku vzorce E1 a stiskněte Ctrl + [ klávesy (hranatá závorka) současně.

2. Nyní jsou vybrány buňky, na které odkazuje tento vzorec, pro jejich zvýraznění určete barvu výplně. Viz screenshot:

Zvýrazněte všechny buňky odkazované vzorcem pomocí kódu VBA

Můžete také spustit kód VBA a zvýraznit všechny buňky, na které odkazoval vzorec v aplikaci Excel.

1. lis Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna modulu.

Kód VBA: Zvýrazněte všechny buňky odkazované vzorcem v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte buňku vzorce nebo více buněk vzorce, na základě kterých je třeba zvýraznit odkazované buňky, a poté klikněte na OK knoflík. Viz screenshot:

Nyní jsou všechny odkazované buňky založené na vybraných buňkách vzorce okamžitě zvýrazněny červeně, jak je uvedeno níže.

Související články:

• Jak zachovat konstantní odkaz na buňku vzorce v aplikaci Excel?
• Jak odkazovat na název karty v buňce v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

🤖	Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
	Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
	Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
	Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
	Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
	Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
	Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Čtěte více... Stažení zdarma...

---

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Stažení zdarma...