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.

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ă.

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

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:

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:

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:

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 30 zile de probă gratuită!

Kutools pentru Excel: cu peste 300 de programe de completare Excel la îndemână, puteți încerca gratuit fără limitare în 30 zile.

Articole relative:

• Cum se schimbă culoarea fontului pe baza valorii celulei din Excel?
• Cum să colorați valorile duplicate sau rândurile duplicate în Excel?

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

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!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...