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

Ինչպե՞ս փոխել թերթիկի ներդիրի գույնը ՝ ելնելով բջջային արժեքից:

Սովորաբար, Excel- ում դուք կարող եք հեշտությամբ և արագ փոխել ներդիրի գույնը, բայց երբևէ փորձե՞լ եք փոխել էջանիշի գույնը `հիմնվելով աշխատանքային թերթի բջիջների արժեքի վրա: Եթե ​​ձեզ հետաքրքրում է այս առաջադրանքը, ես կխոսեմ որոշ կոդերի մասին, որպեսզի դուք գունավորեք թերթիկի ներդիրը ՝ հիմնված Excel- ում բջջի որոշակի արժեքի վրա:

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

Փոխեք բազմաթիվ թերթիկների ներդիրները ՝ հիմնված բջջային արժեքի վրա, VBA կոդով


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

Օրինակ, ես ուզում եմ, որ ներկայիս թերթիկի ներդիրի գույնը կանաչ լինի, եթե A1- ում բջջային արժեքը լինի «UEՇՄԱՐԻՏ», ներդիրի գույնը կարմիր կլինի, եթե A1- ի տեքստը «ՍՈՒՏ» է, իսկ ներդիրի գույնը կլինի կապույտ, եթե A1 բջիջի արժեքը ցանկացած այլ տեքստ է, ինչպես ցույց է տրված հետևյալ նկարը.

doc գույնի թերթ ըստ արժեքի 1

1, Աջ կտտացրեք այն թերթիկի ներդիրին, որը ցանկանում եք փոխել դրա գույնը ՝ հիմնվելով A1 բջիջի տվյալների վրա, ապա ընտրեք Դիտել կոդը համատեքստի ընտրացանկից:

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

VBA կոդ. Փոխեք մեկ թերթիկի ներդիրի գույնը `ելնելով բջջային արժեքից.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

doc գույնի թերթ ըստ արժեքի 2

Նշում: Վերոնշյալ ծածկագրում A1 այն բջջային տեղեկանքն է, որի հիման վրա ցանկանում եք գունավորել ներդիրը.Ճիշտ","Կեղծ”Ձեր համար անհրաժեշտ տեքստն է, դուք կարող եք դրանք փոխել ձեր պահանջի համաձայն և ծածկագրի գույնը կարող եք փոխել ըստ ձեզ:

3, Ապա պահեք և փակեք այս ծածկագրի պատուհանը, այժմ, երբ A1 բջիջում մուտքագրեք «Trիշտ» տեքստը, ներդիրի ներկայիս գույնը կդառնա կանաչ, և երբ A1 բջիջում մուտքագրեք «Սխալ» տեքստ, ներդիրի գույնը կդառնա կարմիր, և եթե այլ տեքստ մուտքագրվի A1 բջիջ, ներդիրի գույնը ավտոմատ կդառնա կապույտ:


նետ կապույտ աջ պղպջակ Փոխեք բազմաթիվ թերթիկների ներդիրները ՝ հիմնված բջջային արժեքի վրա, VBA կոդով

Եթե ​​Ձեզ անհրաժեշտ է փոխել բազմաշերտ ներդիրների գույնը ՝ հիմնվելով բջջային արժեքի վրա, ահա նաև մի կոդ, որը կարող է օգնել ձեզ, խնդրում ենք կատարել հետևյալը.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը, բացված պատուհանում կրկնակի սեղմեք Այս գործառույթը տակ VBAP նախագիծ բաժինը, ապա պատճենեք և կպցրեք ներքևի կոդը դատարկի մեջ Մոդուլներ:

VBA կոդ. Բջջային արժեքի հիման վրա փոխեք բազմաթիվ թերթի ներդիրները.

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

doc գույնի թերթ ըստ արժեքի 3

