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

Jak určit a identifikovat index barvy pozadí buněk v aplikaci Excel?

Když obdržíte list s více barevnými buňkami, jak je ukázáno níže, v některých případech možná budete chtít identifikovat index barev pozadí těchto barevných buněk. Neexistuje žádná vestavěná funkce, která by mohla určit barevný index buňky, ale v tomto článku představuji některé kódy VBA k rychlému vyřešení této úlohy v aplikaci Excel.
doc určit barevný index 1

Identifikujte barvu buňky pomocí VBA


Identifikujte barvu buňky pomocí VBA

Podle následujících kroků určete barvu buňky pomocí VBA.

1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikaci okno.
doc určit barevný index 2

2. cvaknutí Vložit > Modul otevřít nový Modul a vložte pod kód VBA do prázdného skriptu. Viz screenshot:

VBA: Získejte tradiční hexadecimální kód buňky

Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
    Dim xColor As String
    xColor = CStr(FCell.Interior.Color)
    xColor = Right("000000" & Hex(xColor), 6)
    getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function
doc určit barevný index 3
doc určit barevný index 4

3. Uložte kód a zavřete okno VBA. Vyberte prázdnou buňku vedle barevné buňky, zadejte tento vzorec, = getRGB1 (A16), pak přetáhněte úchyt automatického vyplňování přes buňky, které chcete použít. Viz screenshot:

doc určit barevný index 5
doc určit barevný index 6

Tip: existuje několik dalších kódů, které mohou identifikovat barevný index buňky.

1. VBA: Desetinná hodnota pro každý kód

Function getRGB2(FCell As Range) As String
   'UpdatebyExtendoffice20170714  
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

Výsledek:
doc určit barevný index 7

2. VBA: Desetinné hodnoty

Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
 'UpdatebyExtendoffice20170714
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    Select Case Opt
        Case 1
            getRGB3 = R
        Case 2
            getRGB3 = G
        Case 3
            getRGB3 = B
        Case Else
            getRGB3 = xColor
    End Select
End Function

Výsledek:
doc určit barevný index 8


rychle vyberte duplicitní nebo jedinečné hodnoty v rozsahu aplikace Excel

Pokud máte v listu aplikace Excel rozsah, který obsahuje některé duplicitní řádky, možná je budete muset vybrat nebo nevybrat, ale jak můžete tuto úlohu rychle vyřešit? Pokud máte Kutools pro Excel, můžete použít Vyberte možnost Duplikovat & Unikátní buňky nástroj pro rychlý výběr duplikátů nebo jedinečných hodnot v rozsahu nebo vyplnění pozadí a barvy písma pro duplikáty a jedinečné hodnoty.  Klikněte na 30denní zkušební verzi zdarma!
zvýraznění duplikátu dokumentu ve sloupcích 6
 
Kutools pro Excel: s více než 300 praktickými doplňky Excel, můžete vyzkoušet bez omezení za 30 dní.

Relativní č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 (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Excelente Post, me ajudou. parabény
Tento komentář byl moderátorem webu minimalizován
Goededag,

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
Všechny kódy mohou být použity pro základní "geen opvulling" a jsou výsledkem různých funkcí.

Hoop van jullie te horen!
Tento komentář byl moderátorem webu minimalizován
Omlouvám se, stránka se překládá sama...

Zajímalo by mě, proč to nefunguje s barevnými buňkami pomocí podmíněného formátování.
Všechny programy na této stránce poskytují "prázdný" výsledek, takže žádná barva, i když je buňka barevná.
Pokud místo podmíněného formátování vybarvím buňku sám, dostanu zpět správný výsledek, ale také potřebuji podmíněné formátování!

Doufám, že od vás uslyším!
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í