Ինչպե՞ս որոշել և բացահայտել 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 թերթում, եթե ունեք մի շարք, որը ներառում է մի քանի կրկնօրինակ շարքեր, գուցե ձեզ հարկավոր է ընտրել դրանք կամ առանձնացնել դրանք, բայց ինչպես կարող է արագ լուծել այս աշխատանքը job Excel- ի համար նախատեսված գործիքներ, կարող եք օգտագործել Ընտրեք կրկնօրինակ և Եզակի բջիջներ օգտակար է միջակայքում կրկնօրինակները կամ եզակի արժեքներն արագ ընտրելու համար, կամ կրկնօրինակների և եզակի արժեքների համար լրացնել ֆոնի և տառատեսակի գույնը:  Կտտացրեք 30 օր անվճար փորձարկում!

Kutools Excel-ի համար. ավելի քան 300 հարմար Excel հավելումներով, անվճար փորձելու առանց սահմանափակման 30 օր.

Հարաբերական հոդվածներ:

• Ինչպե՞ս փոխել տառատեսակի գույնը ՝ հիմնվելով Excel- ում բջջային արժեքի վրա:
• Ինչպե՞ս Excel- ում գունավորել կրկնօրինակ արժեքները կամ կրկնօրինակ շարքերը:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...