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

Ինչպե՞ս փոխել տեքստի տուփի գույնը ՝ հիմնված 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 արժեքի վրա


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

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

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

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

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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (3)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է ինչ-որ մեկը տրամադրել աշխատանքային գրքույկի օրինակ, որպեսզի ես կարողանամ տեսնել, որ սա աշխատում է: Շարունակում եմ փորձել, բայց ապարդյուն: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ համար, երբ փորձում եմ փոխել տեքստային տուփի գույնի արժեքը երկու բջիջների արժեքների հիման վրա, տեքստային տուփը թարմացվում է միայն այն դեպքում, եթե ինչ-որ բան մուտքագրեք տեքստային տուփում: Ինձ պետք է, որ այն ինքնաբերաբար թարմացվի: Ենթադրում եմ, որ ես պարզապես պետք է սովորեմ VBA, որպեսզի հասկանամ, թե ինչու:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչինչ, ես դա պարզեցի: Փոխանակ «Textbox1_GotFocus()» փոփոխությունը հրահրող իրադարձությունն անելու, ես այն դարձրի «Worksheet_SelectionChange(ByVal Target As Range)»: Այժմ ցանկացած անգամ, երբ բջիջներից մեկում արժեքը փոխվում է, տեքստային տուփի գույնն ինքնաբերաբար փոխվում է:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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