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.
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.
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
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:
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:
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:
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! |
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:
- Hogyan lehet megváltoztatni a betű színét az Excel cellája alapján?
- Hogyan színezzük meg az ismétlődő értékeket vagy a duplikált sorokat az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
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...
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!