Skip i'r prif gynnwys

Sut i newid lliw blwch testun yn seiliedig ar werth yn Excel?

Yn Excel, gallwn gymhwyso'r swyddogaeth Fformatio Amodol i newid y lliw cefndir yn seiliedig ar werth celloedd, ond, yn yr erthygl hon, byddaf yn siarad am sut i newid lliw blwch testun yn seiliedig ar werth celloedd neu werth mewn blwch testun.

Newid lliw blwch testun yn seiliedig ar werth celloedd gyda chod VBA

Newid lliw blwch testun yn seiliedig ar werth mewn blwch testun gyda chod VBA


swigen dde glas saeth Newid lliw blwch testun yn seiliedig ar werth celloedd gyda chod VBA

Gadewch i ni ddweud, os yw gwerth celloedd yn A1 yn fwy na gwerth celloedd yn B1, rwyf am i'r blwch testun gael ei lenwi â lliw coch, i'r gwrthwyneb, dylai'r blwch testun gael ei lenwi â lliw melyn. Cyflawnwch y swydd hon gyda'r camau canlynol:

1. Mewnosod blwch testun trwy glicio Datblygwr > Mewnosod > Blwch Testun (Rheoli ActiveX), ac yna lluniwch flwch testun, gweler y screenshot:

lliw blwch testun doc yn seiliedig ar werth 1

2. Yna cliciwch ar y dde ar y blwch testun, a dewiswch Gweld y Cod o'r ddewislen cyd-destun i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna disodli'r cod gwreiddiol gyda'r cod VBA canlynol yn y modiwl gwag:

Cod VBA: Newid lliw blwch testun yn seiliedig ar werthoedd celloedd:

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

lliw blwch testun doc yn seiliedig ar werth 2

Nodyn: Yn y cod uchod, Blwch Testun1 yw'r enw blwch testun a fewnosodwyd gennych, A1 ac B1 yw'r ddwy gell rydych chi am newid lliw blwch testun yn seiliedig arnyn nhw, os gwelwch yn dda eu newid i'ch angen.

3. Yna arbedwch a chau ffenestr y cod, ac ewch allan o'r Modd dylunio, nawr, os yw cell A1 yn fwy na B1, pan fyddwch chi'n teipio testun yn y blwch testun, bydd yn cael ei lenwi â lliw coch, ac os yw A1 yn llai na B1, wrth nodi gwerth yn y blwch testun, bydd yn cael ei lenwi â lliw melyn, gweler y screenshot:

lliw blwch testun doc yn seiliedig ar werth 3


swigen dde glas saeth Newid lliw blwch testun yn seiliedig ar werth mewn blwch testun gyda chod VBA

Os ydych chi am newid lliw'r blwch testun yn seiliedig ar y gwerth mewn blwch testun, er enghraifft, pan fo'r gwerth yn y blwch testun rhwng 1 a 10, mae lliw llawn y blwch testun yn goch, mae lliw'r blwch testun yn wyrdd os yw'r gwerth rhwng 11 a 20, os yw gwerthoedd eraill, mae lliw y blwch testun yn felyn. I ddelio â'r dasg hon, cymhwyswch y cod VBA isod.

1. Ar ôl mewnosod blwch testun, cliciwch ar y dde, a dewiswch Gweld y Cod o'r ddewislen cyd-destun i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna disodli'r cod gwreiddiol gyda'r cod VBA canlynol yn y modiwl gwag:

Cod VBA: Newid lliw blwch testun yn seiliedig ar werth yn y blwch testun:

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

lliw blwch testun doc yn seiliedig ar werth 4

Nodyn: Yn y cod uchod, Blwch testun1 yw enw'r blwch testun rydych chi'n ei fewnosod, a gallwch chi newid y gwerthoedd a'r lliw cefndir yn y cod i'ch un chi.

2. Yna arbedwch a chau ffenestr y cod, ac ewch allan o'r Modd Dylunio, nawr, os byddwch chi'n nodi'r gwerth rhwng 1 a 10 yn y blwch testun, bydd ei liw cefndir yn dod yn goch, y gwerth rhwng 11 a 20, bydd lliw cefndir y blwch testun yn dod yn wyrdd, gwerthoedd eraill, bydd yn dod yn felyn fel y dangosir y screenshot canlynol:

lliw blwch testun doc yn seiliedig ar werth 5


Erthyglau cysylltiedig:

Sut i fewnosod llun yn y blwch testun?

Sut i osod gwerth diofyn mewn blwch testun?

Sut i ganiatáu i rifau yn unig gael eu mewnbynnu yn y blwch testun?

Sut i gymhwyso gwiriad sillafu yn y blwch testun?

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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