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

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:
- 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.
- L'elenco a discesa viene inserito nella cella specifica. Quindi fai clic su "Sviluppatore" > "Proprietà".
- Nella finestra di dialogo "Proprietà controllo contenuto", esegui le seguenti operazioni:
- Inserisci il nome del titolo nella casella di testo "Titolo".
- Fai clic sul pulsante "Aggiungi" per aprire la finestra di dialogo "Aggiungi scelta".
- Digita l'elemento dell'elenco a discesa nella casella di testo "Nome visualizzato".
- Ripeti il Passaggio 3 per inserire altri elementi dell'elenco a discesa secondo necessità.
- Dopo aver creato il primo elenco a discesa, puoi copiarlo e incollarlo in altre celle.
- Tieni premuto ALT + F11 per aprire la finestra "Microsoft Visual Basic for Applications".
- 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à.
- Salva e chiudi la finestra del codice. Ora, quando selezioni un elemento dall'elenco a discesa, il colore corrispondente riempirà la cella.

I migliori strumenti per la produttività in ufficio
Kutools for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!
🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...
📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...
✏ Modifica del Testo: 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 Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...
➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...
🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...
⭐ Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...
🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!

✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!
Include Office Tab Pro · Kutools per Excel · Kutools per Outlook · Kutools for Word · Kutools for PowerPoint
📦 Ottieni tutti e5 gli strumenti in un'unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta subito la produttività
I migliori strumenti per la produttività in ufficio
Kutools for Word - 100+ strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Conversione in batch in PDF
- ✏ Modifica del Testo: Trova e Sostituisci in batch / Ridimensiona tutte le Immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci Separatore delle Migliaia / Inserisci Casella di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!