KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como inserir uma lista suspensa com codificação por cores numa tabela do Word?

AutorXiaoyang Data de Modificação

Imagine que tem uma tabela no seu documento do Word e pretende inserir, numa das suas colunas, uma lista suspensa com codificação por cores. Isto significa que, ao selecionar uma opção da lista, a célula fica vermelha; ao escolher outra, a cor muda para verde — tal como ilustrado na imagem seguinte:

Demonstração que mostra a cor de uma célula a mudar quando um item é selecionado na lista pendente

Inserir Lista suspensa com codificação por cores num documento do Word com código VBA

Os passos seguintes irão orientá-lo na inserção de um Lista suspensa numa célula da tabela e na aplicação de Cor de Fundo à célula com base no item selecionado:

  1. Selecione uma célula na tabela onde pretende inserir a lista pendente e, em seguida, clique em «Programador» > «Controlo de Conteúdo – Lista suspensa».

    Nota: Se não vir o separador Programador no Friso, visite: Como mostrar o separador Programador no Friso do Word.

    Botão Controlo de Conteúdo de Lista Pendente no separador
  2. A lista pendente é inserida na célula específica. Em seguida, clique em «Programador» > «Propriedades».
    3. Lista pendente inserida numa célula específica com a opção Propriedades destacada
  3. Na caixa de diálogo «Propriedades do Controlo de Conteúdo», execute os seguintes passos:
    1. Introduza 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. Escreva «Lista suspensa» na caixa de texto «Nome de Apresentação».
      Caixa de diálogo Propriedades do Controlo de Conteúdo e caixa de diálogo Adicionar Escolha
  4. Repita o Passo 3 para inserir mais itens na lista suspensa, conforme necessário.
  5. Após criar a primeira lista suspensa, pode copiá-la e colá-la noutras células.
    Lista pendente copiada para outras células
  6. Mantenha premida a tecla ALT + F11 para abrir a janela «Microsoft Visual Basic para Aplicações».
  7. Na janela do Microsoft Visual Basic para Aplicações, faça duplo clique em «EsteDocumento» no painel «Projeto» para abrir o módulo. Depois, copie e cole o código seguinte 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

    Nota: No código acima, «Status» é o nome do título utilizado ao criar a lista suspensa, e «Complete», «In Progress» e «Not Start» são os itens. Pode alterar estes valores e as respetivas cores conforme necessário.

    Janela do VBA com EsteDocumento selecionado, mostrando o código colado no módulo em branco
  8. Feche a janela de código. Agora, ao selecionar um item na lista suspensa, a célula será preenchida com a cor correspondente.
    Demonstração que mostra a cor de uma célula a mudar quando um item é selecionado na lista pendente

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: 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 de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...

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

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Kutools for Word separadores no friso
 
 

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

Transferência GratuitaComprar AgoraSaber Mais sobre o Kutools