Как да определите и идентифицирате индекса на цвета на фона на клетките в Excel?
Когато получите лист с множество цветни клетки, както е показано на екранната снимка по-долу, в някои случаи може да искате да идентифицирате индекса на цвета на фона на тези цветни клетки. Няма вградена функция, която може да определи цветовия индекс на клетка, но в тази статия представям някои VBA кодове за бързо решаване на тази задача в Excel.
Идентифицирайте цвета на клетката с VBA
Идентифицирайте цвета на клетката с VBA
Направете следните стъпки, за да определите цвета на клетката чрез VBA.
1. Натиснете Alt + F11 клавиши за активиране на Microsoft Visual Basic за приложение прозорец.
2. кликване Поставете > Модули за отваряне на нов Модули и поставете под VBA кода към празния скрипт. Вижте екранна снимка:
VBA: Вземете традиционния шестнадесетичен код на клетката
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. Запазете кода и затворете прозореца на VBA. Изберете празна клетка до оцветената клетка, въведете тази формула, =getRGB1(A16), след което плъзнете манипулатора за автоматично попълване върху клетките, които искате да използвате. Вижте екранна снимка:
Съвет: има някои други кодове, които могат да идентифицират цветовия индекс на клетката.
1. VBA: Десетична стойност за всеки код
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
Резултат:
2. VBA: Десетични стойности
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
Резултат:
бързо изберете дублирани или уникални стойности в диапазон на Excel |
В лист на Excel, ако имате диапазон, който включва някои дублиращи се редове, може да се наложи да ги изберете или да ги изключите, но как можете бързо да разрешите тази задача?Ако имате Kutools за Excel, можете да използвате Изберете Дублиране & Уникални клетки помощна програма за бързо избиране на дублиращите се или уникалните стойности в диапазона или за попълване на фона и цвета на шрифта за дублиращите се и уникалните стойности. Кликнете за 30 дни безплатен пробен период! |
Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
Относителни статии:
- Как да променя цвета на шрифта въз основа на стойността на клетката в Excel?
- Как да оцветите дублирани стойности или дублирани редове в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!