Hvordan bestemmes og identificeres baggrundsfarveindeks for celler i Excel?
Når du modtager et ark med flere farverige celler som vist nedenstående skærmbillede, kan du i nogle tilfælde måske identificere baggrundsfarveindekset for disse farveceller. Der er ingen indbygget funktion, der kan bestemme farveindekset på en celle, men i denne artikel introducerer jeg nogle VBA-koder for hurtigt at løse dette job i Excel.
Identificer cellefarven med VBA
Identificer cellefarven med VBA
Gør som følgende trin for at bestemme farven på cellen ved VBA.
1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til anvendelse vindue.
2. klik indsatte > Moduler at åbne et nyt Moduler og indsæt under VBA-koden i det tomme script. Se skærmbillede:
VBA: Få traditionel hex-kode af celle
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. Gem koden, og luk VBA-vinduet. Vælg en tom celle ud for den farvede celle, skriv denne formel, = getRGB1 (A16), træk derefter håndtaget til autofyldning over de celler, du vil bruge. Se skærmbillede:
 |
 |
Tip: der er nogle andre koder, der kan identificere celleens farveindeks.
1. VBA: Decimalværdi for hver kode
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 FunctionResultat:
2. VBA: Decimalværdier
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 FunctionResultat:
vælg hurtigt duplikat eller unikke værdier i et Excel-interval |
| I Excel-ark, hvis du har et interval, der indeholder nogle duplikerede rækker, skal du muligvis vælge dem eller udestående dem, men hvordan kan du hurtigt løse dette job？ Hvis du har Kutools til Excel, kan du bruge Vælg Duplicate & Unikke celler hjælpeprogram til hurtigt at vælge de duplikerede værdier eller unikke værdier i området eller udfylde baggrunds- og skrifttypefarve for duplikater og unikke værdier. Klik i 30 dages gratis prøveperiode! |
 |
| Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Relative artikler:
- Hvordan ændres fontfarve baseret på celleværdi i Excel?
- Hvordan farves duplikatværdier eller duplikerede rækker i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
