Skip to main content

Conas dath bosca téacs a athrú bunaithe ar luach in Excel?

In Excel, is féidir linn an fheidhm Formáidithe Coinníollach a chur i bhfeidhm chun an dath cúlra a athrú bunaithe ar luach cille, ach, san alt seo, labhróidh mé faoi conas dath bosca téacs a athrú bunaithe ar luach cille nó luach i mbosca téacs.

Athraigh dath bosca téacs bunaithe ar luach cille le cód VBA

Athraigh dath an bhosca téacs bunaithe ar luach sa bhosca téacs le cód VBA


mboilgeog cheart gorm saighead Athraigh dath bosca téacs bunaithe ar luach cille le cód VBA

Ligean le rá, má tá luach cille in A1 níos mó ná luach cille i B1, ba mhaith liom go líonfaí an bosca téacs le dath dearg, ar a mhalairt, ba chóir an bosca téacs a líonadh le dath buí. Bain amach an post seo le do thoil leis na céimeanna seo a leanas:

1. Cuir bosca téacs isteach trí chliceáil Forbróir > Ionsáigh > Bosca Téacs (Rialú ActiveX), agus ansin bosca téacs a tharraingt, féach an scáileán:

dath bosca téacs doc bunaithe ar luach 1

2. Ansin cliceáil ar dheis ar an mbosca téacs, agus roghnaigh Féach an cód ón roghchlár comhthéacs chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus ansin cuir an cód VBA seo a leanas in ionad an chóid bhunaidh sa mhodúl bán:

Cód VBA: Athraigh dath an bhosca téacs bunaithe ar luachanna cille:

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

dath bosca téacs doc bunaithe ar luach 2

nótaí: Sa chód thuas, Bosca Téacs1 an t-ainm bosca téacs a chuir tú isteach, A1 agus B1 an bhfuil an dá chealla ar mhaith leat dath bosca téacs a athrú bunaithe orthu, athraigh iad de réir do riachtanas le do thoil.

3. Ansin sábháil agus dún an fhuinneog cód, agus scoir an Modh dearaidh, anois, má tá cill A1 níos mó ná B1, nuair a chlóscríobhann tú téacs sa bhosca téacs, líonfar é le dath dearg, agus má tá A1 níos lú ná B1, agus luach á iontráil sa bhosca téacs, líonfar é le dath buí, féach ar an scáileán:

dath bosca téacs doc bunaithe ar luach 3


mboilgeog cheart gorm saighead Athraigh dath an bhosca téacs bunaithe ar luach sa bhosca téacs le cód VBA

Más mian leat dath an bhosca téacs a athrú bunaithe ar an luach sa bhosca téacs, mar shampla, nuair a bhíonn luach sa bhosca téacs idir 1 agus 10, tá dath líonta an bhosca téacs dearg, tá dath an bhosca téacs glas má tá an luach idir 11 agus 20, má tá luachanna eile, tá dath an bhosca téacs buí. Chun déileáil leis an tasc seo, cuir an cód VBA thíos i bhfeidhm.

1. Tar éis bosca téacs a chur isteach, cliceáil ar dheis air, agus roghnaigh Féach an cód ón roghchlár comhthéacs chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus ansin cuir an cód VBA seo a leanas in ionad an chóid bhunaidh sa mhodúl bán:

Cód VBA: Athraigh dath an bhosca téacs bunaithe ar luach sa bhosca téacs:

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

dath bosca téacs doc bunaithe ar luach 4

nótaí: Sa chód thuas, Bosca téacs1 is ainm don bhosca téacs a chuirtear isteach tú, agus is féidir leat na luachanna agus an dath cúlra laistigh den chód a athrú go dtí do cheann féin.

2. Ansin sábháil agus dún an fhuinneog cód, agus scoir an Mód Dearaidh, anois, má chuireann tú an luach idir 1 agus 10 isteach sa bhosca téacs, beidh dath a chúlra dearg, beidh an luach idir 11 agus 20, dath cúlra an bhosca téacs glas, luachanna eile, beidh sé buí mar a thaispeántar an scáileán a leanas:

dath bosca téacs doc bunaithe ar luach 5


Earraí gaolmhara:

Conas pictiúr a chur isteach sa bhosca téacs?

Conas luach réamhshocraithe a shocrú i mbosca téacs?

Conas nach féidir ach uimhreacha a ionchur sa bhosca téacs?

Conas seiceáil litrithe a chur i bhfeidhm sa bhosca téacs?

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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