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

Sut i fewnosod rhestr ostwng cod lliw yn nhabl Word?

Gan dybio, mae gen i dabl yn fy nogfen Word, a nawr, rydw i eisiau mewnosod rhestr ostwng cod lliw mewn colofn o'r tabl. Mae'n golygu pan fyddaf yn dewis un opsiwn o'r gwymplen, mae lliw'r gell yn dod yn goch, a phan fyddaf yn dewis opsiwn arall yn y gwymplen, daw lliw'r gell yn wyrdd fel y dangosir y llun a ddangosir. Sut allech chi ddatrys y swydd hon yn nogfen Word?

cod lliw doc cod cwympo i lawr

Mewnosod rhestr ostwng cod lliw yn nogfen Word gyda chod VBA


Mewnosod rhestr ostwng cod lliw yn nogfen Word gyda chod VBA

Gall y camau canlynol eich helpu i orffen y dasg hon yn ôl yr angen, yn gyntaf, mewnosodwch y gwymplen, ac yna cymhwyso'r lliw ar gyfer y gwymplen. Gwnewch fel hyn:

1. Dewiswch gell yn y tabl lle rydych chi am fewnosod y gwymplen, ac yna cliciwch Datblygwr > Rheoli Cynnwys Rhestr Gollwng eicon, gweler y screenshot:

cod lliw cod doc gwympo 1

2. Mewnosodir y gwymplen yn y gell benodol, ac yna cliciwch Datblygwr > Eiddo, gweler y screenshot:

cod lliw cod doc gwympo 2

3. Yn y Priodweddau Rheoli Cynnwys blwch deialog, gwnewch y gweithrediadau canlynol:

(1.) Rhowch enw'r teitl yn y Teitl blwch testun;

(2.) Cliciwch Ychwanegu botwm ewch i'r Ychwanegu Dewis deialog;

(3.) Yn y Ychwanegu Dewis deialog, teipiwch yr eitem rhestr ostwng yn y arddangos Enw blwch testun.

cod lliw cod doc gwympo 3

4. Ailadroddwch Gam 3 i fewnosod eitemau rhestr ostwng eraill yn ôl yr angen.

5. Ar ôl creu'r gwymplen gyntaf, gallwch ei chopïo a'i gludo i gelloedd eraill yn ôl yr angen. Gweler y screenshot:

cod lliw cod doc gwympo 4

6. Yna dylech gymhwyso cod VBA, daliwch y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

7. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Y Ddogfen hon oddi wrth y Prosiect-Prosiect cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Mewnosodwch y gwymplen â chôd lliw yn nhabl dogfen 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

cod lliw cod doc gwympo 5

Nodyn: Yn y cod uchod, Statws yw'r enw teitl pan fyddwch chi'n creu'r gwymplen, a Cwblhau, Ar y gweill, Ddim yn Cychwyn yw eitemau'r gwymplen, gallwch eu newid i'ch un chi. A gallwch hefyd newid y lliw i'ch angen.

8. Yna arbedwch a chau ffenestr y cod, nawr, pan ddewiswch un eitem o'r gwymplen, bydd ei lliw cymharol yn cael ei llenwi â'r gell, gweler y screenshot:

cod lliw doc cod cwympo i lawr


 


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...

 

