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.
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.
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
![]() |
![]() |
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:
![]() |
![]() |
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:
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:
Preprosto izberite podvojene ali edinstvene vrednosti v Excelu |
Če delate z vrsto podatkov v Excelu in morate označiti ali izbrati podvojene vrstice, kako lahko hitro upravljate to nalogo? z Kutools za Excelje Izberite Podvojene in edinstvene celice vam omogoča hitro izbiro dvojnikov ali edinstvenih vrednosti v obsegu. Tem dvojnikom ali edinstvenim vrednostim lahko uporabite tudi barve ozadja in pisave, s čimer bodo vaši podatki zlahka izstopali. |
![]() |
Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v trajno brezplačnih funkcijah AI! Get It Now |
Sorodni članki:
- Kako spremeniti barvo pisave glede na vrednost celice v Excelu?
- Kako obarvati podvojene vrednosti ali podvojene vrstice v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!