Skip to main content

Como inserir uma lista suspensa codificada por cores em uma tabela do Word?

Author: Xiaoyang Last Modified: 2025-08-06

Suponha que você tenha uma tabela no seu Documento do Word e agora deseja inserir uma lista suspensa codificada por cores em uma coluna da tabela. Isso significa que, ao selecionar uma opção na lista suspensa, a cor da célula se torna vermelha, e ao selecionar outra, a cor da célula se torna verde, conforme mostrado na captura de tela abaixo:

Demo showing a cell's color changing when an item is selected from the drop-down list

Inserir lista suspensa codificada por cores no Documento do Word com código VBA

Os seguintes passos irão guiá-lo para inserir uma lista suspensa em uma célula da tabela e aplicar a cor de fundo à célula com base no item selecionado:

  1. Selecione uma célula na tabela onde deseja inserir a lista suspensa e, em seguida, clique em "Desenvolvedor" > "Controle de Conteúdo de Lista Suspensa".

    Observação: Se você não visualizar a guia Desenvolvedor na faixa de opções, visite: Como mostrar a guia Desenvolvedor na faixa de opções do Word.

    Drop-Down List Content Control button on the ribbon
  2. A lista suspensa é inserida na célula específica. Em seguida, clique em "Desenvolvedor" > "Propriedades".
    3. Drop-down inserted into a specific cell with Properties option highlighted
  3. Na caixa de diálogo "Propriedades do Controle de Conteúdo", faça o seguinte:
    1. Digite o nome do título na caixa de texto "Título".
    2. Clique no botão "Adicionar" para abrir a caixa de diálogo "Adicionar Escolha".
    3. Digite o item da lista suspensa na caixa de texto "Nome de Exibição".
      Content Control Properties dialog box and Add Choice dialog box
  4. Repita a Etapa 3 para inserir outros itens da lista suspensa conforme necessário.
  5. Após criar a primeira lista suspensa, você pode copiá-la e colá-la em outras células.
    Drop-down list copied to other cells
  6. Pressione e segure ALT + F11 para abrir a janela "Microsoft Visual Basic for Applications".
  7. Na janela Microsoft Visual Basic for Applications, clique duas vezes em "ThisDocument" no painel "Projeto" para abrir o módulo. Depois, copie e cole o seguinte código no módulo em branco: 
    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

    Observação: No código acima, "Status" é o nome do título usado ao criar a lista suspensa, e "Concluído", "Em Andamento" e "Não Iniciado" são os itens. Você pode alterar esses valores e as cores correspondentes conforme necessário.

    VBA window with ThisDocument selected, showing code pasted into the blank module
  8. Salve e feche a janela de código. Agora, quando você selecionar um item da lista suspensa, a cor correspondente preencherá a célula.
    Demo showing a cell's color changing when an item is selected from the drop-down list

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio do Documento: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Múltiplos Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Livre-se de Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...

⭐ Aprimoramentos Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documento /11 Ferramentas de Conversão...

🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools