Note: The other languages of the website are Google-translated. Back to English

Jak automaticky zvýraznit řádek a sloupec aktivní buňky v aplikaci Excel?

Když si prohlížíte velký list s mnoha daty, možná budete chtít zvýraznit řádek a sloupec vybrané buňky, abyste mohli snadno a intuitivně číst data, abyste se vyhnuli chybnému čtení. Tady vám mohu představit několik zajímavých triků, jak zvýraznit řádek a sloupec aktuální buňky, když se buňka změní, sloupec a řádek nové buňky se automaticky zvýrazní jako následující screenshoty:

Automaticky zvýrazněte řádek a sloupec vybrané buňky pomocí kódu VBA
Jedním kliknutím zvýrazníte řádek a sloupec vybrané buňky


Automaticky zvýrazněte řádek a sloupec vybrané buňky pomocí kódu VBA

Následující kód VBA vám pomůže automaticky zvýraznit celý sloupec a řádek aktuální buňky v listu, proveďte následující kroky:

1. Otevřete list, který automaticky zvýrazní řádek a sloupec aktivní buňky, klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky.

2. Poté zkopírujte a vložte následující kód VBA do prázdného okna s kódem:

Kód VBA: automatické zvýraznění řádku a sloupce vybrané buňky

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20200430
Static xRow
Static xColumn
If xColumn <> "" Then
    With Columns(xColumn).Interior
        .ColorIndex = xlNone
    End With
    With Rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
With Rows(pRow).Interior
    .ColorIndex = 6
    .Pattern = xlSolid
End With
End Sub

3. Poté stiskněte tlačítko Další + Q klávesy společně pro návrat do listu, nyní, když vyberete buňku, byl zvýrazněn celý řádek a sloupec této buňky. A bude se dynamicky přesouvat při změně vybrané buňky.

rozložení doc-čtení4

Poznámky:

  • 1. Ve výše uvedeném kódu můžete změnit .ColorIndex = 6 barvu na jinou barvu, která se vám líbí.
  • 2. Tento kód VBA se vztahuje pouze na list vybraný ve výše uvedeném kroku 2.
  • 3. Pokud nechcete znovu zvýraznit sloupec a řádek vybrané buňky, musíte odstranit výše uvedený VBA a nastavit nevyplnění vybraného řádku a sloupce kliknutím Home > Vyplň barvu > Bez náplně.
  • 4. Pokud jsou v listu nějaké barevné buňky, barva se ztratí, když na buňku kliknete a poté přejdete do jiné buňky.

Automaticky zvýrazněte řádek a sloupec vybrané buňky pomocí programu Kutools pro Excel

Pokud jste nováčkem VBA, zde doporučujeme Kutools pro Excel's Rozložení pro čtení nástroj. Tento nástroj pomáhá snadno zvýraznit řádek a sloupec vybrané buňky v aplikaci Excel, jak je ukázáno níže. Stáhněte si a vyzkoušejte! (

-denní stezka zdarma)

Uvidíme, jak použít Kutools pro ExcelJe Rozložení pro čtení funkce pro zvýraznění celých řádků a sloupců řady buněk.

1. cvaknutí Kutools > Rozložení pro čtení. Viz snímek obrazovky:

Poté je rozložení čtení povoleno, můžete vidět, že řádek a sloupec aktivní buňky jsou okamžitě zvýrazněny. A bude se dynamicky přesouvat při změně vybraných buněk.