sylwadau (39)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn gadael ac yn ailagor y rhaglen, mae'n rhaid i mi ailosod y cod VBA. Sut ydw i'n ei wneud fel ei fod yn arbed?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Er mwyn arbed y cod vba wrth agor y ffeil y tro nesaf, dylech gadw'r ffeil word fel fformat Word Macro-Enabled Document. Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dwi newydd greu'r gwymplen a'r lliwiau yn llwyddiannus fel y cynghorir. Rwyf wedi ceisio ychwanegu rhes arall felly mae gennyf 4 vs 3 cwymplen. Fe wnes i dorri a gludo a newid ond nid oes unrhyw liw yn dangos pan fyddaf yn dewis yr opsiwn hwn, unrhyw syniadau sut i drwsio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Peter,
Yn gyntaf, dylech greu'r gwymplen yn y tabl, ac yna *** yw eich pedwerydd testun cwymplen i'r cod fel y nodir isod:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
If ContentControl.Title = "Status" Then
Select Case .Text
Case "Complete" 'First drop down item
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Case "In Progress" 'Second drop down item
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Case "Not Start" 'Third drop down item
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Case "New Task" 'Fourth drop down item
.Cells(1).Shading.BackgroundPatternColor = wdColorYellow
Case Else
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
End Select
End If
End With
End Sub


Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
roedd hwn yn gweithio grât! Diolch. Ceisiais gymhwyso'r un cod i gwymplen arall yn yr un ddogfen ac rwy'n cael trafferth. Ddim yn gwybod sut i gael tweo yn y ffenestr VBA. Rwy'n cael 'gwall llunio, canfuwyd enw amwys: Document_ContentControlOnExit'
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf nodi lliwiau arferol? (rgb)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch am hyn. A oes ffordd o newid lliw'r testun yn unig ac nid y gell gyfan?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Shannon,
I newid lliw'r testun yn lle'r lliw cefndir, gall y cod VBA isod eich helpu chi, rhowch gynnig arni, gobeithio y gall eich helpu chi!

Is-Ddogfen Breifat_ContentControlOnExit(ByVal ContentControl Fel ContentControl, Canslo Fel Boolean)
Gyda ContentControl.Range
If ContentControl.Title = "Statws" Yna
Dewiswch Achos .Text
Achos "Cwblhawyd"
.Cells(1).Range.Font.Color = wdColorRed
Achos "Ar y Gweill"
.Cells(1).Range.Font.Color = wdColorGreen
Achos "Ddim yn Dechrau"
.Cells(1).Range.Font.Color = wdColorBlue
Achos Arall
.Cells(1).Range.Font.Color = wdColorAutomatic
Diwedd Dewis
Gorffennwch Os
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cael trafferth yma i gymhwyso hyn fel arddull yn hytrach na lliw neu arlliw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A gaf i addasu'r cod hwn i'w wneud yn tynnu sylw at unrhyw gwymplen heb restru pob un ohonynt?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn lle lliwiau, a allem ni ddefnyddio symbolau? fel os 'cwblhawyd' symbol arddangos gyda chod nod 252, os na ddechreuwyd yna symbol gyda chod nod 88 ac ati allwch chi rannu'r cod vba gan ddefnyddio symbolau fel plz arddangos?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae hyn yn ffantastig! A oes ffordd i ddewis o lawer o liwiau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sam,
I gymhwyso mwy o liw yr ydych yn ei hoffi, dylech ddefnyddio'r cod isod, a newid y lliw RGB i'ch angen:

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 = RGB(255, 0, 0)
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = RGB(0, 255, 64)
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = RGB(0, 0, 255)
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub


Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf liwio'r rhes gyfatebol gyfan yn lle cell yn unig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Jericho,
Gall y cod isod eich helpu i ddelio â'ch problem, rhowch gynnig arni: (Gallwch osod y lliw RGB i'ch angen)

Is-Ddogfen Breifat_ContentControlOnExit(ByVal ContentControl Fel ContentControl, Canslo Fel Boolean)
Gyda ContentControl.Range
If ContentControl.Title = "Statws" Yna
Dewiswch Achos .Text
Achos "Cwblhawyd"
.Rows.Shading.BackgroundPatternColor = RGB(255, 0, 0)
Achos "Ar y Gweill"
.Rows.Shading.BackgroundPatternColor = RGB(0, 255, 64)
Achos "Ddim yn Dechrau"
.Rows.Shading.BackgroundPatternColor = RGB(0, 0, 255)
Achos Arall
.Rows.Shading.BackgroundPatternColor = wdColorAutomatic
Diwedd Dewis
Gorffennwch Os
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, anhygoel !!! Ond a oes ffordd i newid lliw/testun cell arall yn yr un rhes ond mewn colofn wahanol? Er enghraifft: yn lle newid cefndir "Complete", newidiwch gefndir "Project-001". Helpwch fi os gwelwch yn dda. Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Jaimes,
I ddatrys eich problem, defnyddiwch y cod isod:
Nodyn: Yn y cod, y rhif 1 yn y sgript Cells(1) yw rhif colofn y tabl, gallwch ei newid i'ch angen.

