Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս որոշել և բացահայտել Excel- ում բջիջների ֆոնի գույնի ինդեքսը:

Երբ ստանում եք բազմաթիվ գունագեղ բջիջներով թերթիկ, ինչպես ցույց է տրված էկրանի նկարից ներքև, որոշ դեպքերում գուցե ցանկանաք բացահայտել այս գունավոր բջիջների ֆոնի գույնի ինդեքսը: Չկա ներկառուցված առանձնահատկություն, որը կարող է որոշել բջիջի գույնի ինդեքսը, բայց այս հոդվածում ես ներկայացնում եմ որոշ VBA կոդեր Excel- ում այս աշխատանքը արագ լուծելու համար:
փաստաթուղթը որոշում է գույների ցուցիչը 1

Որոշեք բջիջի գույնը VBA- ով


Որոշեք բջիջի գույնը VBA- ով

Կատարեք հետևյալ քայլերը ՝ VBA- ի միջոցով բջիջի գույնը որոշելու համար:

1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic կիրառման համար պատուհան.
փաստաթուղթը որոշում է գույների ցուցիչը 2

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
փաստաթուղթը որոշում է գույների ցուցիչը 4

3. Պահպանեք կոդը և փակեք VBA պատուհանը: Գունավոր վանդակի կողքին ընտրեք դատարկ բջիջ, մուտքագրեք այս բանաձևը, = getRGB1 (A16), ապա քաշեք ինքնալրացման բռնիչը այն բջիջների վրա, որոնք ցանկանում եք օգտագործել: Տեսեք,

փաստաթուղթը որոշում է գույների ցուցիչը 5
փաստաթուղթը որոշում է գույների ցուցիչը 6

Ձեր պատասխանը ուղարկված չէ: կան մի քանի այլ կոդեր, որոնք կարող են նույնականացնել բջիջի գունային ինդեքսը:

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

Արդյունքը:
փաստաթուղթը որոշում է գույների ցուցիչը 7

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

Արդյունքը:
փաստաթուղթը որոշում է գույների ցուցիչը 8


արագ ընտրեք կրկնօրինակ կամ եզակի արժեքներ Excel տիրույթում

Excel թերթում, եթե ունեք մի շարք, որը ներառում է մի քանի կրկնօրինակ շարքեր, գուցե ձեզ հարկավոր է ընտրել դրանք կամ առանձնացնել դրանք, բայց ինչպես կարող է արագ լուծել այս աշխատանքը job Excel- ի համար նախատեսված գործիքներ, կարող եք օգտագործել Ընտրեք կրկնօրինակ և Եզակի բջիջներ օգտակար է միջակայքում կրկնօրինակները կամ եզակի արժեքներն արագ ընտրելու համար, կամ կրկնօրինակների և եզակի արժեքների համար լրացնել ֆոնի և տառատեսակի գույնը:  Կտտացրեք 30 օր անվճար փորձաշրջանի համար:
6-րդ սյունակում փաստաթղթի լուսաբանման կրկնօրինակ
 
Excel- ի համար նախատեսված գործիքներ. Ավելի քան 300 հարմար Excel հավելվածներով, 30 օրում առանց սահմանափակումների անվճար փորձեք:

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

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

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Goededag,

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
Alle codes die ik kan vinden geven allemaal de kleur "geen opvulling" als resultaat terug op de functies.

Hoop van jullie te horen!
This comment was minimized by the moderator on the site
I'm sorry, the site translates by itself...

I'm wondering why this doesnt work with colored cells using conditional formatting.
All programs on this page give a "blank" result, so no color at all even though the cell is colored.
If I color the cell myself instead of conditional formatting I get the right result back but i need the conditional formatting too!

Hope to hear from you!
This comment was minimized by the moderator on the site
Excelente Post, me ajudou. Parabéns
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations