Come inserire un elenco a discesa con codifica a colori in una tabella di Word?
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.

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:
- 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.

- L’elenco a discesa viene inserito nella cella specificata. Clicca quindi su «Sviluppo» > «Proprietà».
- Nella finestra di dialogo «Proprietà controllo contenuto», procedi come segue:
- Inserisci il nome del titolo nella casella di testo “Titolo”.
- Fai clic sul pulsante «Aggiungi» per aprire la finestra di dialogo «Aggiungi scelta».
- Digita «Elenco a discesa» nella casella di testo «Nome visualizzato».

- Ripeti il passaggio 3 per aggiungere altri elementi Elenco a discesa, se necessario.
- Dopo aver creato il primo elenco a discesa, puoi copiarlo e incollarlo in altre celle.

- Tieni premuto ALT + F11per aprire la finestra «Microsoft Visual Basic, Applications».
- 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 SubNota: 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.

- Chiudi la finestra del codice. Ora, quando selezioni un elemento dall’elenco a discesa, la cella verrà riempita con il colore corrispondente.


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!

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
- 🤖KUTOOLS AI Funzionalità:Assistente AI/Assistente in Tempo Reale/Super Lucida/Super Traduci/Redazione AI/Correzione AI
- 📘Padronanza dei documenti:Dividi pagine/Unisci Documenti/Conversione batch in PDF
- ✏Modifica contenuti:Trova e sostituisci in batch/Ridimensiona tutte le immagini
- 🧹Pulizia senza sforzo:Rimuovi spazi extra/Rimuovi Interruzione di sezione
- ➕Inserimenti creativi:Inserisci separatori delle migliaia/Inserisci Casella di Controllo/Crea Codice QR
- 🌍Supporta oltre 40 lingue: Kutools parla la tua lingua – sono supportate oltre 40 lingue!



