Jak określić i zidentyfikować indeks koloru tła komórek w programie Excel?
Po otrzymaniu arkusza z wieloma kolorowymi komórkami, jak pokazano na poniższym zrzucie ekranu, w niektórych przypadkach możesz chcieć zidentyfikować indeks koloru tła tych kolorowych komórek. Nie ma wbudowanej funkcji, która mogłaby określić indeks koloru komórki, ale w tym artykule przedstawiam kilka kodów VBA, aby szybko rozwiązać to zadanie w programie Excel.
Zidentyfikuj kolor komórki za pomocą VBA
Zidentyfikuj kolor komórki za pomocą VBA
Wykonaj następujące kroki, aby określić kolor komórki za pomocą VBA.
1. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic dla aplikacji okno.
2. kliknij wstawka > Moduł aby otworzyć nowy Moduł i wklej poniższy kod VBA do pustego skryptu. Zobacz zrzut ekranu:
VBA: pobierz tradycyjny kod szesnastkowy komórki
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. Zapisz kod i zamknij okno VBA. Wybierz pustą komórkę obok kolorowej komórki, wpisz tę formułę, = getRGB1 (A16), a następnie przeciągnij uchwyt autouzupełniania na komórki, których chcesz użyć. Zobacz zrzut ekranu:
![]() |
![]() |
Wskazówka: istnieje kilka innych kodów, które mogą zidentyfikować indeks koloru komórki.
1. VBA: wartość dziesiętna dla każdego kodu
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
Wynik:
2. VBA: wartości dziesiętne
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
Wynik:
szybko wybierz zduplikowane lub unikalne wartości w zakresie programu Excel |
W arkuszu Excel, jeśli masz zakres, który zawiera kilka zduplikowanych wierszy, być może będziesz musiał je zaznaczyć lub zalegalizować, ale jak szybko rozwiązać tę pracę? Jeśli masz Kutools for Excel, możesz użyć Wybierz Duplikuj & Unikalne komórki narzędzie do szybkiego wybierania zduplikowanych lub unikatowych wartości w zakresie lub wypełnienia tła i koloru czcionki dla duplikatów i unikatowych wartości. Kliknij, aby 30 dni bezpłatnego okresu próbnego! |
![]() |
Kutools for Excel: z ponad 300 przydatnymi dodatkami programu Excel, które można bezpłatnie wypróbować bez ograniczeń 30 dni. |
Względne artykuły:
- Jak zmienić kolor czcionki na podstawie wartości komórki w programie Excel?
- Jak pokolorować zduplikowane wartości lub zduplikować wiersze w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
