KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come inserire un elenco a discesa con codifica a colori in una tabella di Word?

AutoreXiaoyang Data di modifica

Immagina di avere una tabella nel tuo documento Word e di voler inserire in una delle sue colonne un elenco a discesa con codifica a colori: ogni volta che selezioni un’opzione dall’elenco, il colore della cella cambia automaticamente — ad esempio, rosso per una scelta e verde per un’altra, come illustrato nell’immagine seguente.

Demo che mostra il cambio di colore di una cella quando viene selezionato un elemento dall'elenco a discesa

Inserisci un Elenco a discesa con codifica a colori nel documento di Word mediante codice VBA

I seguenti passaggi ti guideranno nell’inserimento di un Elenco a discesa in una cella della tabella e nell’applicazione di Colore di Sfondo alla cella in base all’elemento selezionato:

  1. Seleziona una cella della tabella in cui vuoi inserire l’elenco a discesa, quindi clicca su «Sviluppo» > «Elenco a discesa Controllo contenuto».

    Nota: Se non vedi la scheda Sviluppo nella barra multifunzione, visita: Come visualizzare la scheda Sviluppo nella barra multifunzione di Word.

    Pulsante Controllo contenuto Elenco a discesa nella barra multifunzione
  2. L’elenco a discesa viene inserito nella cella specificata. Clicca quindi su «Sviluppo» > «Proprietà».
  3. Elenco a discesa inserito in una cella specifica con l'opzione Proprietà evidenziata
  4. Nella finestra di dialogo «Proprietà controllo contenuto», procedi come segue:
    1. Inserisci il nome del titolo nella casella di testo “Titolo”.
    2. Fai clic sul pulsante «Aggiungi» per aprire la finestra di dialogo «Aggiungi scelta».
    3. Digita «Elenco a discesa» nella casella di testo «Nome visualizzato».
      Finestra di dialogo Proprietà controllo contenuto e finestra di dialogo Aggiungi scelta
  5. Ripeti il passaggio 3 per aggiungere altri elementi Elenco a discesa, se necessario.
  6. Dopo aver creato il primo elenco a discesa, puoi copiarlo e incollarlo in altre celle.
    Elenco a discesa copiato in altre celle
  7. Tieni premuto ALT + F11per aprire la finestra «Microsoft Visual Basic, Applications».
  8. Nella finestra di Microsoft Visual Basic, Applications, fai doppio clic su «QuestoDocumento» nel riquadro «Progetto» per aprire il modulo, quindi copia il codice seguente e incollalo nel modulo vuoto:
    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: Nel codice riportato sopra, «Status» è il nome del titolo utilizzato durante la creazione dell’elenco a discesa, mentre «Complete», «In Progress» e «Not Start» sono gli elementi. Puoi personalizzare questi valori e i relativi colori in base alle tue esigenze.

    Finestra VBA con QuestoDocumento selezionato, che mostra il codice incollato nel modulo vuoto
  9. Chiudi la finestra del codice. Ora, quando selezioni un elemento dall’elenco a discesa, la cella verrà riempita con il colore corrispondente.
    Demo che mostra il cambio di colore di una cella quando viene selezionato un elemento dall'elenco a discesa

Migliori strumenti per la produttività in Office

Kutools per Word – Migliora la tua esperienza con Word grazie a oltre 100 funzionalità eccezionali!

🤖Funzionalità KUTOOLS AI: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni formato) / Super Traduci (Mantieni formato) / Redazione AI / Correzione AI

📘Padronanza dei documenti: Dividi pagine, unisci documenti, esporta la selezione in vari formati (PDF, TXT, DOC, HTML…) e conversione batch in PDF

Modifica contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne della tabella / Converti tabella in testo

🧹Pulizia senza sforzo: Elimina in un attimo spazi extra, interruzioni di sezione, caselle di testo e collegamenti ipertestuali. Per altri strumenti di rimozione, vai al gruppo Rimuovi

Inserimenti creativi: Inserisci separatori delle migliaia, caselle di controllo, pulsanti di opzione, codici QR, codici a barre e immagini multiple. Scopri di più nel gruppo Inserisci

🔍Selezioni precise: Individua con precisione pagine specifiche, tabelle, forme, paragrafi di intestazione e migliora la navigazione con altre funzionalità ...Seleziona...

Miglioramenti stellari: Passa a qualsiasi posizione / Inserimento automatico di testo ripetitivo / Alterna tra i documenti Windows / 11 strumenti di conversione Strumenti di...

🌍Supporta oltre 40 lingue: Usa Kutools nella tua lingua preferita – tra cui inglese, spagnolo, tedesco, francese, cinese e molte altre!

Schede Kutools for Word nella barra multifunzione
 
 

Office Tab- Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, anziché in nuove finestre.
  • Aumenta la tua produttività del 50 % e riduci centinaia di clic del mouse ogni giorno!

✨ Kutools for Office – Un’installazione, cinque strumenti potenti!

Include Office Tab Pro·Kutools per Excel·Kutools per Outlook·Kutools per Word·Kutools for PowerPoint

📦 Ottieni tutti gli 5 strumenti in un’unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta immediatamente la produttività

Migliori strumenti per la produttività in Office

Kutools per Word- Strumenti 100+ per Word