¿Cómo establecer un valor predeterminado en la lista desplegable de validación de datos en Excel?
Establecer un valor predeterminado en la lista desplegable de validación de datos ayuda a otros a identificar fácilmente las celdas con listas desplegables de un vistazo en una hoja de cálculo. Este artículo proporciona un método VBA para configurar un valor predeterminado en la lista desplegable de validación de datos con detalle.
Establecer un valor predeterminado en la lista desplegable de validación de datos con código VBA
Establecer un valor predeterminado en la lista desplegable de validación de datos con código VBA
Como se muestra en la siguiente captura de pantalla, suponiendo que todas las celdas en el rango B2:C7 contienen una lista desplegable y desea establecer un valor predeterminado (por ejemplo, - Elegir de la lista -) en estas listas desplegables antes de seleccionar valores de ellas. Puede probar el siguiente código VBA.
1. Haga clic derecho en la pestaña de la hoja con las listas desplegables donde necesita establecer un valor predeterminado, luego haga clic en Ver Código en el menú.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código VBA en la ventana de Código.
Código VBA: establecer un valor predeterminado en la lista desplegable de validación de datos
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 SubNota: puede cambiar el valor predeterminado en el código VBA al que necesite.
6. Presione la tecla F5 para ejecutar el código. Puede ver que los valores predeterminados se han agregado a todas las celdas de la lista desplegable como se muestra en la siguiente captura de pantalla.
Notas:
Descubre la Magia de Excel con Kutools AI
- Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
- Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
- Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
- Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
- Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.
Artículos relacionados:
- ¿Cómo autocompletar al escribir en una lista desplegable de Excel?
- ¿Cómo crear un calendario en una lista desplegable en Excel?
- ¿Cómo crear una lista desplegable buscable en Excel?
- ¿Cómo crear una lista desplegable con selecciones o valores múltiples en Excel?
- ¿Cómo auto-completar otras celdas al seleccionar valores en una lista desplegable de Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos