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

Kako v tabelo Word vstaviti barvno kodiran spustni seznam?

Recimo, da imam v svojem Wordovem dokumentu tabelo, zdaj pa želim v stolpec tabele vstaviti barvno kodiran spustni seznam. To pomeni, da ko v spustnem meniju izberem eno možnost, barva celice postane rdeča, in ko v spustnem meniju izberem drugo možnost, barva celice postane zelena, kot je prikazano na sliki spodaj. Kako ste lahko rešili to nalogo v dokumentu Word?

spustni meni z barvno oznako dokumenta

V Wordov dokument vstavite barvno kodiran spustni seznam s kodo VBA


V Wordov dokument vstavite barvno kodiran spustni seznam s kodo VBA

Naslednji koraki vam lahko pomagajo dokončati to nalogo po potrebi, najprej vstavite spustni seznam in nato s spustnim menijem uporabite barvo. Naredite to:

1. V tabeli izberite celico, kamor želite vstaviti spustni meni, in kliknite Razvojni > Nadzor vsebine spustnega seznama ikona, glej posnetek zaslona:

spustni meni z barvno oznako dokumenta 1

2. Spustni meni se vstavi v določeno celico in nato kliknite Razvojni > Nepremičnine, glej posnetek zaslona:

spustni meni z barvno oznako dokumenta 2

3. v Lastnosti nadzora vsebine pogovorno okno, naredite naslednje:

(1.) Vnesite ime naslova v Naslov besedilno polje;

(2.) Kliknite Dodaj pojdite na Dodaj izbiro pogovorno okno;

(3.) V Dodaj izbiro v pogovorno okno vnesite element spustnega seznama v Display Name Polje z besedilom.

spustni meni z barvno oznako dokumenta 3

4. Ponovite 3. korak, da po potrebi vstavite druge spustne sezname.

5. Po ustvarjanju prvega spustnega seznama ga lahko kopirate in prilepite v druge celice, kot jih potrebujete. Oglejte si posnetek zaslona:

spustni meni z barvno oznako dokumenta 4

6. Nato uporabite kodo VBA, pridržite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

7. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta dokument Iz Projekt-projekt , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: V tabelo Wordovega dokumenta vstavite spustni seznam z barvnim kodiranjem:

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

spustni meni z barvno oznako dokumenta 5

Opombe: V zgornji kodi, Status je ime naslova pri ustvarjanju spustnega seznama in Dokončati, V teku, Ne začni so elementi s spustnega seznama, jih lahko spremenite v svoje. Barvo lahko spremenite tudi po svoji potrebi.

8. Nato shranite in zaprite okno s kodo. Ko izberete en element s spustnega seznama, bo njegova relativna barva napolnjena s celico, glejte sliko zaslona:

spustni meni z barvno oznako dokumenta


 


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...

 

Komentarji (47)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Ko zapustim in znova odprem program, moram znova vnesti kodo VBA. Kako naj naredim tako, da prihrani?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Če želite shraniti kodo vba, ko naslednjič odprete datoteko, shranite word datoteko kot Wordov format dokumenta z omogočenimi makronaredi. Prosim, poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, pravkar sem uspešno ustvaril spustni seznam in barve, kot so svetovali. Poskušal sem dodati nadaljnjo vrstico, tako da imam spustne liste 4 proti 3. Izrezal sem, prilepil in spremenil, vendar se barva ne prikaže, ko izberem to možnost, imate kakšne ideje, kako popraviti?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Peter,
Najprej ustvarite spustni seznam v tabeli, nato pa *** svoje četrto spustno besedilo v kodo, kot je spodaj:

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


Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
to je delovalo grate! Hvala. Poskušal sem uporabiti isto kodo v drugem spustnem polju z vsebino v istem dokumentu in imam težave. Ne vem, kako dobiti tweo v oknu VBA. Dobim »napako pri prevajanju, zaznano je dvoumno ime: Document_ContentControlOnExit«
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko vnesem barve po meri? (rgb)
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, hvala za to. Ali obstaja način, da spremenite samo barvo besedila in ne celotne celice?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Shannon,
Če želite spremeniti barvo besedila namesto barve ozadja, vam lahko pomaga spodnja koda VBA, poskusite, upam, da vam bo pomagala!

Zasebni poddokument_ContentControlOnExit(ByVal ContentControl kot ContentControl, Prekliči kot Boolean)
Z ContentControl.Range
Če ContentControl.Title = "Status" Potem
Izberite Primer .Besedilo
Primer "dokončan"
.Cells(1).Range.Font.Color = wdColorRed
Primer "V teku"
.Cells(1).Range.Font.Color = wdColorGreen
Primer "Ne začne se"
.Cells(1).Range.Font.Color = wdColorBlue
Drugi primer
.Cells(1).Range.Font.Color = wdColorAutomatic
Konec Izberi
Konec Če
Končaj s
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Tukaj se trudim uporabiti to kot slog in ne kot barvo ali odtenek.
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko spremenim to kodo tako, da označuje katero koli spustno izbiro, ne da bi jih vse navedel?
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko namesto barv uporabimo simbole? na primer, če je 'dokončan' prikazni simbol z znakom kodo 252, če se ne začne, potem simbol z znakom kodo 88 itd. ali lahko delite kodo vba z uporabo simbolov kot prikaz, plz?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, to je fantastično! Ali obstaja način, da izbirate med številnimi barvami?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Sam,
Če želite uporabiti več barv, ki jih želite, uporabite spodnjo kodo in spremenite barvo RGB glede na vaše potrebe:

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


Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko pobarvam celotno ustrezno vrstico namesto samo celice?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Jericho,
Spodnja koda vam lahko pomaga pri reševanju vaše težave, poskusite jo: (Barvo RGB lahko nastavite po svojih potrebah)

Zasebni poddokument_ContentControlOnExit(ByVal ContentControl kot ContentControl, Prekliči kot Boolean)
Z ContentControl.Range
Če ContentControl.Title = "Status" Potem
Izberite Primer .Besedilo
Primer "dokončan"
.Rows.Shading.BackgroundPatternColor = RGB(255, 0, 0)
Primer "V teku"
.Rows.Shading.BackgroundPatternColor = RGB(0, 255, 64)
Primer "Ne začne se"
.Rows.Shading.BackgroundPatternColor = RGB(0, 0, 255)
Drugi primer
.Rows.Shading.BackgroundPatternColor = wdColorAutomatic
Konec Izberi
Konec Če
Končaj s
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, super!!! Toda ali obstaja način za spremembo barve/besedila druge celice v isti vrstici, vendar v drugem stolpcu? Na primer: namesto da spremenite ozadje "Complete", spremenite ozadje "Project-001" . Pomagaj mi prosim. Hvala vnaprej
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Jaimes,
Če želite rešiti težavo, uporabite spodnjo kodo:
Opomba: V kodi je številka 1 v skripti Cells(1) številka stolpca tabele, lahko jo spremenite po svojih željah.

Zasebni poddokument_ContentControlOnExit(ByVal ContentControl kot ContentControl, Prekliči kot Boolean)
Z ContentControl.Range
Če ContentControl.Title = "Status" Potem
Izberite Primer .Besedilo
Primer "dokončan"
.Rows(1).Cells(1).Shading.BackgroundPatternColor = wdColorRed
Primer "V teku"
.Rows(1).Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Primer "Ne začne se"
.Rows(1).Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Drugi primer
.Rows(1).Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Konec Izberi
Konec Če
Končaj s
End Sub

Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, ali obstaja način za več barvno kodiranih spustnih menijev v enem dokumentu? Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, ker ste to delili! Vendar pa naletim na čudno čudo. Včasih, ko iz spustnega menija izberem element in nato kliknem drugje v dokumentu, da uporabim oblikovanje, ne deluje. Iz spustnega menija izbere ustrezno besedo, vendar ostane samo običajno črno besedilo. Moram razveljaviti nazaj, preden sem karkoli izbral, ponovno izbrati element v spustnem meniju in nato SAMO klikniti v drugem spustnem meniju, da se uporabi oblikovanje. Kakšne ideje o tem, zakaj to počne in kako lahko to popravim?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, nekajkrat sem sledil korakom, vendar se barve sploh ne pojavijo?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, ker ste to zagotovili, tako je v pomoč! Vendar sem naletel na napako. Ko ustvarim novo vrstico v tabeli pod celico, ki je imela spustni seznam, kopira barvo zgornje celice v to celico brez spustnega seznama. Če nato kopiram in prilepim spustni seznam ter spremenim možnost, ne spremeni barve celice. Ali lahko kdo pomaga?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

Poskušal sem ustvariti dva spustna seznama barvnih kod v eni Wordovi predlogi, vendar dobim sporočilo o napaki, ki pravi »Zaznano je bilo dvoumno ime: Document_ContentControON EXIT. Ali mi lahko prosim sporočite, kaj sem naredil narobe?




