Preskoči na glavno vsebino

Kako določiti in prepoznati indeks barv ozadja celic v Excelu?

Ko prejmete list z več pisanimi celicami, kot je prikazano na spodnji sliki zaslona, ​​boste v nekaterih primerih morda želeli prepoznati indeks barv ozadja teh barvnih celic. Vgrajene funkcije ni, ki bi lahko določila barvni indeks celice, vendar v tem članku predstavljam nekaj kod VBA za hitro reševanje tega dela v Excelu.
doc določi barvni indeks 1

Določite barvo celice z VBA


Določite barvo celice z VBA

Naredite naslednje korake, da določite barvo celice s pomočjo VBA.

1. Pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic za uporabo okno.
doc določi barvni indeks 2

2. klik Vstavi > Moduli odpreti novo Moduli in prilepite spodnjo kodo VBA v prazen skript. Oglejte si posnetek zaslona:

VBA: Pridobite tradicionalno šestnajstiško kodo celice

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 določi barvni indeks 3
doc določi barvni indeks 4

3. Shranite kodo in zaprite okno VBA. Izberite prazno celico ob barvni celici, vnesite to formulo, = getRGB1 (A16), nato povlecite ročico za samodejno izpolnjevanje čez celice, ki jih želite uporabiti. Oglejte si posnetek zaslona:

doc določi barvni indeks 5
doc določi barvni indeks 6

Nasvet: obstaja nekaj drugih kod, ki lahko prepoznajo barvni indeks celice.

1. VBA: decimalna vrednost za vsako kodo

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

Rezultat:
doc določi barvni indeks 7

2. VBA: decimalne vrednosti

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

Rezultat:
doc določi barvni indeks 8


hitro izberite podvojene ali edinstvene vrednosti v Excelovem obsegu

Če imate v Excelovem listu obseg, ki vključuje nekaj podvojenih vrstic, jih boste morda morali izbrati ali jih označiti, kako pa lahko to delo hitro rešite? Če imate Kutools za Excel, lahko uporabite Izberite Duplicate & Edinstvene celice pripomoček za hitro izbiro podvojenih ali enoličnih vrednosti v obsegu ali zapolnitev barve ozadja in pisave za dvojnike in unikatne vrednosti.  Kliknite za 30-dnevno brezplačno preskusno različico!
doc poudari dvojnik v stolpcih 6
 
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel lahko brezplačno preizkusite brez omejitev v 30 dneh.

Relativni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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