Ինչպե՞ս փոխել տեքստի տուփի գույնը ՝ հիմնված Excel- ի արժեքի վրա:
Excel- ում մենք կարող ենք կիրառել պայմանական ձևաչափման գործառույթը `բջջային արժեքի հիման վրա ֆոնի գույնը փոխելու համար, բայց այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես փոխել տեքստային տուփի գույնը` ելնելով բջջային արժեքից կամ տեքստային տուփի արժեքից:
Փոխեք տեքստային տուփի գույնը ՝ հիմնվելով բջջային արժեքի վրա, VBA կոդով
Փոխեք տեքստային տուփի գույնը ՝ ելնելով VBA կոդով տեքստային տուփի արժեքից
Փոխեք տեքստային տուփի գույնը ՝ հիմնվելով բջջային արժեքի վրա, VBA կոդով
Ասենք, եթե A1- ում բջջային արժեքը B1- ում բջջային արժեքից մեծ է, ես ուզում եմ, որ տեքստային տուփը լցվի կարմիր գույնով, ընդհակառակը, տեքստային տուփը պետք է լցվի դեղին գույնով: Խնդրում ենք հասնել այս գործին հետևյալ քայլերով.
1, Տեղադրեք տեքստային տուփ ՝ կտտացնելով Երեվակիչ > Տեղադրել > Տեքստային տուփ (ActiveX կառավարման), և ապա նկարիր տեքստային տուփ, տես նկարի նկարը.
2, Դրանից հետո աջ կտտացրեք տեքստային տուփին և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից բացելու համար Microsoft Visual Basic հավելվածների համար պատուհանը, այնուհետև բնօրինակ կոդը փոխարինեք հետևյալ VBA կոդով դատարկ մոդուլի մեջ.
VBA կոդ. Փոխեք տեքստային տուփի գույնը ՝ ելնելով բջիջների արժեքներից.
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
ՆշումՎերոհիշյալ ծածկագրում TextBox1 ձեր տեղադրած տեքստային տուփի անունն է, A1 և B1 երկու բջիջներն են, որոնց հիման վրա ցանկանում եք փոխել տեքստի տուփի գույնը, խնդրում ենք փոխեք դրանք ըստ ձեր կարիքի:
3, Ապա պահեք և փակեք ծածկագրի պատուհանը և դուրս եկեք կոդից Դիզայնի ռեժիմհիմա, եթե A1 բջիջը ավելի մեծ է, քան B1, տեքստային տուփում տեքստ մուտքագրելիս այն կլրացվի կարմիր գույնով, իսկ եթե A1 պակաս B1- ից, տեքստային տուփի մեջ արժեք մուտքագրելիս, այն կլրացվի դեղին գույնով, տե՛ս սքրինշոթը.
Փոխեք տեքստային տուփի գույնը ՝ ելնելով VBA կոդով տեքստային տուփի արժեքից
Եթե ցանկանում եք փոխել տեքստի տուփի գույնը ՝ ելնելով տեքստային տուփի արժեքից, օրինակ, երբ տեքստային տուփի արժեքը 1-ից 10-ի միջև է, տուփի լրացված գույնը կարմիր է, տուփի գույնը կանաչ է, եթե արժեքը 11-ից 20-ի սահմաններում է, եթե կա այլ արժեքներ, տեքստի տուփի գույնը դեղին է: Այս խնդրով զբաղվելու համար օգտագործեք ստորև նշված VBA կոդը:
1, Տեքստային տուփ մտցնելուց հետո աջ սեղմեք այն և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից բացելու համար Microsoft Visual Basic հավելվածների համար պատուհանը, այնուհետև բնօրինակ կոդը փոխարինեք հետևյալ VBA կոդով դատարկ մոդուլի մեջ.
VBA կոդ. Փոխեք տեքստային տուփի գույնը ՝ ելնելով տեքստային տուփի արժեքից.
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
ՆշումՎերոհիշյալ ծածկագրում Տեքստային տուփ 1 ձեր տեղադրած տեքստային տուփի անունն է, և դուք կարող եք փոխել արժեքները և ֆոնի գույնը ծածկագրի մեջ ձեր սեփականով:
2, Ապա պահեք և փակեք ծածկագրի պատուհանը և դուրս եկեք կոդից Դիզայնի ռեժիմ, հիմա, եթե տեքստի տուփի մեջ մուտքագրեք 1-ից 10-ի արժեքը, դրա ֆոնի գույնը կդառնա կարմիր, արժեքը `11-ից 20-ի, տեքստային տուփի ֆոնի գույնը կդառնա կանաչ, այլ արժեքներ, այն կդառնա դեղին, ինչպես ցույց է տրված հետևյալ նկարը
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս նկարը տեղադրել տեքստի տուփի մեջ:
Ինչպե՞ս նախադրված արժեք դնել տեքստային տուփում:
Ինչպե՞ս թույլ տալ, որ տեքստային տուփում մուտքագրվեն միայն թվեր:
Ինչպե՞ս կիրառել ուղղագրության ստուգումը տեքստային տուփում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: