Բաց թողնել հիմնական բովանդակությունը

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

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

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

Փոխեք տեքստային տուփի գույնը ՝ ելնելով VBA կոդով տեքստային տուփի արժեքից


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

Ասենք, եթե A1- ում բջջային արժեքը B1- ում բջջային արժեքից մեծ է, ես ուզում եմ, որ տեքստային տուփը լցվի կարմիր գույնով, ընդհակառակը, տեքստային տուփը պետք է լցվի դեղին գույնով: Խնդրում ենք հասնել այս գործին հետևյալ քայլերով.

1, Տեղադրեք տեքստային տուփ ՝ կտտացնելով Երեվակիչ > Տեղադրել > Տեքստային տուփ (ActiveX կառավարման), և ապա նկարիր տեքստային տուփ, տես նկարի նկարը.

doc տեքստի տուփի գույնը `հիմնված 1 արժեքի վրա

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

doc տեքստի տուփի գույնը `հիմնված 2 արժեքի վրա

ՆշումՎերոհիշյալ ծածկագրում TextBox1 ձեր տեղադրած տեքստային տուփի անունն է, A1 և B1 երկու բջիջներն են, որոնց հիման վրա ցանկանում եք փոխել տեքստի տուփի գույնը, խնդրում ենք փոխեք դրանք ըստ ձեր կարիքի:

3, Ապա պահեք և փակեք ծածկագրի պատուհանը և դուրս եկեք կոդից Դիզայնի ռեժիմհիմա, եթե A1 բջիջը ավելի մեծ է, քան B1, տեքստային տուփում տեքստ մուտքագրելիս այն կլրացվի կարմիր գույնով, իսկ եթե A1 պակաս B1- ից, տեքստային տուփի մեջ արժեք մուտքագրելիս, այն կլրացվի դեղին գույնով, տե՛ս սքրինշոթը.

doc տեքստի տուփի գույնը `հիմնված 3 արժեքի վրա


նետ կապույտ աջ պղպջակ Փոխեք տեքստային տուփի գույնը ՝ ելնելով 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

doc տեքստի տուփի գույնը `հիմնված 4 արժեքի վրա

ՆշումՎերոհիշյալ ծածկագրում Տեքստային տուփ 1 ձեր տեղադրած տեքստային տուփի անունն է, և դուք կարող եք փոխել արժեքները և ֆոնի գույնը ծածկագրի մեջ ձեր սեփականով:

2, Ապա պահեք և փակեք ծածկագրի պատուհանը և դուրս եկեք կոդից Դիզայնի ռեժիմ, հիմա, եթե տեքստի տուփի մեջ մուտքագրեք 1-ից 10-ի արժեքը, դրա ֆոնի գույնը կդառնա կարմիր, արժեքը `11-ից 20-ի, տեքստային տուփի ֆոնի գույնը կդառնա կանաչ, այլ արժեքներ, այն կդառնա դեղին, ինչպես ցույց է տրված հետևյալ նկարը

doc տեքստի տուփի գույնը `հիմնված 5 արժեքի վրա


Առնչվող հոդվածներ քանակը:

Ինչպե՞ս նկարը տեղադրել տեքստի տուփի մեջ:

Ինչպե՞ս նախադրված արժեք դնել տեքստային տուփում:

Ինչպե՞ս թույլ տալ, որ տեքստային տուփում մուտքագրվեն միայն թվեր:

Ինչպե՞ս կիրառել ուղղագրության ստուգումը տեքստային տուփում:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Nevermind, I figured it out. Instead of making the event which triggers the change "Textbox1_GotFocus()", I made it "Worksheet_SelectionChange(ByVal Target As Range)". Now any time the value in one of the cells changes, the textbox color changes automatically.
This comment was minimized by the moderator on the site
For me, when trying to change the textbox color value based on two cell values, the textbox only updates if you type something into the textbox. I need it to update automatically. Guess I'll just have to learn VBA to figure out why.
This comment was minimized by the moderator on the site
Can someone provide an example workbook so I can see this working? I keep trying but to no avail. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations