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.
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.
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
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:
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:
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:
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! |
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:
- Jak změnit barvu písma na základě hodnoty buňky v aplikaci Excel?
- Jak obarvit duplicitní hodnoty nebo duplicitní řádky v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!