Come inserire un elenco a discesa con codice colore nella tabella di Word?
Supponiamo di avere una tabella nel mio documento di Word e ora voglio inserire un elenco a discesa con codice colore in una colonna della tabella. Significa che quando seleziono un'opzione dal menu a discesa, il colore della cella diventa rosso e quando seleziono un'altra opzione nel menu a discesa, il colore della cella diventa verde come mostrato nella seguente schermata. Come hai potuto risolvere questo lavoro nel documento di Word?
Inserisci un elenco a discesa con codice colore nel documento Word con codice VBA
Inserisci un elenco a discesa con codice colore nel documento Word con codice VBA
I seguenti passaggi possono aiutarti a completare questa attività di cui hai bisogno, prima inserisci l'elenco a discesa, quindi applica il colore per il menu a discesa. Per favore, fai come segue:
1. Seleziona una cella nella tabella in cui desideri inserire il menu a discesa, quindi fai clic su Costruttori > Controllo contenuto elenco a discesa icona, vedi screenshot:
2. Il menu a discesa viene inserito nella cella specifica e quindi fare clic Costruttori > Properties, vedi screenshot:
3. Nel Proprietà di controllo del contenuto finestra di dialogo, eseguire le seguenti operazioni:
(1.) Immettere il nome del titolo nel file Titolo casella di testo;
(2.) Fare clic su Aggiungi pulsante vai al Aggiungi scelta dialogo;
(3.) Nella Aggiungi scelta finestra di dialogo, digitare l'elemento dell'elenco a discesa nel file Display Nome casella di testo.
4. Ripeti il passaggio 3 per inserire altri elementi dell'elenco a discesa di cui hai bisogno.
5. Dopo aver creato il primo elenco a discesa, puoi copiarlo e incollarlo in altre celle di cui hai bisogno. Vedi screenshot:
6. Quindi dovresti applicare un codice VBA, tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
7. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questo documento dal Progetto-Progetto riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.
Codice VBA: inserisci un elenco a discesa con codice colore nella tabella di un documento di Word:
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
Note:: Nel codice sopra, Stato dei servizi è il nome del titolo quando si crea l'elenco a discesa e Completato, In svolgimento, Non iniziato sono gli elementi dell'elenco a discesa, è possibile modificarli con i propri. E puoi anche cambiare il colore secondo le tue necessità.
8. Quindi salva e chiudi la finestra del codice, ora, quando selezioni un elemento dall'elenco a discesa, il suo colore relativo verrà riempito con la cella, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Kutools for Word - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!
🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto / Riscrivere il testo / Riepilogare i documenti / Richiedi informazioni sulla base del documento, tutto all'interno di Word
📘 Padronanza dei documenti: Pagine divise / Unisci documenti / Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF / Esporta pagine come immagini / Stampa più file contemporaneamente...
✏ Modifica dei contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasporre righe e colonne della tabella / Converti tabella in testo...
🧹 Pulito senza sforzo: Spazza via Spazi extra / Interruzioni di sezione / Tutte le intestazioni / Caselle di testo / Collegamenti ipertestuali / Per ulteriori strumenti di rimozione, vai al nostro Rimuovi gruppo...
➕ Inserti creativi: Inserisci Mille separatori / Caselle di controllo / Pulsanti di scelta / QR Code / Codice a barre / Tabella della linea diagonale / Didascalia dell'equazione / Didascalia immagine / Didascalia / Immagini multiple / Scopri di più nella Inserisci gruppo...
???? Selezioni di precisione: Individuare pagine specifiche / con tabelle / forme / paragrafi di intestazione / Migliora la navigazione con Scopri di più Seleziona funzionalità...
⭐ Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo / inserire automaticamente testo ripetitivo / passare senza problemi da una finestra all'altra del documento / 11 strumenti di conversione...