Նշում: Վերոնշյալ ծածկագրում A1 և Master- ը բջիջն ու աշխատանքային թերթն են, որոնց վրա ցանկանում եք գունավորել ներդիրը, Sheet1, Sheet2, Sheet3 այն աշխատանքային թերթերն են, որոնք ցանկանում եք գունավորել ներդիրները: KTE, KTW, ԱՀԿ- A1- ի բջջային արժեքներն են, որոնց հիման վրա ցանկանում եք գունավորել ներդիրները, կարող եք փոխել ծածկագրում նշված տեղեկությունները և գույները, որքան ձեզ հարկավոր է:

2, Դրանից հետո պահեք և փակեք այս կոդերի պատուհանը, հիմա, երբ Master թերթի A1 բջիջում մուտքագրեք KTE տեքստը, Sheet1 ներդիրը գունավորվի կարմիրով, երբ A1 բջիջում մուտքագրեք KTO, Sheet2- ը գունավորվի կանաչով, և երբ Դուք մուտք եք գործում KTW բջիջ A1- ում, Sheet3- ը գունավորվելու է կապույտով, տես նկարի նկարը.

doc գույնի թերթ ըստ արժեքի 4


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (23)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի պարոն.
Խնդրում եմ, օգնեք ինձ, թե ինչպես փոխել թերթիկի ներդիրի գույնը՝ ըստ ամսաթվի/օրի:

օրինակի համար: -
եթե թիվ 1 թերթիկը կիրակի է, ապա թերթի ներդիր «ԿԱՐՄԻՐ»
եթե թիվ 2 թերթիկը երկուշաբթի է, ապա թերթի ներդիր «Կանաչ»
եթե թիվ 3 թերթիկը երեքշաբթի է, ապա թերթի ներդիր «Կանաչ»
եթե թիվ 4 թերթիկը չորեքշաբթի է, ապա թերթի ներդիր «Կանաչ»
եթե թիվ 5 թերթիկը հինգշաբթի է, ապա թերթի ներդիր «Կանաչ»
եթե թիվ 6 թերթիկը ուրբաթ է, ապա թերթի ներդիր «Կանաչ»
եթե թիվ 7 թերթիկը շաբաթ է, ապա թերթի ներդիր «Կանաչ»

խնդրում եմ օգնեք ինձ վերը նշված excel-ի հարցում:

Շնորհակալություն եւ հարգում
Ֆայզ Իբն Ուվայզ Պ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր նկարագրությունը մի փոքր անորոշ է, թե իրականում ինչ եք փորձում անել: Եթե ​​աշխատանքային գրքույկը նախատեսված է ընդամենը մեկ շաբաթվա համար, ապա գունավորեք ներդիրները: Եթե ​​տեւողությունը մեկ շաբաթից ավելի է, ապա լուծումը մի փոքր ավելի բարդ է։ Քանի դեռ չեք մանրամասնել խնդիրը, կան մի քանի լուծումներ, որոնք հասանելի են: Ես և շատ մարդիկ մեր ժամանակը չենք ծախսի ձեզ համար անվճար 2,000 լուծումներ կոդավորելու վրա: Բայց դուք մանրամասնեք խնդիրը, մենք կարող ենք 1 լուծում տալ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես կարող եմ փոխել ներդիրի գույնը՝ կախված եղանակից, մի շարք բջիջներ ունեն տեքստ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բանաձևն աշխատում է «True»-ի համար. թերթիկի ներդիրը ԿԱՐՄԻՐ է, այնպես որ դա հիանալի է, բայց եթե այն փոխեմ «Ճիշտ»-ից «Սխալ»-ի, ես ուզում եմ, որ թերթի ներդիրը «գույն չունենա»: Ո՞ր բանաձևն է թերթի ներդիրում գույնի բացակայությունը, եթե «Ճիշտ» ընտրված չէ: Նաև, եթե ես ուզում եմ, որ բանաձևը լինի բջիջների խմբի համար, օրինակ. A1:A30 ո՞րն է այն կոդը, որը ես օգտագործում եմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Շենոն.
Հետևյալ VBA կոդը կարող է ձեզ լավություն անել, խնդրում ենք փորձել այն.

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRg որպես տիրույթ
Սահմանել xRg = Խաչմերուկ (Թիրախ, միջակայք («A1: A30»))
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
Ընտրեք Case Target.Value
«Ճիշտ» դեպք
Me.Tab.Color = vbRed
«Սխալ» դեպք
Me.Tab.Color = Սխալ
Վերջ ընտրեք
Վերջ Sub

Հուսով եմ, որ սա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյո՞ք ներդիրի գույնը փոխելու միջոց կա՝ հիմնվելով հետևյալի վրա. ես ունեմ հիմնական ներդիր, որտեղ 3-7 տողերը գունավորված են կապույտով և կհամապատասխանեն համապատասխան 3-7 ներդիրներին (որոնք անվանվել են՝ հիմնվելով հիմնականի բջիջների արժեքների վրա: այդ տողերը), որոնք ես կցանկանայի գունավոր կապույտ: Այնուհետև 8-12-րդ տողերը գունավորվում են կանաչ և համապատասխանում են 8-12 ներդիրներին և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա մի հիանալի հնարք էր:
Ես կապեցի ներդիրի գույնը՝ հիմնվելով A1 բջիջի արժեքի վրա (<>0 ԿԱՐՄԻՐ և =0 Կանաչ), այնուամենայնիվ, մակրոն գործում է միայն այն դեպքում, եթե ես ընտրում եմ A1, սեղմում եմ F2 և սեղմում Enter: Առանց դա անելու, թեև ներդիրի գույնը (հիմնված դրա արժեքի վրա) պետք է լինի, ասենք Կարմիր, բայց մնում է կանաչ:
Ես օգտագործում եմ excel 2007 թ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է այս աշխատանքը կատարել, երբ A1 բջիջը կարող է ունենալ բոլոր 3 պատասխանները բջջի ներսում առանձին տողերում: Այսինքն, KTE-ն, KTO-ն և KTW-ն բոլորն էլ առկա են բջիջում, քանի որ այն թույլ է տալիս մի քանի ընտրություն կատարել բացվող ցուցակից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ օգտագործել այդ կոդը և կիրառել այն վանդակի վրա, այնպես որ, երբ նշում եմ վանդակը, գույնը փոխվում է, եթե հանում եմ այն, այն նորից փոխվում է (ես ստացել եմ true=կանաչ, կեղծ=կարմիր,else=կարմիր) . Բայց երբ ես ստուգում և հանում եմ նշումը, սխալ է հայտնվում «Անհրաժեշտ օբյեկտ»


Մասնավոր ենթակետի վանդակ1_Click()
_____If Target.Address = "$e$5" Ապա 'սխալ այստեղ
__________Ընտրեք Case Target.Value
__________Գործ «Սխալ»
_______________Me.Tab.Color = vbRed
__________Պատյան «Ճիշտ է»
_______________Me.Tab.Color = vbGreen
__________Այլ դեպք
_______________Me.Tab.Color = vbRed
__________Վերջ Ընտրեք
_____Վերջ Եթե
Վերջ Sub

Ես պատճենեցի և տեղադրեցի այն, որպեսզի տեսնեմ, որ այն աշխատում է, և հետո հարմարեցրի այն իմ կարիքներին, բայց ես չէի գտնում այն ​​գործարկելու միջոց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի գործընկերներ,
Խնդրում ենք օգնություն: Ես պետք է փոխեմ թերթիկի ներդիրի գույնը՝ հիմնվելով [h]:mm ձևաչափի արժեքի վրա: Օրինակ, եթե արժեքը ցածր է 20:00 - կարմիր, >20:00 կանաչ:
Շնորհակալություն և հարգանքներով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի գործընկերներ,
Խնդրում ենք օգնություն: Ես պետք է փոխեմ թերթիկի ներդիրի գույնը՝ հիմնվելով [h]:mm ձևաչափի արժեքի վրա: Օրինակ, եթե արժեքը ցածր է 20:00 - կարմիր, >20:00 կանաչ:
Շնորհակալություն և հարգանքներով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Վիկտոր,
Ստորև բերված VBA կոդը կարող է լուծել ձեր խնդիրը, խնդրում ենք փորձել, հուսով եմ, որ այն կօգնի ձեզ:

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xStr Որպես տող
Dim xSN որպես տող
Dim xDate As String
Dim xAddress As String
Dim xArr() Որպես տող
Dim xI1 Որպես ամբողջ թիվ
Dim xSM որպես տող
xDate = «20:00»
xAddress = «$A$1»
Եթե ​​Target.Address <> xAddress Ապա Ելք Sub
xStr = Target.Text
xArr = Split (xStr, ":")
Եթե ​​(UBound(xArr) - LBound(xArr) + 1) > 2 Ապա Ելք Sub
xI1 = Int(xArr(0))
Եթե ​​(Len(xArr(0)) - 2) < 1 Ապա
Եթե ​​xI1 > 23 Ապա Ելք Ենթ
Ուրիշ
Ելք ենթ
Վերջ: Եթե
xSM = xArr (1)
Սխալի դեպքում GoTo Err01
Եթե ​​(Len(xSM) - 2) <> 0 Ապա Ելք Ենթ
Եթե ​​Int(Left(xSM, 1)) > 5 Ապա Ելք Sub
Եթե ​​Int(Right(xSM, 1)) > 10 Ապա Ելք Sub
Եթե ​​xI1 >= 20 Ապա
Me.Tab.Color = vbGreen
Ուրիշ
Me.Tab.Color = vbRed
Վերջ: Եթե
Սխալ 01:
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Սքայանգ,
Կներեք շատ ուշ արձագանքի համար: Այս բանաձևն աշխատում է, երբ ես ձեռքով փոխում եմ արժեքը բջիջում: Բայց դա այն չէր, ինչ ինձ պետք էր:
Բջջի արժեքը տարբեր թերթիկների բանաձեւի արդյունք է: Օրինակ, սա «O13-'520'!AD3» բջիջի բանաձևն է: Սա նշանակում է, որ այս բջիջի արժեքը փոխվում է՝ կախված տարբեր թերթիկի տարբերվող բջիջի արժեքից: Ինձ պետք է թերթի գույնը ինքնաբերաբար փոխվի, երբ «O13-'520'!AD3» բջիջի արժեքը փոխվի, երբ «O13-'520'!AD3» բջիջի արժեքը 05:00-ից ցածր է, կարմիր: , >20:00 կանաչ, 05:00-20:00 շագանակագույն:
Կանխավ շնորհակալ եմ և բարևներ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև բոլորին, ինչպե՞ս կարող եմ փոխել ներդիրի գույնը մի քանի թերթերի սյունակում որոշակի արժեքի հիման վրա: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կապել ներդիրը մեկ այլ ներդիրի արժեքի հետ: Իմ օրինակում ես ունեմ մեկ ներդիր ամբողջ ինֆորմացիայով, որը ինքնաբերաբար զտվում է տարբեր ներդիրների վրա: Այնուամենայնիվ, յուրաքանչյուր ներդիրը կկարդա կանաչ կամ կարմիր, կախված նրանից, թե արդյոք հիմնական ներդիրում կա հավասարակշռություն: Կարո՞ղ է դա անել այս ծածկագրի միջոցով, և եթե այո, ապա որտեղ կարող եմ գրել հիմնական թերթիկի հղումը այս ծածկագրի մեջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Նախկինում երբևէ կոդ չի արվել excel-ում: Ինձ անհրաժեշտ է կոդ, որը կկատարի այն, ինչ անում է այս կոդը, բայց ինձ պետք է մեկ այլ պարամետր:

