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

Jak změnit hodnotu na základě barvy buňky v aplikaci Excel?

Tento článek hovoří o automatické změně hodnoty buňky na základě barvy pozadí v aplikaci Excel. Například pokud se buňky ve výběru vyplňují červenou barvou pozadí, pak tyto buňky naplňte číslem 1 a u buněk s modrým pozadím vyplňte číslo 0.

Změňte hodnotu na základě barvy buňky pomocí kódu VBA


Změňte hodnotu na základě barvy buňky pomocí kódu VBA

Spuštěním níže uvedeného kódu VBA můžete změnit hodnotu na základě barvy buňky v aplikaci Excel. Postupujte prosím následovně.

1. Vyberte rozsah, který potřebujete ke změně hodnot na základě barvy pozadí, a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte a vložte níže uvedený kód VBA do okna modulu.

Kód VBA: Změňte hodnotu na základě barvy buňky v aplikaci Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. zmáčkni F5 klíč ke spuštění kódu, pak můžete vidět, že všechny červené buňky ve vybraném rozsahu jsou vyplněny číslem 1 a modré buňky jsou vyplněny číslem 0, jak je uvedeno níže.

 

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 (11)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Jaké změny v kódu by byly potřeba, pokud byste to chtěli použít na barvu textu buňky, nikoli na barvu buňky?
Tento komentář byl moderátorem webu minimalizován
Chci dát buňce název podle barvy v jednom listu. tj. pokud je buňka červená, dostane jméno „jméno“, pokud je oranžová, dostane jména „příjmení“ atd.



Jaký kód by se musel změnit, aby měl rozsah jako celý list/kartu a název místo hodnoty?
Tento komentář byl moderátorem webu minimalizován
Zdá se, že Excel spadne, kdykoli se pokusím spustit kód VBA. Vypadá to jako busta.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Kód v mém případě funguje dobře. Můžete mi říct svou verzi Excelu? Děkuji za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Jsem na stejné lodi a pokouším se to spustit, ale zdá se, že kód nevisí. Excel 2016.
Tento komentář byl moderátorem webu minimalizován
je možné upravit tento kód na základě pravidla podmíněného formátování buněk?
Tento komentář byl moderátorem webu minimalizován
Kód mi funguje dobře, ale musel bych kód přepsat, aby odpovídal barvám specifickým pro můj dokument. Ale nevím, jaký kód mají "moje barvy", každý kdo ví kde najde kódy pro jiné barvy?
Tento komentář byl moderátorem webu minimalizován
Jak to spustíte, běžím, ale zdá se, že se nic neděje
Tento komentář byl moderátorem webu minimalizován
Barvy můžete nahradit hodnotami jednoduše pomocí funkce Najít a nahradit. Přejděte na funkci formátování na pravé straně dialogového okna Najít a nahradit a poté v části "Vyplnit" můžete vybrat barvu, kterou máte. Pak na "nahradit za" stačí napsat hodnotu, kterou chcete.
Tento komentář byl moderátorem webu minimalizován
Narazil jsem na tento šťastný zásah, který byl užitečný, ale nevím, kde najít úplný adresář!
http://cdn-0.access-excel.tips/wp-content/uploads/2015/08/excel_vbcolor_10.png 
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak to udělat, ale nechat to automaticky procházet více soubory?
Pro kontext byly dotazníky zaslány několika stovkám zařízení, jejich vybraná odpověď MC odpovídá skóre indikujícímu barvu (např. zelená je dobrá, červená je špatná) a změňte obsah buňky (procesem jako v tomto vláknu) na něco, co by R nebo jiný software mohl přečíst, a pak to použít ke generování automatických zpráv. Mohl bych projít každý z těchto souborů pomocí tohoto makra (nebo úplně jiného nápadu), ale to by trvalo dlouho.
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