Is-Ddogfen Breifat_ContentControlOnExit(ByVal ContentControl Fel ContentControl, Canslo Fel Boolean)
Gyda ContentControl.Range
If ContentControl.Title = "Statws" Yna
Dewiswch Achos .Text
Achos "Cwblhawyd"
.Rows(1).Cells(1).Shading.BackgroundPatternColor = wdColorRed
Achos "Ar y Gweill"
.Rows(1).Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Achos "Ddim yn Dechrau"
.Rows(1).Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Achos Arall
.Rows(1).Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Diwedd Dewis
Gorffennwch Os
Diwedd Gyda
Is-End

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes ffordd i wneud cwympiadau cod lliw lluosog o fewn un ddogfen? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am rannu hwn! Fodd bynnag, rwy'n rhedeg i mewn i quirk rhyfedd. Weithiau, pan fyddaf yn dewis eitem o gwymplen ac yna'n clicio mewn man arall yn y ddogfen iddi gymhwyso'r fformatio, nid yw'n gweithio. Mae'n dewis y gair cywir o'r gwymplen, ond mae'n aros yn arferol, testun du. Mae'n rhaid i mi ddadwneud yn ôl i cyn i mi ddewis unrhyw beth, ail-ddewis yr eitem o'r gwymplen, ac yna DIM OND cliciwch mewn cwymplen arall i gael y fformatio i wneud cais. Unrhyw syniadau ar pam ei fod yn gwneud hyn a sut y gallaf ei drwsio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dwi wedi dilyn y camau ychydig o weithiau drosodd ond dyw'r lliwiau ddim yn ymddangos o gwbl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am ddarparu hwn mae mor ddefnyddiol! Fodd bynnag, rwyf wedi dod ar draws byg. Pan fyddaf yn creu rhes newydd yn y tabl o dan gell sydd wedi cael y rhestr Gollwng, mae'n copïo lliw y gell uchod i'r gell hon heb y Rhestr Gollwng. Os byddaf wedyn yn copïo a gludo'r gwymplen a newid yr opsiwn, nid yw'n newid lliw y gell. All unrhyw un helpu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Ceisiais greu dau gwymplen cod lliw mewn un templed Word, fodd bynnag, rwy'n cael neges gwall yn dweud 'Canfuwyd enw amwys: Document_ContentControON EXIT. A fyddech cystal â rhoi gwybod i mi beth yr wyf wedi'i wneud yn anghywir?




Is-Ddogfen Breifat_ContentControlOnExit(ByVal ContentControl Fel ContentControl, Canslo Fel Boolean)

Gyda ContentControl.Range

If ContentControl.Title = "Gweithredu cywirol" Yna

Dewiswch Achos .Text

Achos "Mae angen camau cywiro"

.Cells(1).Shading.BackgroundPatternColor = wdColorRed

Achos "Dim angen gweithredu pellach"

.Cells(1).Shading.BackgroundPatternColor = wdColorGreen

Achos "Argymhellir gweithredu cywirol"

.Cells(1).Shading.BackgroundPatternColor = wdColorYellow

Achos Arall

.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic

Diwedd Dewis

Gorffennwch Os

Diwedd Gyda

Is-End

Is-Ddogfen Breifat_ContentControlOnExit(ByVal ContentControl Fel ContentControl, Canslo Fel Boolean)

Gyda ContentControl.Range

If ContentControl.Title = "Gweithredu cywirol ar gyfer cd" Yna

Dewiswch Achos .Text

