Ինչպե՞ս որոշել և բացահայտել Excel- ում բջիջների ֆոնի գույնի ինդեքսը:
Երբ ստանում եք բազմաթիվ գունագեղ բջիջներով թերթիկ, ինչպես ցույց է տրված էկրանի նկարից ներքև, որոշ դեպքերում գուցե ցանկանաք բացահայտել այս գունավոր բջիջների ֆոնի գույնի ինդեքսը: Չկա ներկառուցված առանձնահատկություն, որը կարող է որոշել բջիջի գույնի ինդեքսը, բայց այս հոդվածում ես ներկայացնում եմ որոշ VBA կոդեր Excel- ում այս աշխատանքը արագ լուծելու համար:
Որոշեք բջիջի գույնը 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 թերթում, եթե ունեք մի շարք, որը ներառում է մի քանի կրկնօրինակ շարքեր, գուցե ձեզ հարկավոր է ընտրել դրանք կամ առանձնացնել դրանք, բայց ինչպես կարող է արագ լուծել այս աշխատանքը job Excel- ի համար նախատեսված գործիքներ, կարող եք օգտագործել Ընտրեք կրկնօրինակ և Եզակի բջիջներ օգտակար է միջակայքում կրկնօրինակները կամ եզակի արժեքներն արագ ընտրելու համար, կամ կրկնօրինակների և եզակի արժեքների համար լրացնել ֆոնի և տառատեսակի գույնը: Կտտացրեք 30 օր անվճար փորձաշրջանի համար: |
 |
| Excel- ի համար նախատեսված գործիքներ. Ավելի քան 300 հարմար Excel հավելվածներով, 30 օրում առանց սահմանափակումների անվճար փորձեք: |
Հարաբերական հոդվածներ:
- Ինչպե՞ս փոխել տառատեսակի գույնը ՝ հիմնվելով Excel- ում բջջային արժեքի վրա:
- Ինչպե՞ս Excel- ում գունավորել կրկնօրինակ արժեքները կամ կրկնօրինակ շարքերը:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
