Come impostare un valore predefinito nell'elenco a discesa della convalida dei dati in Excel?
Impostare un valore predefinito nell'elenco a discesa della convalida dei dati aiuta gli altri a identificare facilmente a colpo d'occhio le celle dell'elenco a discesa in un foglio di lavoro. Questo articolo fornisce un metodo VBA per impostare un valore predefinito nell'elenco a discesa della convalida dei dati in dettaglio.
Imposta un valore predefinito nell'elenco a discesa della convalida dei dati con il codice VBA
Imposta un valore predefinito nell'elenco a discesa della convalida dei dati con il codice VBA
Come mostrato nello screenshot sottostante, supponendo che tutte le celle nell'intervallo B2:C7 contengano un elenco a discesa e si desideri impostare un valore predefinito (ad esempio - Scegli dalla lista -) in questi elenchi a discesa prima di selezionare i valori da essi. Puoi provare il seguente codice VBA.
1. Fai clic con il tasto destro sulla scheda del foglio con gli elenchi a discesa per i quali devi impostare un valore predefinito, quindi fai clic su Visualizza Codice dal menu.
2. Nella finestra Microsoft Visual Basic for Applications, copia e incolla il seguente codice VBA nella finestra del Codice.
Codice VBA: imposta un valore predefinito nell'elenco a discesa della convalida dei dati
Sub DropDownListToDefault()
Dim xCell As Range
Dim xRg As Range
Dim xAcCell As Range
Dim xScreen As Boolean
On Error Resume Next
Set xAcCell = Application.ActiveCell
Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
If xRg Is Nothing Then
MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
Exit Sub
End If
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Validation.Type = 3 Then
If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
End If
Next
xAcCell.Select
Application.ScreenUpdating = xScreen
End Sub
Nota: puoi modificare il valore predefinito nel codice VBA con quello di cui hai bisogno.
6. Premi il tasto F5 per eseguire il codice. Puoi vedere che i valori predefiniti vengono aggiunti a tutte le celle dell'elenco a discesa come mostrato nello screenshot sottostante.
Note:

Sblocca la Magia di Excel con Kutools AI
- Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
- Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
- Interpretazione delle Formule: Comprendi facilmente formule complesse.
- Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.
Articoli correlati:
- Come abilitare l'autocompletamento durante la digitazione nell'elenco a discesa di Excel?
- Come creare un calendario a discesa in Excel?
- Come creare un elenco a discesa ricercabile in Excel?
- Come creare un elenco a discesa con selezioni o valori multipli in Excel?
- Come popolare automaticamente altre celle quando si selezionano valori nell'elenco a discesa di Excel?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.





- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in