Achos "Defnyddio cromlin CD newydd"

.Cells(1).Shading.BackgroundPatternColor = wdColorRed

Achos "Defnyddio cromlin CD sy'n bodoli"

.Cells(1).Shading.BackgroundPatternColor = wdColorGreen

Achos "Gwiriwch y gosodiad a'r Probe"

.Cells(1).Shading.BackgroundPatternColor = wdColorYellow

Achos Arall

.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic

Diwedd Dewis

Gorffennwch Os

Diwedd Gyda


Llawer o ddiolch ymlaen llaw am eich cefnogaeth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo - diolch yn fawr iawn am hyn. Sut ydw i'n ymgorffori cod i newid lliw'r ffont yn seiliedig ar ddewis o'r gwymplen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gweithiodd y cod post yn wreiddiol yn wych ond rydw i eisiau ei *** i gwymplen arall, pan fyddaf yn ceisio *** yr un cod i VB gyda newid i'r gwerth yn adran "statws" y llinell ganlynol:
If ContentControl.Title = "Statws" Yna
nid yw'n gweithio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, joni,Os oes dau dabl neu fwy o gwymplenni, does ond angen i chi gopïo a gludo'r cod isod i'r cod gwreiddiol, a newid y cyfeirnod testun i'ch angen.
If ContentControl.Title = "Statws" Yna
Dewiswch Achos .Text
Achos "Cwblhawyd"
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Achos "Ar y Gweill"
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Achos "Ddim yn Dechrau"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Achos Arall
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Diwedd Dewis
Gorffennwch Os


Dylai'r cod cyflawn fod fel a ganlyn: Is-Ddogfen Breifat_ContentControlOnExit(ByVal ContentControl Fel ContentControl, Canslo Fel Boolean)
Gyda ContentControl.Range
If ContentControl.Title = "Statws" Yna
Dewiswch Achos .Text
Achos "Cwblhawyd"
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Achos "Ar y Gweill"
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Achos "Ddim yn Dechrau"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Achos Arall
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Diwedd Dewis
Gorffennwch Os
If ContentControl.Title = "Enw" Yna
Dewiswch Achos .Text
Achos "Lucy"
.Cells(1).Shading.BackgroundPatternColor = wdColorOrange
Achos "Skyyang"
.Cells(1).Shading.BackgroundPatternColor = wdColorYellow
Achos "Ruby"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Achos Arall
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Diwedd Dewis
Gorffennwch Os
Diwedd Gyda
Diwedd SubPlease Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd hyn yn wych, diolch am eich cymorth.
Rwyf hefyd yn ceisio darganfod dull ar gyfer y canlynol:
Mae gen i ddwy gell sydd â gwerth rhifiadol. Mewn celI ar wahân rwyf am luosi'r gwerthoedd hyn, os yw'r canlyniad yn disgyn o fewn tair ystod rhifiadol gosodedig hoffwn i'r gell arddangos testun yn seiliedig ar y gwerthoedd amrediad.
Os mai difrifoldeb risg perygl yw 3
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn hynod ddefnyddiol ac fe'i gweithredais yn llwyddiannus. Dwi'n pendroni sut alla i hefyd newid lliw y testun ar yr un rhes Rwyf wedi newid lliw'r cefndir yn barod. ae. mae lliw y rhes gefndir yn goch, ond dwi eisiau i'r testun fod yn wyn nid yn ddu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cyfarwyddyd anhygoel - gweithio'n berffaith! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Allwch chi roi cod lliw i'r golofn nesaf, yn lle'r gwymplen? Er enghraifft, dim cod lliw yn y golofn "Statws" (dim ond dewisiadau), ond cod lliw yn y golofn gyfagos? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallaf gael y lliwiau i weithio gyda'r gwymplen ond dim ond ar ôl clicio ar y tag "status". A all y tag staus ddiflannu? Gan fy mod yn meddwl nid yw'n edrych yn braf pan fydd y ddogfen wedi'i chwblhau
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir