Skip to main content

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

Author: Xiaoyang Last Modified: 2025-08-06

Supponiamo che tu abbia una tabella nel tuo Documento Word e ora desideri inserire un elenco a discesa codificato a colori in una colonna della tabella. Questo significa che quando selezioni un'opzione dall'elenco a discesa, il colore della cella diventa rosso, e quando ne selezioni un'altra, il colore della cella diventa verde, come mostrato nello screenshot sottostante:

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

Inserisci un elenco a discesa codificato a colori in un Documento Word con il codice VBA

I seguenti passaggi ti guideranno attraverso l'inserimento di un elenco a discesa in una cella della tabella e l'applicazione del colore di sfondo alla cella in base all'elemento selezionato:

  1. Seleziona una cella nella tabella dove vuoi inserire l'elenco a discesa, quindi fai clic su "Sviluppatore" > "Controllo contenuto Elenco a discesa".

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

    Drop-Down List Content Control button on the ribbon
  2. L'elenco a discesa viene inserito nella cella specifica. Quindi fai clic su "Sviluppatore" > "Proprietà".
    3. Drop-down inserted into a specific cell with Properties option highlighted
  3. Nella finestra di dialogo "Proprietà controllo contenuto", esegui le seguenti operazioni:
    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 l'elemento dell'elenco a discesa nella casella di testo "Nome visualizzato".
      Content Control Properties dialog box and Add Choice dialog box
  4. Ripeti il Passaggio 3 per inserire altri elementi dell'elenco a discesa secondo necessità.
  5. Dopo aver creato il primo elenco a discesa, puoi copiarlo e incollarlo in altre celle.
    Drop-down list copied to other cells
  6. Tieni premuto ALT + F11 per aprire la finestra "Microsoft Visual Basic for Applications".
  7. Nella finestra Microsoft Visual Basic for Applications, fai doppio clic su "ThisDocument" dal riquadro "Progetto" per aprire il modulo. Quindi copia e incolla il seguente codice 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 sopra, "Stato" è il nome del titolo utilizzato durante la creazione dell'elenco a discesa, e "Completato", "In corso" e "Non avviato" sono gli elementi. Puoi modificare questi valori e i colori corrispondenti secondo necessità.

    VBA window with ThisDocument selected, showing code pasted into the blank module
  8. Salva e chiudi la finestra del codice. Ora, quando selezioni un elemento dall'elenco a discesa, il colore corrispondente riempirà la cella.
    Demo showing a cell's color changing when an item is selected from the drop-down list

I migliori strumenti per la produttività in ufficio

Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!

🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...

📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...

✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...

➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...

⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools per Word! 🚀
 

I migliori strumenti per la produttività in ufficio

Kutools per Word - 100+ Strumenti per Word

Download gratuito Acquista ora Scopri di più su Kutools