Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako določiti in prepoznati barvni indeks barv celic v Excelu?

Ko prejmete listek z več barvnimi celicami, kot je prikazano na sliki spodaj, v nekaterih primerih boste morda želeli prepoznati barvni indeks barv teh barvnih celic. Vgrajena funkcija ne more določiti barvnega indeksa celice, vendar v tem članku uvajam nekaj kod VBA, da hitro rešim to delo v Excelu.
doc določi barvni indeks 1

Določite barvo celice z VBA


Določite barvo celice z VBA


Naredite naslednje korake, kako določiti barvo celice z VBA.

Kutools za Excel, z več kot 120 priročne funkcije, olajšajo vaše delo.

1. Pritisnite Alt + F11 tipke, ki omogočajo Microsoft Visual Basic za aplikacijo okno.
doc določi barvni indeks 2

2. klik Vstavi > Moduli da odprete novo Moduli in prilepite pod kodo VBA v prazno skripto. Prikaz slike:

VBA: pridobi 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
doc določi barvni indeks 3
doc določi barvni indeks 4

3. Shranite kodo in zaprite okno VBA. Izberite prazno celico poleg barvne celice, vnesite to formulo, = getRGB1 (A16), nato povlecite ročico samodejnega izpolnjevanja nad celicami, ki jih želite uporabiti. Prikaz slike:

doc določi barvni indeks 5
doc določi barvni indeks 6

Nasvet: obstaja nekaj drugih kod, ki lahko določijo 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:
doc določi barvni indeks 7

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:
doc določi barvni indeks 8


Izberite podvojene in enolične celice (v stolpcu hitro izberite podvojene ali edinstvene vrednosti.

doc označuje dvojnik med stolpci 6

Relativni členi:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.