Poznámky:

  • 1. Nastavení rozložení čtení můžete změnit podle svých potřeb, jak je uvedeno níže.
  • 2. Tento nástroj můžete zrušit zrušením zaškrtnutí Rozložení pro čtení pod Čtení rozbalovací seznam.
  • 3. To Zobrazení rozložení pro čtení funkce se použije na všechny listy v sešitu.
  • 4. To Zobrazení rozložení pro čtení funkce bude deaktivována při příštím spuštění sešitu.

  Pokud chcete mít bezplatnou zkušební verzi (

30
-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Jedním kliknutím zvýrazníte řádek a sloupec vybrané buňky


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než
    300
    výkonné funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 60denní záruka vrácení peněz.
karta kte 201905

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 tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (53)
Hodnocení 5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Ahoj, daný kód funguje dobře pro zvýraznění řádku a sloupce aktivní buňky. ale původní barva buňky spolu s nastavením barev sloupců a řádků se ztratí. Jak to překonat?
Tento komentář byl moderátorem webu minimalizován
Zde je moje verze pro zvýraznění aktuálního řádku (od A do AK). Abych se vyhnul vymazání zabarvení buněk, používám místo toho červený okraj...a navíc obnoví můj preferovaný okraj na řádek právě vlevo. Private Sub Worksheet_SelectionChange (ByVal Target As Range) Dim lRow As Long, lCol As Long Statické lPrevRow As Long 'Obnovit předchozí aktivní řádek na...světle modrou tečkovanou čáru If lPrevRow > 0 Then Range("A" & lPrevRow, "AK" & lPrevRow).BorderAround Weight:=xlHairline, Color:=RGB(162, 200, 255) End If 'Zvýrazněte aktuální řádek červeným okrajem lRow = Target.Row Range("A" & lRow, "AK" & lRow) .BorderAround Weight:=xlThin, Color:=RGB(255, 0, 0) lPrevRow = lRow End Sub
Tento komentář byl moderátorem webu minimalizován
Ach! člověče, funguje jako kouzlo!!! skvělý
Tento komentář byl moderátorem webu minimalizován
ty jsi teď génius, jak to jde o řádky a sloupce?
Tento komentář byl moderátorem webu minimalizován
AHOJ, MÁM STEJNÝ PROBLÉM SE SURESH, MŮŽETE MI PROSÍM POSKYTNOUT CELÝ UPRAVENÝ KÓD PRO NESMÍRÁNÍ PŮVODNÍ BARVY BUNĚK POUŽÍVÁM TUTO: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318lum6 If xStalumxConCon6 "" Then With Columns(xColumn).Interior .ColorIndex = xlNone End With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns( pColumn).Interiér .ColorIndex = XNUMX .Vzor = xlSolid Konec s řádky (pRow).Interiér .ColorIndex = XNUMX .Vzor = xlSolid Konec s End Sub
Tento komentář byl moderátorem webu minimalizován
Nedaří se mi to zprovoznit - prosím o pomoc, děkuji :-)
Tento komentář byl moderátorem webu minimalizován
"Prosím, pomozte" - očekáváte odpověď na tak vágní požadavek a žádnou snahu o vysvětlení problému?
Tento komentář byl moderátorem webu minimalizován
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Toto je perfektní kód, děkuji!!!!! žádné problémy s přesunem z buňky do buňky a zanecháním stopy zvýraznění a obrysů za sebou.
Tento komentář byl moderátorem webu minimalizován
Používám vložit tabulku do mých dat a nemění původní zbarvení
Tento komentář byl moderátorem webu minimalizován
Tato možnost je nyní v roce 2010 dostupná i pro nekodéry, pokud máte kartu Vývojář. V části Vývojář klikněte na Vlastnosti. Nastavte EnableOutlining na True. Omezení: Zdá se, že to platí pouze pro jeden list najednou, i když je snadné jej nastavit pro ostatní listy kliknutím na záložky dole (při ponechání otevřeného dialogového okna Vlastnosti). Proč to Excel nezpřístupňuje pod Možnosti, je to Microsoft.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, po vložení kódu již nefunguje funkce "zpět". může někdo pomoci?
Tento komentář byl moderátorem webu minimalizován
Ahoj! Tento kód se mi opravdu líbí, ale jak řekl Suresh, odstraňuje původní barvy buněk! Jak si mohu zachovat původní barvy buněk? Prosím o odpověď, děkuji!
Tento komentář byl moderátorem webu minimalizován
Tohle funguje skvěle. Existuje způsob, jak zajistit, aby se to na tisku nezobrazovalo?
Tento komentář byl moderátorem webu minimalizován
Přesně to, co jsem hledal. Děkuji!
Tento komentář byl moderátorem webu minimalizován
Chcete-li zachovat barvu buňky, budete muset pro buňky vytvořit podmíněné formátování.
Tento komentář byl moderátorem webu minimalizován
Máte v plánu přidat funkce Mac pro Kutools?
Tento komentář byl moderátorem webu minimalizován
Jak mohu změnit barvy pruhů? Díky za toto skvělé řešení. S pozdravem Ton
Tento komentář byl moderátorem webu minimalizován
jak to můžu zastavit když chci aby to přestalo??
Tento komentář byl moderátorem webu minimalizován
Toto je kód, který jsem použil pouze pro řádek (šedé zvýraznění): Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow).Interiér .ColorIndex = 15 .Pattern = xlSolid End With End Sub
Tento komentář byl moderátorem webu minimalizován
Kopírování a vkládání kódu nefungovalo správně, ale po opravě syntaktických chyb fungovalo úžasně! Děkuji. Zde je pracovní kód pro zvýraznění (žlutě) pouze řádku: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow If xRow "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row xRow = pRow With Rows(pRow).Interiér .ColorIndex = 6 .Pattern = xlSolid End With End Sub
Tento komentář byl moderátorem webu minimalizován
Bravo..přesně to jsem hledal.....díky moc!!
Tento komentář byl moderátorem webu minimalizován
Když znovu otevřu můj sešit, zvýrazněný sloupec z předchozí relace zůstane - a změní se, když se v nové relaci pohybuji po listu. Existuje způsob, jak „vymazat“ předchozí relaci při každém otevření sešitu?
Tento komentář byl moderátorem webu minimalizován
Toto funguje, pokud nemáte barvy, které nejsou v podmíněném formátování. Stačí přidat další dva se smyčkami. Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20140318 Static xRow Static xColumn If xColumn "" Then With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row With Row = pRow .Interiér .ColorIndex = 6 .Vzor = xlPlný konec s řádky (pRow - 1).Interiér .ColorIndex = 0 .Vzor = x1Plný konec s řádky (pRow + 1).Interiér .ColorIndex = 0 .Vzor = x1Plný konec s End Sub
Tento komentář byl moderátorem webu minimalizován
JAK TO MŮŽU UMOŽNIT, KDYŽ MÁM PLECH, KTERÝ JE JIŽ BAREVNÝ.
Tento komentář byl moderátorem webu minimalizován
Skvělý článek!. Pro mě zachránce života. A pokud chcete, aby byla skutečná buňka zvýrazněna žlutě a řádek/buňky šedou barvou, toto je kód: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn ).Interior .ColorIndex = xlNone End With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 End Sub
Tento komentář byl moderátorem webu minimalizován
Opravte kód následovně: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 20151216 Statické xRow Statické xColumn If xColumn "" Then With Columns(xColumn).Interior .ColorIndex = xlNone = End With Rows(xor.Row). xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 15 .Pattern = xlSolid End With Rows(pRow).Interior .ColorIndex = Interior .ColorIndex. Pattern = xlSolid End With Selection.Interior.ColorIndex = 15 End Sub [quote]Skvělý článek!. Pro mě zachránce života. A pokud chcete, aby byla skutečná buňka zvýrazněna žlutě a řádek/buňky šedou barvou, toto je kód: Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Update 6 Static xRow Static xColumn If xColumn "" Then With Columns(xColumn ).Interior .ColorIndex = xlNone End With Rows(xRow).Interior .ColorIndex = xlNone End With End If pRow = Selection.Row pColumn = Selection.Column xRow = pRow xColumn = pColumn With Columns(pColumn).Interior .ColorIndex = 20151216 .Pattern = xlSolid End With Rows(pRow).Interior .ColorIndex = 15 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 15 End SubOd Vicente[/ Quote]
Tento komentář byl moderátorem webu minimalizován
Ahoj. Jak mohu zvýraznit celý řádek, pokud je jedna z buněk sloučena. Vidím, že kutool může udělat čáru přes sloučenou buňku. Pl pomozte mi toto řešení
Tento komentář byl moderátorem webu minimalizován
Změnil jsem váš kód ze zvýraznění interiéru na červené okraje.
.BorderAround Hmotnost:=xlTlustý, Barva:=vbČervená
Vyberu buňku, okraje zčervenají. Skvělý. Kopíruji, vyberu jinou buňku, ty okraje zčervenají, ale schránka se vymaže. Nemohu přijít na to, jak používat okraje a zachovat funkci kopírování/vkládání.
Nějaké návrhy?
Tento komentář byl moderátorem webu minimalizován
můžete sdílet celý kód?
Tento komentář byl moderátorem webu minimalizován
Sub Worksheet_SelectionChange (ByVal Target As Excel.Range)

'Aktualizace 20192021
Statický xRow
Pokud xRow <> "" Pak
Řady(xRow).Hmotnost kolem okraje:=xlThin, Barva:=vbČerná
End If
pRow = Selection.Row
xRow = pRow
Řádky(pRow).OhraničeníHmotnost:=xlTlusté, Barva:=vbČervená
End Sub
Tento komentář byl moderátorem webu minimalizován
jak zabráníte odstranění tlačítek zpět a opakování pomocí tohoto makra, které nepoužívá Kutools
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Promiň mi to. Problém undo & redo v makru nelze vyřešit.
Tento komentář byl moderátorem webu minimalizován
VBA pro zvýraznění jedné buňky funguje, ale tato ne.
Tento komentář byl moderátorem webu minimalizován
Děkujeme, že jste to zveřejnili! Je to velmi užitečné při kontrole odsouhlasení prostřednictvím tabulky.
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL