Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com inserir la llista desplegable codificada amb colors a la taula de paraules?

Suposant, tinc una taula en el meu document de Word, i ara, vull inserir una llista desplegable codificada amb colors en una columna de la taula. Significa que quan selecciono una opció des del menú desplegable, el color de la cel·la es torna vermell, i quan selecciono una altra opció al menú desplegable, el color de la cel·la es torna verd com es mostra a la següent captura de pantalla. Com es pot resoldre aquest treball en el document de Word?

Desplegable de codi de color doc

Insereix una llista desplegable codificada amb colors en el document de Word amb codi VBA


Insereix una llista desplegable codificada amb colors en el document de Word amb codi VBA

Els següents passos us poden ajudar a finalitzar aquesta tasca tal com necessiteu, primer, inseriu la llista desplegable i, a continuació, apliqueu el color del menú desplegable. Feu el següent:

1. Seleccioneu una cel·la a la taula on voleu inserir el menú desplegable i feu clic a Revelador > Control de contingut de llista desplegable icona, veure captura de pantalla:

codi de color del document desplegable 1

2. El menú desplegable s'insereix a la cel·la específica i, a continuació, feu clic a Revelador > Propietats, veure captura de pantalla:

codi de color del document desplegable 2

3. Al Propietats del control del contingut quadre de diàleg, feu les següents operacions:

(1.) Introduïu el nom del títol al fitxer títol Caixa de text;

(2.) Feu clic Add botó anar al Afegir elecció diàleg;

(3.) Al Afegir elecció diàleg, escriviu l 'element de la llista desplegable al Mostra nom Caixa de text.

codi de color del document desplegable 3

4. Repetiu el pas 3 per inserir altres elements de la llista desplegable com necessiteu.

5. Després de crear la primera llista desplegable, podeu copiar-la i enganxar-la a altres cel·les com vulgueu. Mostra la captura de pantalla:

codi de color del document desplegable 4

6. A continuació, hauríeu d'aplicar un codi VBA, si us plau, manteniu premut el ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

7. Al Microsoft Visual Basic per a aplicacions finestra, feu doble clic Aquest document des de la Projecte-Projecte panell per obrir el mode i, a continuació, copieu i enganxeu el següent codi al mòdul en blanc.

Codi VBA: introduïu una llista desplegable codificada amb colors a la taula d'un document de 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

codi de color del document desplegable 5

Nota: En el codi anterior, Estat és el nom del títol quan es crea la llista desplegable, i Completar, En progrés, No s'inicia són els elements de la llista desplegable, podeu canviar-los pel vostre compte. I també podeu canviar el color a la vostra necessitat.

8. A continuació, deseu i tanqueu la finestra del codi, ara, quan seleccioneu un element de la llista desplegable, el color relatiu s'omplirà amb la cel·la, vegeu la captura de pantalla:

Desplegable de codi de color doc




Kutools per a la paraula

Més de 100 Advanced Functions per Word 2003, 2007, 2010, 2013, 2016 i 2019

shot-kutools-700-225-kte

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

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.
    Patti · 1 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 · 1 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 · 1 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 · 1 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 · 3 months ago
    Could I enter custom colors? (rgb)
  • To post as a guest, your comment is unpublished.
    Paul · 3 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'
  • To post as a guest, your comment is unpublished.
    Z · 4 months ago
    When I exit and reopen the program, I have to reenter the VBA code. How do I make it so that it saves?
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello,
      To save the vba code when opening the file next time, you should save the word file as Word Macro-Enabled Document format. Please try it, hope it can help you!