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

Jak nastavit barvu buňky rovnou jiné barvě buňky v aplikaci Excel?

Pokud chcete sladit barvu buňky s jinou, může vám pomoci metoda v tomto článku.

Nastavit barvu buňky na jinou barvu buňky pomocí kódu VBA


Nastavit barvu buňky na jinou barvu buňky pomocí kódu VBA


Níže uvedená metoda VBA vám pomůže nastavit barvu buňky rovnou jiné v aplikaci Excel. Postupujte prosím následovně.

1. V listu musíte odpovídat barvě dvou buněk, klikněte prosím pravým tlačítkem na kartu listu a poté klikněte Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:

2. V otvoru Microsoft Visual Basic pro aplikace okno, musíte zkopírovat a vložit kód VBA do okna Kód.

Kód VBA: Nastavit barvu buňky na jinou barvu buňky

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color
End Sub

Poznámka: V kódu je A1 buňka obsahující barvu výplně, kterou budete odpovídat C1. Změňte je prosím podle svých potřeb.

Poté je buňka C1 vyplněna stejnou barvou buňky A1, jak je uvedeno níže.

Od této chvíle, když se změní barva výplně v A1, bude C1 automaticky spojena se stejnou barvou.


Související články:


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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (19)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj, buňka, na kterou se odkazuje pro barvu, mění barvu na základě podmíněného formátování. Zdá se, že výše uvedené s tím nefunguje a cílové buňky zůstávají prázdné. Jak to lze napravit? dík
Tento komentář byl moderátorem webu minimalizován
Mám stejný problém. Funguje s buňkami bez podmíněného formátování, ale ne s těmi, které ano
Tento komentář byl moderátorem webu minimalizován
Pokud máte Excel 2010 nebo novější, můžete pomocí funkce DisplayFormat vrátit barvu podmíněně naformátované buňky. Viz. níže:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Me.Range("C1").Interior.Color = Me.Range("A1").DisplayFormat.Interior.Color
End Sub
Tento komentář byl moderátorem webu minimalizován
LP jste naprosto ÚŽASNÍ!!!!!! Nejdéle jsem se snažil, aby buňky odpovídaly barvě pozadí podmíněného formátování! jsi zachránce života!!!
Tento komentář byl moderátorem webu minimalizován
lze to provést na rozsahu buněk nebo pouze pro jednu buňku?
Tento komentář byl moderátorem webu minimalizován
Ahoj, bylo by možné toto rozšířit na podmíněné formátování; neodpovídat barvě vytvořené podmíněným formátem, ale pokud je splněna podmínka podmíněného formátu, použitý podmíněný formát převezme barvu konkrétní buňky. Pokus o použití v Ganttově grafu, vybarvování dnů mezi počátečním a koncovým datem, ale podmíněný formát, který generuje Ganttovy pruhy, by měl mít barvu buňky, která obsahuje úkol (který jsem nastavil ručně)
Tento komentář byl moderátorem webu minimalizován
Ahoj, napsali byste prosím kód pro použití podmíněného formátování ze sloupce dat do dalšího sloupce? Ve sloupci A mám řadu dat od A1 do A1000 včetně podmíněného formátování, které v některých buňkách aplikuje barvu. Potřebuji použít tyto barvy na hodnoty v dalším sloupci B1 až B1000.
velmi ocenil.
Tento komentář byl moderátorem webu minimalizován
ahoj, jak použít stejný VBA, ale na řadu buněk, například:

Chci mít stejnou barvu rozsahu (C8:X8), která bude aplikována na řadu (S16:AL16) jeden po druhém ve stejném pořadí (S16 dostane barvu C16, T16 dostane barvu D8 .... atd)
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

Níže uvedený kód VBA vám může pomoci vyřešit problém. Děkuji za Váš komentář.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xSRg, xDRg, xISRg, xIDRg jako rozsah
Dim xFNum As Long
On Error Resume Next
Nastavit xSRg = Range("C8:X8")
Nastavit xDRg = Range("S16:AL16")
Pro xFNum = 1 To xSRg.count
Nastavit xISRg = xSRg.Item(xFNum)
Nastavit xIDRg = xDRg.Položka (xFNum)
xIDRg.Interior.Color = xISRg.Interior.Color
Další xFNum
End Sub
Tento komentář byl moderátorem webu minimalizován
Hi