Այսպիսով, այն, ինչ ինձ անհրաժեշտ է, հետևյալն է.

Եթե ​​բջիջի արժեքը 0 չէ, և/կամ եթե որևէ այլ բջիջ ունի թվեր՝ օգտագործելով count, ապա գույնը փոխեք կարմիրի

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




Private Sub Worksheet_Change (ByVal Target as Range)

― Թարմացնելով Extendoffice 20160930

If Target.Address = «Հետևում!$C$2» Ապա

Ընտրեք Case Target.Value

Պատյան «ip»

Me.Tab.Color = vbRed

«w» դեպք

Me.Tab.Color = vbYellow

«գ» դեպք

Me.Tab.Color = vbGreen

Այլ դեպք

Me.Tab.Color = vbBlue

Վերջ ընտրեք

Վերջ: Եթե

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Բրեդ,
Կոդը ճիշտ գործարկելու համար դուք չպետք է թերթի անունը տեղադրեք կոդի մեջ, խնդրում ենք կիրառեք հետևյալ կոդը. տեղադրեք կոդը մոդուլի մեջ)

Private Sub Worksheet_Change (ByVal Target as Range)

― Թարմացնելով Extendoffice 20160930

If Target.Address = «$C$2» Ապա

Ընտրեք Case Target.Value

Պատյան «ip»

Me.Tab.Color = vbRed

«w» դեպք

Me.Tab.Color = vbYellow

«գ» դեպք

Me.Tab.Color = vbGreen

Այլ դեպք

Me.Tab.Color = vbBlue

Վերջ ընտրեք

Վերջ: Եթե

Վերջ Sub

Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ փոխել ներդիրի գույնը՝ հիմնվելով բանաձևի 2 արդյունքներից մեկի վրա, ես ունեմ=IF((AND(AA1="Occupied",AA2="Occupied",AA3="Occupied",AA4=" Զբաղված»)), «Զբաղված», «Թափուր»)
Ինձ պետք է, որ ներդիրը կարմիր լինի, եթե «Զբաղված է», և կանաչ, եթե «Թափուր»: Այնուամենայնիվ, հիմնական գրառման վերը նշված կոդը չի ճանաչում If Than-ի ելքը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hello,
Ես որոշակի օգնություն եմ պահանջում
Ես պետք է փոխեմ թերթիկի ներդիրի գույնը միայն այն դեպքում, եթե բջիջների որոշակի տիրույթում կա այսօրվա ամսաթիվը
Օրինակ ասա.
L սյունակը ունի որոշ ամսաթվեր՝ ձևաչափով (13-մայիս-22)
Բջջի արժեքներից մեկը այսօրվա ամսաթիվն է, այնուհետև ներդիրի թերթիկի գույնը պետք է փոխվի կարմիրի
Խնդրում ենք օգնել
Կանխավ շնորհակալ ենք Ձեր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կցանկանայի, որ իմ ներդիրը փոխեր գույնը, եթե O կամ P սյունակի որևէ բջիջ արժեք ունենա: Սա հնարավո՞ր է:

Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ թերթի ներդիրի գույնը սահմանել յուրաքանչյուր թերթի j4 բջիջի գույնի հիման վրա: Կան 18+ ներդիրներ և ցանկանում եք թարմացնել ներդիրների գույները, երբ աշխատանքային գիրքը բացվի: Եթե ​​բացվելիս չեմ կարողանում թարմացնել, կարող եմ մակրո գործարկել այն բանից հետո, երբ թիմերը թարմացնեն թերթերը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, փայտ
Ձեր խնդիրը լուծելու համար խնդրում ենք կիրառել հետևյալ ծածկագիրը.ՆշումՊատճենեք և տեղադրեք ստորև բերված կոդը մեջ Այս գործառույթը կոդի ռեժիմ)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

Խնդրում ենք փորձել, հուսով եմ, որ դա կարող է օգնել ձեզ:
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

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