Zasebni poddokument_ContentControlOnExit(ByVal ContentControl kot ContentControl, Prekliči kot Boolean)

Z ContentControl.Range

Če ContentControl.Title = "Popravni ukrep" Potem

Izberite Primer .Besedilo

Primer "Potreben je popravni ukrep"

.Cells(1).Shading.BackgroundPatternColor = wdColorRed

Primer "Ni potrebno ukrepati"

.Cells(1).Shading.BackgroundPatternColor = wdColorGreen

Primer "Priporočen popravni ukrep"

.Cells(1).Shading.BackgroundPatternColor = wdColorYellow

Drugi primer

.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic

Konec Izberi

Konec Če

Končaj s

End Sub

Zasebni poddokument_ContentControlOnExit(ByVal ContentControl kot ContentControl, Prekliči kot Boolean)

Z ContentControl.Range

Če ContentControl.Title = "Popravni ukrep za cd" Nato

Izberite Primer .Besedilo

Primer "Uporabi novo krivuljo Cd"

.Cells(1).Shading.BackgroundPatternColor = wdColorRed

Primer "Uporabi obstoječo krivuljo Cd"

.Cells(1).Shading.BackgroundPatternColor = wdColorGreen

Primer "Preverite nastavitev in sondo"

.Cells(1).Shading.BackgroundPatternColor = wdColorYellow

Drugi primer

.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic

Konec Izberi

Konec Če

Končaj s


Najlepša hvala že vnaprej za vašo podporo.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni - najlepša hvala za to. Kako vključim kodo za spremembo barve pisave glede na izbiro s spustnega seznama.
Ta komentar je moderator na spletnem mestu minimiziral
prvotna poštna koda je delovala odlično, vendar jo želim ***** v drugo spustno polje, ko poskusim *** isto kodo v VB s spremembo vrednosti v razdelku "status" v naslednji vrstici:
Če ContentControl.Title = "Status" Potem
ne deluje?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, joni, če obstajata dve ali več tabel s spustnimi seznami, morate samo kopirati in prilepiti spodnjo kodo v izvirno kodo ter spremeniti sklic besedila glede na vaše potrebe.
Če ContentControl.Title = "Status" Potem
Izberite Primer .Besedilo
Primer "dokončan"
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Primer "V teku"
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Primer "Ne začne se"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Drugi primer
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Konec Izberi
Konec Če


Celotna koda bi morala biti naslednja: Zasebni poddokument_ContentControlOnExit(ByVal ContentControl kot ContentControl, Prekliči kot Boolean)
Z ContentControl.Range
Če ContentControl.Title = "Status" Potem
Izberite Primer .Besedilo
Primer "dokončan"
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Primer "V teku"
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Primer "Ne začne se"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Drugi primer
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Konec Izberi
Konec Če
Če ContentControl.Title = "Ime" Potem
Izberite Primer .Besedilo
Primer "Lucy"
.Cells(1).Shading.BackgroundPatternColor = wdColorOrange
Primer "Skyyang"
.Cells(1).Shading.BackgroundPatternColor = wdColorYellow
Zadeva "Ruby"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Drugi primer
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
Konec Izberi
Konec Če
Končaj s
Konec SubProsim, poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
To je delovalo fantastično, hvala za pomoč.
Poskušam najti tudi metodo za naslednje:
Imam dve celici, ki imata številsko vrednost. V ločeni celici želim te vrednosti pomnožiti, če rezultat pade v tri nastavljene številčne obsege, bi rad, da celica prikaže besedilo na podlagi vrednosti obsega.
Če je resnost nevarnosti 3
Ta komentar je moderator na spletnem mestu minimiziral
To je bilo zelo koristno in uspešno sem ga implementiral. Zanima me, kako lahko spremenim tudi barvo besedila v isti vrstici, saj sem že spremenil barvo ozadja. Npr. barva vrstice ozadja je rdeča, vendar želim, da je besedilo belo in ne črno?
Ta komentar je moderator na spletnem mestu minimiziral
Super navodilo - delovalo odlično! Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Ali lahko barvno kodirate naslednji stolpec namesto stolpca spustnega seznama? Na primer, v stolpcu »Stanje« ni barvne kode (samo izbire), barvna koda pa v sosednjem stolpcu? Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Barve lahko uporabim za delovanje s spustnim seznamom, vendar šele po kliku na oznako "status". Ali lahko oznaka staus izgine? Mislim, da ne izgleda lepo, ko je dokument dokončan
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL