Gå til hovedindhold

Hvordan bestemmes og identificeres baggrundsfarveindeks for celler i Excel?

Når du modtager et ark med flere farverige celler som vist nedenstående skærmbillede, kan du i nogle tilfælde måske identificere baggrundsfarveindekset for disse farveceller. Der er ingen indbygget funktion, der kan bestemme farveindekset på en celle, men i denne artikel introducerer jeg nogle VBA-koder for hurtigt at løse dette job i Excel.
dok. bestemme farveindeks 1

Identificer cellefarven med VBA


Identificer cellefarven med VBA

Gør som følgende trin for at bestemme farven på cellen ved VBA.

1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til anvendelse vindue.
dok. bestemme farveindeks 2

2. klik indsatte > Moduler at åbne et nyt Moduler og indsæt under VBA-koden i det tomme script. Se skærmbillede:

VBA: Få traditionel hex-kode af celle

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
dok. bestemme farveindeks 3
dok. bestemme farveindeks 4

3. Gem koden, og luk VBA-vinduet. Vælg en tom celle ud for den farvede celle, skriv denne formel, = getRGB1 (A16), træk derefter håndtaget til autofyldning over de celler, du vil bruge. Se skærmbillede:

dok. bestemme farveindeks 5
dok. bestemme farveindeks 6

Tip: der er nogle andre koder, der kan identificere celleens farveindeks.

1. VBA: Decimalværdi for hver kode

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:
dok. bestemme farveindeks 7

2. VBA: Decimalværdier

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:
dok. bestemme farveindeks 8


vælg hurtigt duplikat eller unikke værdier i et Excel-interval

I Excel-ark, hvis du har et interval, der indeholder nogle duplikerede rækker, skal du muligvis vælge dem eller udestående dem, men hvordan kan du hurtigt løse dette job? Hvis du har Kutools til Excel, kan du bruge Vælg Duplicate & Unikke celler hjælpeprogram til hurtigt at vælge de duplikerede værdier eller unikke værdier i området eller udfylde baggrunds- og skrifttypefarve for duplikater og unikke værdier.  Klik i 30 dages gratis prøveperiode!
doc fremhæve duplikat på tværs af kolonner 6
 
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage.

Relative artikler:

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Goededag,

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
Alle codes die ik kan vinden geven allemaal de kleur "geen opvulling" als resultaat terug op de functies.

Hoop van jullie te horen!
This comment was minimized by the moderator on the site
I'm sorry, the site translates by itself...

I'm wondering why this doesnt work with colored cells using conditional formatting.
All programs on this page give a "blank" result, so no color at all even though the cell is colored.
If I color the cell myself instead of conditional formatting I get the right result back but i need the conditional formatting too!

Hope to hear from you!
This comment was minimized by the moderator on the site
Excelente Post, me ajudou. Parabéns
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations