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

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

Այս հոդվածում խոսվում է բջջային արժեքը ավտոմատ կերպով փոխելու մասին `հիմնվելով դրա ֆոնի գույնի վրա Excel- ում: Օրինակ, եթե ընտրության մեջ կարմիր ֆոնի գույնով բջիջներ են լցվում, ապա այդ բջիջները լրացրեք 1 համարով, իսկ կապույտ ֆոնի գույնի բջիջների համար լրացրեք 0 թիվը:

Փոխեք արժեքը ՝ հիմնվելով բջջային գույնի վրա, VBA կոդով


Փոխեք արժեքը ՝ հիմնվելով բջջային գույնի վրա, VBA կոդով

Excel- ում բջջային գույնի վրա հիմնված արժեքը փոխելու համար կարող եք գործարկել ստորև նշված VBA կոդը: Խնդրում եմ արեք հետևյալ կերպ.

1. Ընտրեք այն տիրույթը, որն անհրաժեշտ է ֆոնի գույնի հիման վրա փոխելու արժեքները, այնուհետև սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Excel- ում բջջային գույնի հիման վրա փոխեք արժեքը

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. Սեղմեք F5 Կոդը գործարկելու բանալին, ապա կտեսնեք, որ ընտրված տիրույթում բոլոր կարմիր բջիջները լցված են թիվ 1-ով, իսկ կապույտ բջիջները լցված են 0 համարով, ինչպես ցույց է տրված նկարում:

 

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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (11)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ փոփոխություններ կպահանջվեն կոդի մեջ, եթե ցանկանում եք, որ սա կիրառվի ոչ թե բջիջի գույնի, այլ բջիջի տեքստի գույնի վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փնտրում եմ բջիջին անուն տալ մեկ աշխատանքային թերթիկի գույնի հիման վրա: այսինքն, եթե բջիջը կարմիր է, ապա այն ստանում է «անուն», եթե նարնջագույն է, ապա ստանում է «ազգանուն» անուններ և այլն:



Ո՞ր կոդը պետք է փոխվի, որպեսզի ընդգրկույթը լինի որպես ամբողջ թերթ/ներդիր և արժեքի փոխարեն անուն լինի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Excel-ը կարծես խափանում է, երբ փորձում եմ գործարկել VBA կոդը: Կարծես կիսանդրի լինի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Կոդն իմ դեպքում լավ է աշխատում։ Կարո՞ղ եք ինձ ասել ձեր Excel տարբերակը: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույն նավակի մեջ եմ, փորձում եմ գործարկել սա, բայց կոդը կարծես թե կախված է: Excel 2016 թ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հնարավո՞ր է կարգավորել այս ծածկագիրը բջիջների պայմանական ձևաչափման կանոնի հիման վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդն ինձ համար լավ է աշխատում, բայց ես պետք է վերաշարադրեմ կոդը, որպեսզի համապատասխանի իմ փաստաթղթին հատուկ գույներին: Բայց ես չգիտեմ, թե ինչ ծածկագիր ունի «իմ գույները», որևէ մեկը, ով գիտի, թե որտեղից կարող է գտնել այլ գույների կոդեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս եք այն վարում, ես վազում եմ, բայց կարծես ոչինչ չի լինում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք կարող եք գույները փոխարինել արժեքներով՝ օգտագործելով «Գտնել և փոխարինել» գործառույթը: Գնացեք «Գտնել և փոխարինել» երկխոսության տուփի աջ կողմում գտնվող ձևաչափի գործառույթը, այնուհետև «Լրացնել» բաժնում կարող եք ընտրել ձեր գույնը: Այնուհետև «փոխարինել հետ»-ի վրա գրեք ձեր ուզած արժեքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հանդիպեցի այս հաջողակ գործադուլին, որն օգտակար էր, բայց չգիտեմ, թե որտեղ գտնել ամբողջական գրացուցակը:
http://cdn-0.access-excel.tips/wp-content/uploads/2015/08/excel_vbcolor_10.png 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ դա անելու միջոց, բայց արդյոք այն ավտոմատ կերպով անցնում է բազմաթիվ ֆայլերի միջով:
Համատեքստի համար հարցաթերթիկները ուղարկվել են մի քանի հարյուր հաստատություններ, նրանց ընտրված ԲԿ պատասխանը համապատասխանում է գույնի միավորին (օրինակ՝ կանաչը լավ է, կարմիրը՝ վատ), և փոխել բջիջի բովանդակությունը (այս թեմայում նման գործընթացով) ինչ-որ բան, որը R-ն կամ մեկ այլ ծրագրակազմ կարող էր կարդալ, այնուհետև օգտագործել այն ավտոմատ հաշվետվություններ ստեղծելու համար: Ես կարող էի այս ֆայլերից յուրաքանչյուրն անցնել այս մակրոյով (կամ բոլորովին այլ գաղափարով), բայց դա երկար ժամանակ կպահանջի:
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

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