Validation.Add method (Excel)

Adiciona validação de dados ao intervalo especificado.

Sintaxe

expressão. Add (Type, AlertStyle, Operator, Formula1, Formula2)

expressão Uma variável que representa um objeto validação .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Obrigatório	XlDVType	O tipo de validação.
AlertStyle	Opcional	Variant	O estilo de alerta de validação. Pode ser uma das seguintes constantes xlDVAlertStyle : xlValidAlertInformation, xlValidAlertStop ou xlValidAlertWarning.
Operator	Opcional	Variant	O operador de validação de dados. Pode ser uma das seguintes constantes xlFormatConditionOperator : xlBetween, xlEqual, xlGreater, xlGreaterEqual, xlLess, xlLessEqual, xlNotBetween ou xlNotEqual.
Formula1	Opcional	Variant	A primeira parte da equação de validação de dados. O valor não pode exceder os 255 carateres.
Formula2	Opcional	Variant	A segunda parte da equação de validação de dados quando Operador é xlBetween ou xlNotBetween (caso contrário, este argumento é ignorado).

Comentários

O método Add requer argumentos diferentes dependendo do tipo de validação, como mostra a tabela a seguir.

Tipo de validação	Argumentos
xlValidateCustom	A Fórmula1 é necessária, a Fórmula2 é ignorada. Formula1 precisa conter uma expressão que seja avaliada como True quando a entrada de dados for válida e False quando a entrada de dados for inválida.
xlInputOnly	AlertStyle, Formula1 ou Formula2 são usados.
xlValidateList	A Fórmula1 é necessária, a Fórmula2 é ignorada. Formula1 precisa conter uma lista de valores delimitada por vírgulas ou uma referência de planilha a essa lista.
XlValidateWholeNumber, xlValidateDate, xlValidateDecimal, xlValidateTextLength ou xlValidateTime	Um dos dois, Formula1 ou Formula2, precisa ser especificado, ou ambos podem ser especificados.

Exemplo

Este exemplo adiciona validação de dados à célula 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.