Conas liosta anuas dathchódaithe a chur isteach Word tábla?
Ag cur san áireamh, tá bord agam i mo chuid Word doiciméad, 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 titim síos, go dtiocfaidh dath na cille dearg, agus nuair a roghnaíonn mé rogha eile sa titim síos, éiríonn dath na cille glas mar a thaispeántar an scáileán seo a leanas. Conas a d’fhéadfá an post seo a réiteach i Word doiciméad?
Cuir isteach liosta anuas dathchódaithe i Word doiciméad le cód VBA
Cuir isteach liosta anuas dathchódaithe i Word doiciméad 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 a Word doiciméad:
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:
molta Word Uirlisí Táirgiúlachta
Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.
- Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
- Cuir isteach íomhánna iolracha trasna fillteáin isteach Word doiciméad láithreach.
- Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
- Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
- Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...
