Hur bestämmer jag och identifierar bakgrundsfärgindex för celler i Excel?

När du får ett ark med flera färgglada celler som visas nedan i skärmdumpen, kanske du i vissa fall vill identifiera bakgrundsfärgindex för dessa färgceller. Det finns ingen inbyggd funktion som kan bestämma färgindex för en cell, men i den här artikeln introducerar jag några VBA-koder för att snabbt lösa detta jobb i Excel.

Identifiera färgen på cellen med VBA

Identifiera färgen på cellen med VBA

Gör som följande steg för att bestämma cellens färg med VBA.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikation fönster.

2. klick Insert > Modulerna för att öppna en ny Modulerna och klistra in under VBA-koden i det tomma skriptet. Se skärmdump:

VBA: Få traditionell hexkod för cell

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. Spara koden och stäng VBA-fönstret. Välj en tom cell bredvid den färgade cellen, skriv den här formeln, = getRGB1 (A16), dra sedan handtaget för autofyllning över cellerna du vill använda. Se skärmdump:

Dricks: det finns några andra koder som kan identifiera färgindex för celler.

1. VBA: Decimalvärde för varje kod

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

Resultat:

2. VBA: decimalvärden

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

Resultat:

Välj enkelt Duplicera eller Unika värden i Excel

Om du arbetar med en rad data i Excel och behöver markera eller välja dubbletter av rader, hur kan du snabbt hantera den här uppgiften? Med Kutools för Excel, den Välj Duplicera och unika celler funktionen låter dig snabbt välja dubbletter eller unika värden i ett intervall. Du kan också använda bakgrunds- och teckensnittsfärger på dessa dubbletter eller unika värden, vilket gör att dina data sticker ut utan ansträngning.

Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av permanent gratis AI-funktioner! Hämta den nu

Relaterade artiklar:

• Hur ändrar jag teckensnittsfärg baserat på cellvärde i Excel?
• Hur färgar dubbletter eller duplicerade rader i Excel?