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

Jak změnit barvu buňky, když na buňku kliknete nebo vyberete v aplikaci Excel?

Tento článek vám ukáže některé způsoby, jak změnit barvu buněk při klepnutí na buňku a změnit zvýrazněnou barvu při výběru rozsahu buněk v aplikaci Excel.

Změňte barvu buňky, když na buňku kliknete pomocí kódu VBA
Pokud jsou buňky vybrány pomocí kódu VBA, změňte zvýrazněnou barvu
Zvýrazněte celý řádek a sloupec aktivní buňky pomocí programu Kutools pro Excel


Změňte barvu buňky, když na buňku kliknete pomocí kódu VBA

Zde můžete změnit barvu pozadí buňky, když na ni dvakrát kliknete nebo na ni kliknete pravým tlačítkem s následujícím kódem VBA.

1. V listu změníte barvu buňky kliknutím na ni, pravým tlačítkem myši klikněte na kartu listu a klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

2. V Microsoft Visual Basic pro aplikace v okně zkopírujte a vložte níže uvedený kód VBA do Kód okno.

VBA: změňte barvu buňky kliknutím na ni

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbGreen
End Sub

3. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Když pak na buňku dvakrát kliknete, bude vybarvena červeně. A když na buňku kliknete pravým tlačítkem, bude vybarvena zeleně. Viz screenshot:


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

Kutools pro Excel's Rozložení pro čtení nástroj vám pomůže rychle 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! (30-denní stezka zdarma)


Pokud jsou buňky vybrány pomocí kódu VBA, změňte zvýrazněnou barvu

Ve výchozím nastavení je při výběru rozsahu buněk zvýrazněná barva šedá. Pokud chcete, aby vybraný rozsah více vynikl, můžete změnit jeho zvýrazněnou barvu na požadovanou. Postupujte prosím následovně.

1. Klikněte pravým tlačítkem na záložku listu, kterou chcete změnit zvýrazněnou barvu vybraného rozsahu, a klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

2. V Microsoft Visual Basic pro aplikace v okně zkopírujte a vložte níže uvedený kód VBA do Kód okno.

Kód VBA: změna zvýrazněné barvy vybraného rozsahu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

3. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Od této chvíle se zvýrazněná barva vybraného rozsahu nebo buňky změní na žlutou. Když kliknete na jinou buňku nebo oblast buněk, buňky se automaticky vybarví.


Zvýrazněte celý řádek a sloupec aktivní buňky pomocí programu Kutools pro Excel

Pokud máte co do činění s velkým listem, je nutné zvýraznit celý řádek a sloupec aktivní buňky, aby bylo čtení snazší. Tady Rozložení pro čtení užitečnost Kutools pro Excel vám může pomoci.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

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.

Poznámka: Nastavení rozložení čtení můžete změnit podle svých potřeb, jak je uvedeno níže.

  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ů.


