Ugrás a tartalomra

Hogyan lehet meghatározni és azonosítani a cellák háttérszínindexét az Excel programban?

Ha több színes cellával ellátott lapot kap, amint az a képernyőképen látható, bizonyos esetekben érdemes meghatároznia ezen színsejtek háttérszínindexét. Nincs beépített szolgáltatás, amely meghatározhatja a cella színindexét, de ebben a cikkben bemutatok néhány VBA kódot, hogy gyorsan megoldhassam ezt a feladatot az Excel programban.
doc meghatározza az 1. színindexet

Határozza meg a cella színét a VBA segítségével


Határozza meg a cella színét a VBA segítségével

Tegye a következőket a cella színének VBA általi meghatározásához.

1. nyomja meg Alt + F11 gombok a Microsoft Visual Basic alkalmazásokhoz ablak.
doc meghatározza az 2. színindexet

2. kettyenés betétlap > Modulok hogy nyisson egy új Modulok és illessze be a VBA kód alá az üres parancsfájlba. Lásd a képernyőképet:

VBA: Szerezd meg a sejt hagyományos hex kódját

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 meghatározza az 3. színindexet
doc meghatározza az 4. színindexet

3. Mentse el a kódot, és zárja be a VBA ablakot. Válasszon egy üres cellát a színes cella mellett, írja be ezt a képletet, = getRGB1 (A16), majd húzza az automatikus kitöltés fogantyúját a használni kívánt cellákra. Lásd a képernyőképet:

doc meghatározza az 5. színindexet
doc meghatározza az 6. színindexet

Tipp: van néhány más kód is, amely azonosíthatja a cella színindexét.

1. VBA: Minden kód decimális értéke

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

Eredmény:
doc meghatározza az 7. színindexet

2. VBA: Tizedesértékek

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

Eredmény:
doc meghatározza az 8. színindexet


gyorsan válasszon duplikált vagy egyedi értékeket egy Excel tartományban

Az Excel lapban, ha van olyan tartománya, amely tartalmaz néhány ismétlődő sort, akkor lehet, hogy ki kell választania vagy kiemelnie őket, de hogyan lehet gyorsan megoldani ezt a feladatot job Ha rendelkezik Kutools az Excel számára, használhatja a Válassza a Másolat és Egyedi sejtek segédprogram segítségével gyorsan kiválaszthatja a duplikátumokat vagy az egyedi értékeket a tartományban, vagy kitöltheti a háttér és a betűszín színét az ismétlődésekhez és az egyedi értékekhez.  Kattintson 30 napos ingyenes próbaidőszakra!
doc kiemelje a duplikátot a 6. oszlopban
 
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, 30 napon belül korlátozás nélkül kipróbálható.

Relatív cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the 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 resultaat terug op de functies.

Hoop van jullie te horen!
This comment was minimized by the moderator on the site
I'm sorry, the site translates by itself...

I'm wondering why this doesnt work with colored cells using conditional formatting.
All programs on this page give a "blank" result, so no color at all even though the cell is colored.
If I color the cell myself instead of conditional formatting I get the right result back but i need the conditional formatting too!

Hope to hear from you!
This comment was minimized by the moderator on the site
Excelente Post, me ajudou. Parabéns
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations