Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

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

Author Xiaoyang Last modified

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
  4. 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
  5. Ripeti il Passaggio 3 per inserire altri elementi dell'elenco a discesa secondo necessità.
  6. Dopo aver creato il primo elenco a discesa, puoi copiarlo e incollarlo in altre celle.
    Drop-down list copied to other cells
  7. Tieni premuto ALT + F11 per aprire la finestra "Microsoft Visual Basic for Applications".
  8. 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
  9. 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 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 and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools for Word! 🚀
 

✨ 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