Note: The other languages of the website are Google-translated. Back to English

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 dni brezplačnega preizkusa!
doc poudari dvojnik v stolpcih 6
 
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite brez omejitev 30 dni.

Relativni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
dno pisarniške mize
Komentarji (3)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Excelente Post, me ajudou. Parabeni
Ta komentar je moderator na spletnem mestu minimiziral
Goededag,

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

Hoop van jullie te horen!
Ta komentar je moderator na spletnem mestu minimiziral
Oprostite, stran se prevaja sama ...

Zanima me, zakaj to ne deluje z barvnimi celicami s pogojnim oblikovanjem.
Vsi programi na tej strani dajo "prazen" rezultat, torej brez barve, čeprav je celica obarvana.
Če sam pobarvam celico namesto pogojnega oblikovanja, dobim nazaj pravi rezultat, vendar potrebujem tudi pogojno oblikovanje!

Upam, da vas bomo slišali!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL