Método Validation.Add (Excel)

Agrega validación de datos al rango especificado.

Sintaxis

expresión. Add (Type, AlertStyle, Operator, Formula1, Formula2)

expresión Variable que representa un objeto Validation .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Type	Obligatorio	XlDVType	Tipo de validación.
AlertStyle	Opcional	Variant	Estilo de alerta de validación. Puede ser una de las siguientes constantes XlDVAlertStyle : xlValidAlertInformation, xlValidAlertStop o xlValidAlertWarning.
Operator	Opcional	Variant	Operador de validación de datos. Puede ser una de las siguientes constantes XlFormatConditionOperator : xlBetween, xlEqual, xlGreater, xlGreaterEqual, xlLess, xlLessEqual, xlNotBetween o xlNotEqual.
Formula1	Opcional	Variant	Primera parte de la ecuación de validación de datos. El valor no debe superar los 255 caracteres.
Formula2	Opcional	Variant	Segunda parte de la ecuación de validación de datos cuando Operator es xlBetween o xlNotBetween (de lo contrario, se omite este argumento).

Observaciones

The Add method requires different arguments, depending on the validation type, as shown in the following table.

Tipo de validación	Argumentos
xlValidateCustom	Se necesita Formula1 y se ignora Formula2. Formula1 debe contener una expresión cuyo resultado sea True si la entrada de datos es válida y False en caso contrario.
xlInputOnly	AlertStyle, Formula1, or Formula2 are used.
xlValidateList	Se necesita Formula1 y se ignora Formula2. Formula1 debe contener una lista de valores delimitados por comas o una referencia de hoja de cálculo a dicha lista.
xlValidateWholeNumber, xlValidateDate, xlValidateDecimal, xlValidateTextLength o xlValidateTime	One of either Formula1 or Formula2 must be specified, or both may be specified.

Ejemplo

En este ejemplo, se agrega validación de datos a la celda E5.

With Range("e5").Validation 
 .Add Type:=xlValidateWholeNumber, _ 
 AlertStyle:= xlValidAlertStop, _ 
 Operator:=xlBetween, Formula1:="5", Formula2:="10" 
 .InputTitle = "Integers" 
 .ErrorTitle = "Integers" 
 .InputMessage = "Enter an integer from five to ten" 
 .ErrorMessage = "You must enter a number from five to ten" 
End With

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.