Zvýrazněte celý řádek a sloupec aktivní buňky pomocí programu Kutools pro Excel


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

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 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ých funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 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 o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (28)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
děkuji mnohokrát děkuji. Vážím si toho.
Tento komentář byl moderátorem webu minimalizován
Líbí se mi, jak snadné formátování mého listu kódu pro "změnit barvu buňky, když na něj kliknete" by mi usnadnilo každodenní práci! Přesto narážím na zádrhel. Když zkopíruji svůj prázdný list se zadaným kódem podle popisu, zobrazí se chyba. Dokud nevytvořím nové listy, běží to skvěle. Jsem začátečník v kódování a pracuji z učebnic a internetu. Oceňuji jakoukoli pomoc, kterou nabídnete!
Tento komentář byl moderátorem webu minimalizován
Milá Michelle,
Postupoval jsem podle kroků, které jste popsali, ale kód fungoval i v mém případě. Můžete mi říct svou verzi Office?
Díky za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Ahoj. jen trochu hlavy nahoru. Používám Office 2007.
Zkoušel jsem váš kód, a i když fungoval, nebylo to to, co jsem hledal. takže jsem kód úplně smazal. ale poslední vybraná/aktivní buňka před odstraněním kódu je stále zelená (změnila jsem barvu z vbYellow na vbGreen) a barva nezmizí. není ovlivněna ani barvou výplně.
nejjednodušší řešení, které jsem našel, bylo prostě smazat buňku. kopírování a vkládání nebude fungovat, zkopíruje to i barvu.
jen jsem myslel, že ti dám vědět. můžete pro to najít jiné řešení/odstraňování problémů, kromě mazání a ručního zadávání. ještě, díky! Potvrzuji, že kód funguje :)
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak to jednoduše aplikovat na určité buňky a ponechat ostatní buňky dostupné pro zadávání čísel?
Tento komentář byl moderátorem webu minimalizován
Vyzkoušel jsem možnost "Změnit zvýrazněnou barvu, když jsou buňky vybrány pomocí kódu VBA" a uložil jsem svůj excel jako pracovní list s povoleným maker. Nyní jsou zvýrazněny poslední buňky, které byly vybrány, a při výběru se nezvýrazní jiné buňky. Kód jsem smazal a znovu zadal a uložil, ale stále žádná změna. Nemohu odstranit ani předchozí zvýraznění. Jsem v rozpacích, co mám dělat.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Kód v mém případě funguje dobře po uložení sešitu jako sešit Excel s podporou maker.
Můžete mi říct svou verzi Excelu?
Tento komentář byl moderátorem webu minimalizován
Mám problém.
Chci změnit barvu jednoho hypertextového odkazu, pokud byl propojen s jedním PDF, na ČERVENOU, a pokud nebyl odkaz s jedním PDF, zobrazí MODROU barvu.
jak teď můžu dělat?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
S tím vám bohužel nepomůžu. Děkuji za komentář.
Tento komentář byl moderátorem webu minimalizován
Salám...
sy sudah install kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?trimakasih
Tento komentář byl moderátorem webu minimalizován
td muncul=tidak muncul
Tento komentář byl moderátorem webu minimalizován
trimakasih
Tento komentář byl moderátorem webu minimalizován
Ahoj lidi, tak jsem použil jako první kód ke změně barvy buňky na zelenou/červenou při dvojkliku/pravém kliknutí. Chtěl bych, aby tento kód fungoval pouze na konkrétním rozsahu buněk, v mém případě D9:P9. může mi někdo pomoci, jak to udělat? Jsem nový ve VBA
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Níže uvedený kód VBA vám může udělat laskavost, zkuste to prosím. Děkuji za váš komentář.

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
If (Not Application.Intersect(Target, Me.Range("D9:P9")) Is Nothing) Then
Zrušit = True
Target.Interior.Color = vbRed
End If
End Sub
Private Sub Worksheet_BeforeRightClick (ByVal Target As Range, Cancel As Boolean)
If (Not Application.Intersect(Target, Me.Range("D9:P9")) Is Nothing) Then
Zrušit = True
Target.Interior.Color = vbGreen
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, snažím se přijít na to, jak změnit barvu buňky na základě výběru z rozevíracího seznamu. Například VYSOKÁ=červená, STŘEDNÍ=žlutá, NÍZKÁ=zelená.

Jakékoli tipy, které můžete poskytnout, jsou velmi oceňovány. Děkuji
Tento komentář byl moderátorem webu minimalizován
hi
mřížka funguje, ale chci, aby barva byla pouze tehdy, když je vybrána buňka a když vyberu něco jiného, ​​první vybraná buňka by neměla být obarvena
můžete mi s tím pls pomoci díky
Tento komentář byl moderátorem webu minimalizován
Měl jsem úplně stejnou otázku! Doufám, že ti někdo odpoví! Důvod, proč to hledám, je, že mám tabulku, kterou používám denně a vkládám spoustu informací do jednotlivých buněk. Je těžké vidět hodnoty (vizuálně to naráží na informace v jiných buňkách) a byla by skvělá funkce, kdybych mohl změnit barvu buňky, která se upravuje - pouze v době, kdy je upravována. Nejjednodušší řešení, které mě napadá, je, že hodnota buňky by byla nastavena zpět na to, co bylo před kliknutím na - ale nevím, jak to udělat.
Tento komentář byl moderátorem webu minimalizován
Děkuji. Dobrá práce
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
je možné mít kód pro "změnit barvu buňky při kliknutí na ni" tak, aby se nezměnily již naformátované buňky jinou barvou, prosím?
Po použití vašeho kódu je veškeré formátování (barvy) pryč. Děkuji. Veronika
Tento komentář byl moderátorem webu minimalizován
Kód funguje, pokud nechráním list. Jakmile list ochráním, protože mám podmíněné formátování na zamčených buňkách, kód nebude fungovat. Jak to mohu změnit, aby to fungovalo na uzamčeném listu, kde může uživatel vybrat odemčené buňky?
Tento komentář byl moderátorem webu minimalizován
Jak zvýraznit buňku (s daty), aby se automaticky zvýraznily ostatní buňky (data, která souvisí s jinými daty v předchozí buňce) kliknutím na buňku. Mohu to udělat? Existuje způsob, jak to udělat.
Tento komentář byl moderátorem webu minimalizován
alguien que me ayude solo quiero que al hacerle click a una celda se ponga de un color y que se mantenga ese color y si le vuelvo hacer click regrese el color original que tenia
Tento komentář byl moderátorem webu minimalizován
Ahoj, pokouším se pomocí možnosti dvojitého kliknutí změnit buňku na zelenou, ale také chci, aby se tato buňka vrátila zpět bez výplně nebo bílou, pokud na ni dvakrát kliknu, když je zelená. Je to možné? 
Tento komentář byl moderátorem webu minimalizován
Dobrý den, dříve kód nějakou dobu fungoval, ale nyní již nefunguje. Co tam může být špatně?
Tento komentář byl moderátorem webu minimalizován
Ahoj Rensi Borburghu, v příspěvku jsou uvedeny dva kódy, který z nich jsi použil? Zobrazila se vám nějaká chybová zpráva?
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem je oba současně. Po zkopírování na USB flash disk už to nefungovalo.
Tento komentář byl moderátorem webu minimalizován
Ahoj Rensi Borburghu, úplně nerozumím, co tím myslíš. Kódy by měly být použity v okně kódu listu a ne v okně modulu. Nebo můžete poskytnout snímek obrazovky vašeho okna s kódem?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, postavil jsem řídicí panel s 37 listy, každý s tabulkou. Všechny jsou zamykací panely, protože jsou příliš velké a potřebuji znát číslo a jméno studenta, pro kterého údaje zadávám. Přesto musím držet prst na levé straně obrazovky, abych identifikoval jména a čísla, kterých se zadané údaje týkají. Potřebuji tedy identifikovat první dvě buňky řádku ve sloupcích "I" a "J".
Kód, který jsem vzal z internetu a nemohl změnit pro dvě buňky sloupců "I" a "J", byl:

Dim lTarget As Range

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

Pokud Target.Row >= 16 Pak

If Not lTarget Is Nothing Then

lTarget.EntireRow.Interior.ColorIndex = 0
End If

Target.EntireRow.Interior.Color = 9359529

Nastavte lTarget = Target
End If
End Sub

Všechny tabulky začínají v různých řádcích. Tento příklad začíná na 16 řádku, ale kód jsem vložil na všechny stránky a přizpůsobil se potřebám konkrétního čísla řádku. 
Už jsem se pokusil změnit kód z EntireRow na Range ("I16:J43"), ale buňky byly v rozsahu, všechny byly natřeny barvou kódu.
Již vyzkoušejte jiný způsob prostřednictvím "podmíněného formátování" se vzorcem =E($I16<>"";LIN()=CÉL("lin")) v rozsahu $I16:$J43 a ve vývojářském "pracovním listu" ", s "Application.Calculate" a funguje to. Změnil jsem 37 listů, ale kopíroval jsem data z předchozího souboru do tohoto nového a všiml jsem si, že možnosti pro vložení „hodnot“ atd. mizí z mého řídicího panelu. Kód musí spouštět něco, co mu již nedovolí vložit, například kliknutí na buňku. Jedinou možností bylo vložit pomocí CTRL+V.
Pokud mi někdo může pomoci s kódem, smažu VBA "Application.Calculate", abych se vrátil k dostupným možnostem koláže.
děkuji za pomoc.

Luís Lopes
Zatím zde nejsou žádné komentáře
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