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 o perioadă de încercare gratuită de 30 de zile! |
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:
- 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 de birou
Î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 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!