Salt la conținutul principal

Cum se determină și se identifică indicele de culoare de fundal al celulelor din Excel?

Când primiți o foaie cu mai multe celule colorate, așa cum este prezentat mai jos, în unele cazuri, vă recomandăm să identificați indexul de culoare de fundal al acestor celule de culoare. Nu există nicio caracteristică încorporată care să poată determina indicele de culoare al unei celule, dar, în acest articol, introduc câteva coduri VBA pentru a rezolva rapid acest job în Excel.
doc determinați indexul de culoare 1

Identificați culoarea celulei cu VBA


Identificați culoarea celulei cu VBA

Faceți pașii următori pentru a determina culoarea celulei de către VBA.

1. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicație fereastră.
doc determinați indexul de culoare 2

2. clic Insera > Module pentru a deschide un nou Module și lipiți mai jos codul VBA în scriptul gol. Vedeți captura de ecran:

VBA: obțineți codul hexagonal tradițional al celulei

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 determinați indexul de culoare 3
doc determinați indexul de culoare 4

3. Salvați codul și închideți fereastra VBA. Selectați o celulă goală lângă celula colorată, tastați această formulă, = getRGB1 (A16), apoi trageți mânerul de completare automată peste celulele pe care doriți să le utilizați. Vedeți captura de ecran:

doc determinați indexul de culoare 5
doc determinați indexul de culoare 6

Sfat: există și alte coduri care pot identifica indicele de culoare al celulei.

1. VBA: valoare zecimală pentru fiecare cod

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 determinați indexul de culoare 7

2. VBA: valori zecimale

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 determinați indexul de culoare 8


selectați rapid valori duplicate sau unice într-un interval Excel

În foaia Excel, dacă aveți un interval care include câteva rânduri duplicate, poate fi necesar să le selectați sau să le remarcați, dar cum puteți rezolva rapid acest job? Dacă aveți Kutools pentru Excel, puteți utiliza funcția Selectați Duplicate & Celule unice utilitar pentru a selecta rapid cele duplicate sau valorile unice din interval sau pentru a completa culoarea fundalului și a fontului pentru duplicatele și valorile unice.  Faceți clic pentru o perioadă de încercare gratuită de 30 de zile!
evidențiere doc duplicat în coloanele 6
 
Kutools pentru Excel: cu peste 300 de programe de completare la îndemână Excel, gratuit pentru a încerca fără limitări în 30 de zile.

Articole relative:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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