Método Validation.Add (Excel)

  • Artículo

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).

Comentarios

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.