Snažím se udělat něco podobného, ​​ale mám dvě tabulky (soubory). Tabulka 1 je hlavní, kde se data aktualizují ručně a soubor (tabulka 2) se rovná datům ve stejné buňce jako tabulka 1. Když otevřu tabulku 2, zobrazí se výzva k obnovení pomocí tabulky 1, žádné problémy, ale pokud barva buňky je změněna v tabulce 1, neaktualizuje se v tabulce 2, ani 'strike-trough' písem..pomůžete prosím?
Tento komentář byl moderátorem webu minimalizován
To je dobrý začátek toho, co chci dělat. Ale hledám něco trochu složitějšího

Jak bych to mohl přizpůsobit, aby se vztahovalo na více řádků a rozsah. Například mám sloupec záhlaví ve sloupci B, chci, aby buňky od G do CS odpovídaly barvě řádku záhlaví, ale pouze mají něco v sobě, tj. písmeno x. Vím, že mohu napsat příkaz IF a THEN, ale jak bych ho použil na více řádků bez psaní kódu pro každý řádek.
Tento komentář byl moderátorem webu minimalizován
ahoj Zacku,
S tím vám bohužel nepomůžu. Jakékoli dotazy ohledně Excelu, prosím, neváhejte napsat do našeho fóra: https://www.extendoffice.com/forum.html.
Tento komentář byl moderátorem webu minimalizován
Našel jsem váš kód „nastavit barvu buňky na stejnou barvu jako jinou barvu buňky“ a funguje to, když jej používám na stejném listu (např. z buňky A1 do buňky A2). Zajímalo by mě, jestli existuje způsob, jak mít stejnou barvu funkce z jiného listu (např. kopírování barvy buňky z listu 1! A1 do listu 2! A1? Ocenili bychom jakoukoli pomoc, kterou byste mohli nabídnout!
Tento komentář byl moderátorem webu minimalizován
Jako Chris mám zájem zkopírovat barvu pozadí z jiného listu?
Tento komentář byl moderátorem webu minimalizován
Páni - to je skvělé. Doufám, že mi můžete pomoci přizpůsobit váš skript mým potřebám. Potřebuji, aby buňky D10:D200 odpovídaly podmíněně formátované barvě buněk A10:A200 - můžete mi prosím pomoci, aby to fungovalo. Všechny buňky jsou na stejném listu.
Tento komentář byl moderátorem webu minimalizován
Přiložil jsem snímek obrazovky souboru, na kterém pracuji – zdá se, že nemohu nahrát soubor .xlsm? V tomto souboru jsem použil původní VBA z tohoto vlákna a nyní mohu odpovídat podmíněně formátované barvě buňky A10 v D10. Jak mohu dosáhnout toho, aby to fungovalo na řadě buněk? Chtěl bych získat barvu rozsahu buněk A10:A200 pro přenos do D10:D200. Může někdo prosím pomoci? Ve sloupci A se používá rozevírací seznam, ale jakmile zadáme objednávku, musíme být schopni přepsat číslo nákupní objednávky. Položky v seznamu jsou všechny nastaveny na podmíněné formátování na barvu (např. OBJEDNÁVKA OK změní buňku na zelenou, CLIENT TBC změní buňku na žlutou), ale po vložení objednávky bude barva prázdná.
Tento komentář byl moderátorem webu minimalizován
obrázek se nenahrál - doufám, že nyní připojen....
Tento komentář byl moderátorem webu minimalizován
Dobrý den, mám potíže s používáním vašeho kódu. Snažím se dělat přesně to, co říkáš. Zajistěte, aby jedna buňka měla stejnou barvu jako jiná buňka (bez nezbytných hodnot) na stejném listu. Je v tom kódu něco, co by se mělo upravit?
Tento komentář byl moderátorem webu minimalizován
Ahoj, pokouším se změnit původní buňky tak, aby odpovídaly jiným, které byly podmíněně naformátovány. Váš kód 
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Me.Range("C1").Interior.Color = Me.Range("A1").DisplayFormat.Interior.Color
End Sub
přizpůsobil jsem se
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Me.Range("A2:C2").Interior.Color = Me.Range("D2").DisplayFormat.Interior.Color
End Sub

Funguje to dobře jen pro jeden řádek. Jak zajistím, aby to fungovalo ve všech řádcích, které potřebuji? Pokud zopakuji kód s dalším řádkem
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Me.Range("A3:C3").Interior.Color = Me.Range("D3").DisplayFormat.Interior.Color
End Sub

Pak se zobrazí chyba kompilace: Bylo zjištěno nejednoznačné jméno: Worksheet_SelectionChange
Zkusil jsem mít kód jakoPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("A2:C10").Interior.Color = Me.Range("D2:D10").DisplayFormat.Interior.ColorEnd Sub

Ale všechny řádky byly pouze černé, nikoli požadované barvy. Jaké kódování potřebuji?
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í