Conas liosta anuas dathchódaithe a chur isteach i dtábla Word?
Ag ceapadh, tá tábla agam i mo dhoiciméad Word, agus anois, ba mhaith liom liosta anuas dathchódaithe a chur isteach i gcolún den tábla. Ciallaíonn sé nuair a roghnaíonn mé rogha amháin ón gcnaipe anuas, éiríonn dath na cille dearg, agus nuair a roghnaíonn mé rogha eile sa anuas, éiríonn dath na cille glas mar a thaispeántar an pictiúr a leanas. Conas a d’fhéadfá an post seo a réiteach i ndoiciméad Word?
Cuir isteach liosta anuas dathchódaithe i ndoiciméad Word le cód VBA
Cuir isteach liosta anuas dathchódaithe i ndoiciméad Word le cód VBA
Is féidir leis na céimeanna seo a leanas cabhrú leat an tasc seo a chríochnú de réir mar a theastaíonn uait, ar dtús, cuir isteach an liosta anuas, agus ansin an dath a chur i bhfeidhm don anuas. Déan mar seo le do thoil:
1. Roghnaigh cill sa tábla inar mian leat an titim anuas a chur isteach, agus ansin cliceáil Forbróir > Rialú Ábhar Liosta Buail Isteach deilbhín, féach ar an scáileán:
2. Cuirtear an titim anuas sa chill shonrach, agus ansin cliceáil Forbróir > Airíonna, féach ar an scáileán:
3. Sa an Airíonna Rialaithe Ábhar bosca dialóige, déan na hoibríochtaí seo a leanas le do thoil:
(1.) Iontráil ainm an teidil isteach sa Teideal Bosca téacs;
(2.) Cliceáil Cuir cnaipe téigh go dtí an Cuir Rogha leis dialóg;
(3.) Sa Cuir Rogha leis dialóg, clóscríobh mír an liosta anuas sa Taispeáin Ainm Bosca téacs.
4. Déan an Céim 3 arís chun míreanna eile liosta anuas a chur isteach de réir mar is gá duit.
5. Tar éis duit an chéad liosta anuas a chruthú, is féidir leat é a chóipeáil agus a ghreamú do chealla eile de réir mar is gá duit. Féach an pictiúr:
6. Ansin ba chóir duit cód VBA a chur i bhfeidhm, coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
7. Sa an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte An Doiciméad seo ó na Tionscadal-Tionscadal pána chun an modh a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.
Cód VBA: Cuir isteach liosta anuas dathchódaithe i dtábla doiciméad Word:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
If ContentControl.Title = "Status" Then
Select Case .Text
Case "Complete"
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Case "In Progress"
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Case "Not Start"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Case Else
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
End Select
End If
End With
End Sub
nótaí: Sa chód thuas, stádas an t-ainm teidil agus tú ag cruthú an liosta anuas, agus Comhlánaigh, Ag dul chun cinn, Gan Tosaigh an bhfuil míreanna an liosta anuas, is féidir leat iad a athrú go dtí do cheann féin. Agus is féidir leat an dath a athrú go do riachtanas freisin.
8. Ansin sábháil agus dún an fhuinneog cód, anois, nuair a roghnaíonn tú mír amháin ón liosta anuas, líonfar a dath coibhneasta leis an gcill, féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Gnéithe Kutools AI: Gin Ábhar / Athscríobh Téacs / Doiciméad C&A / Faigh Freagraí Tapa / Aistrigh doiciméid / Doiciméad Polainnis (Caomhnaigh Formáid)...
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF...
✏ Eagarthóireacht na nÁbhar: Baisc Aimsigh agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...
🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Boscaí Téacs / Hipearnasc / Chun níos mó uirlisí a bhaint, ceann chuig an Bain grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Pictiúir Il / Faigh amach níos mó sa Ionsáigh grúpa...
🔍 Roghanna Beachtais: Pionta Leathanaigh Sonracha / Táblaí / cruthanna / Míreanna Ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh bailte fearainn...
⭐ Feabhsuithe Réalta: Déan nascleanúint chuig Suíomh ar bith / Uath-Ionsáigh Téacs Athchleachtach / Scoránaigh Idir Windows Doiciméad / 11 Tiontú uirlisí...
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - 100+ Uirlisí le haghaidh Word
- 🤖 Gnéithe Kutools AI: Gin, Athscríobh, Achoimre a dhéanamh ar, aistriú Doiciméid / Faigh Freagraí Tapa / Doiciméad Polainnis (Caomhnaigh Formáid)
- 📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Baisc a thiontú go PDF
- ✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh / Athraigh Méid Gach Pictiúr
- 🧹 Effortless Glan: Bain Spásanna Breise / Bain Sosanna Alt
- ➕ Ionsáigh Cruthaitheach: Cuir isteach na mílte deighilteoirí / Cuir Seiceálacha isteach / Cruthaigh Cóid QR