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 FunctionVý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 FunctionVý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 for 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 pro 30 zkušební dny zdarma! |
 |
| Kutools for Excel: s více než 300 praktickými doplňky aplikace Excel, které lze zdarma vyzkoušet bez omezení 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é excelentní dovednosti pomocí Kutools for Excela 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áší rozhraní s kartami do Office 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!
