Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako vstaviti spustni seznam barvnih kod v tabeli Word?

Če menim, da imam tabelo v dokumentu Worda, zdaj pa želim v stolpcu tabele vstaviti spustni seznam z barvnim kodiranjem. To pomeni, ko iz padca izberem eno možnost, bo barva celice postala rdeča, in ko v spustnem meniju izberem drugo možnost, bo barva celice postala zelena, kot prikazuje naslednja slika zaslona. Kako lahko to delo rešite v Wordu?

doc barvno kodo spustite navzdol

Vstavite seznam padajočih barvnih kod v dokumentu Word s kodo VBA


Vstavite seznam padajočih barvnih kod v dokumentu Word s kodo VBA

Naslednji koraki vam lahko pomagajo dokončati to nalogo, kot jo potrebujete, najprej vstavite spustni seznam in nato uporabite barvo spustnega menija. Prosimo, naredite tako:

1. Izberite celico v tabeli, kamor želite vstaviti spustni seznam, in nato kliknite Razvojni > Nadzor vsebine na seznamu padajočih seznamov ikona, glejte sliko zaslona:

doc barvno kodo pade navzdol 1

2. Spusti se vstavijo v določeno celico in nato kliknite Razvojni > Nepremičnine, si oglejte sliko zaslona:

doc barvno kodo pade navzdol 2

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

(1.) Vnesite ime naslova v Naslov polje z besedilom;

(2.) Kliknite Dodaj gumb pojdite na Dodaj izbiro dialog;

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

doc barvno kodo pade navzdol 3

4. Ponovite korak 3, da vstavite druge predmete spustnega seznama, kot jih potrebujete.

5. Ko ustvarite prvi spustni seznam, ga lahko kopirate in prilepite v druge celice, kot jih potrebujete. Prikaz slike:

doc barvno kodo pade navzdol 4

6. Potem morate uporabiti kodo VBA, prosimo, 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 o Projektni projekt da odprete način, nato pa kopirajte in prilepite naslednjo kodo v prazen modul.

VBA koda: Vstavite seznam padajočih barvnih kod v tabelo dokumenta 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

doc barvno kodo pade navzdol 5

Opombe: V zgornji kodi, Status ime naslova, ko ustvarite spustni seznam, in Dokončati, V teku, Ne zaženi so elementi na spustnem seznamu, jih lahko spremenite sami. Barva lahko spremenite tudi v svojo potrebo.

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

doc barvno kodo spustite navzdol




Priporočena orodja za produktivnost Worda

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Raj · 1 months ago
    Instead of colors, could we use symbols? like if 'completed' display symbol with character code 252, if not started then symbol with character code 88 etc. can you share the vba code using symbols as display plz?
  • To post as a guest, your comment is unpublished.
    Patti · 3 months ago
    Could I modify this code to have it highlight any drop down choice without listing all of them out?
  • To post as a guest, your comment is unpublished.
    Shannon · 4 months ago
    Hi, Thank you for this. Is there a way of only changing the text color and not the entire cell?
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hi, Shannon,
      To change the text color instead of the background color, the below VBA code can help you, please try it, hope it can help you!

      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).Range.Font.Color = wdColorRed
      Case "In Progress"
      .Cells(1).Range.Font.Color = wdColorGreen
      Case "Not Start"
      .Cells(1).Range.Font.Color = wdColorBlue
      Case Else
      .Cells(1).Range.Font.Color = wdColorAutomatic
      End Select
      End If
      End With
      End Sub
      • To post as a guest, your comment is unpublished.
        Bryan Rantala · 4 months ago
        Struggling here to apply this as a style rather than a color or shade.
  • To post as a guest, your comment is unpublished.
    mark · 6 months ago
    Could I enter custom colors? (rgb)
  • To post as a guest, your comment is unpublished.
    Paul · 6 months ago
    this worked grate! Thanks. I tried to apply same code to another drop down content box in same document and I'm having trouble. Don't know how to get tweo in the VBA window. I get 'compile error, Ambiguous name detected: Document_ContentControlOnExit'