Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս որոշել և բացահայտել 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-րդ սյունակում փաստաթղթի լուսաբանման կրկնօրինակ
 
Kutools Excel-ի համար. ավելի քան 300 հարմար Excel հավելումներով, անվճար փորձելու առանց սահմանափակման 30 օր.

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


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

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

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

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

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

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!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, կայքն ինքնին թարգմանվում է...

Ես զարմանում եմ, թե ինչու դա չի աշխատում գունավոր բջիջների հետ՝ օգտագործելով պայմանական ձևաչափում:
Այս էջի բոլոր ծրագրերը տալիս են «դատարկ» արդյունք, այնպես որ ընդհանրապես գույն չկա, թեև բջիջը գունավոր է:
Եթե ​​ես ինքս գունավորում եմ բջիջը պայմանական ձևաչափման փոխարեն, ես ստանում եմ ճիշտ արդյունքը, բայց ինձ նույնպես անհրաժեշտ է պայմանական ձևաչափում:

Հուսով եմ լսել ձեզնից:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից