Ինչպե՞ս փոխել թերթիկի ներդիրի գույնը ՝ ելնելով բջջային արժեքից:
Սովորաբար, Excel- ում դուք կարող եք հեշտությամբ և արագ փոխել ներդիրի գույնը, բայց երբևէ փորձե՞լ եք փոխել էջանիշի գույնը `հիմնվելով աշխատանքային թերթի բջիջների արժեքի վրա: Եթե ձեզ հետաքրքրում է այս առաջադրանքը, ես կխոսեմ որոշ կոդերի մասին, որպեսզի դուք գունավորեք թերթիկի ներդիրը ՝ հիմնված Excel- ում բջջի որոշակի արժեքի վրա:
Փոխեք մեկ թերթիկի ներդիրի գույնը `հիմնվելով բջջային արժեքի վրա, VBA կոդով
Փոխեք բազմաթիվ թերթիկների ներդիրները ՝ հիմնված բջջային արժեքի վրա, VBA կոդով
Փոխեք մեկ թերթիկի ներդիրի գույնը `հիմնվելով բջջային արժեքի վրա, VBA կոդով
Օրինակ, ես ուզում եմ, որ ներկայիս թերթիկի ներդիրի գույնը կանաչ լինի, եթե A1- ում բջջային արժեքը լինի «UEՇՄԱՐԻՏ», ներդիրի գույնը կարմիր կլինի, եթե A1- ի տեքստը «ՍՈՒՏ» է, իսկ ներդիրի գույնը կլինի կապույտ, եթե A1 բջիջի արժեքը ցանկացած այլ տեքստ է, ինչպես ցույց է տրված հետևյալ նկարը.
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
Նշում: Վերոնշյալ ծածկագրում 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
Նշում: Վերոնշյալ ծածկագրում A1 և Master- ը բջիջն ու աշխատանքային թերթն են, որոնց վրա ցանկանում եք գունավորել ներդիրը, Sheet1, Sheet2, Sheet3 այն աշխատանքային թերթերն են, որոնք ցանկանում եք գունավորել ներդիրները: KTE, KTW, ԱՀԿ- A1- ի բջջային արժեքներն են, որոնց հիման վրա ցանկանում եք գունավորել ներդիրները, կարող եք փոխել ծածկագրում նշված տեղեկությունները և գույները, որքան ձեզ հարկավոր է:
2, Դրանից հետո պահեք և փակեք այս կոդերի պատուհանը, հիմա, երբ Master թերթի A1 բջիջում մուտքագրեք KTE տեքստը, Sheet1 ներդիրը գունավորվի կարմիրով, երբ A1 բջիջում մուտքագրեք KTO, Sheet2- ը գունավորվի կանաչով, և երբ Դուք մուտք եք գործում KTW բջիջ A1- ում, Sheet3- ը գունավորվելու է կապույտով, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: