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

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 30 zile de probă gratuită!
evidențiere doc duplicat în coloanele 6
 
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:


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.
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!
fundul officetab
Comentarii (3)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Excelente Post, mă ajudou. Parabens
Acest comentariu a fost redus la minimum de moderatorul de pe 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 rezultat terug op de functions.

Hoop van Jullie te horen!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îmi pare rău, site-ul se traduce de la sine...

Mă întreb de ce acest lucru nu funcționează cu celulele colorate folosind formatarea condiționată.
Toate programele de pe această pagină dau un rezultat „gol”, deci nu există nicio culoare chiar dacă celula este colorată.
Dacă colorez singur celula în loc de formatare condiționată, primesc rezultatul corect, dar am nevoie și de formatarea condiționată!

Sper sa ne mai auzim!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL