Método Validation.Add (Excel)

Adiciona validação de dados ao intervalo especificado.

Sintaxe

expressão. Adicionar (Tipo, AlertStyle, Operador, Fórmula1, Fórmula2)

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	Variantes	O estilo de alerta de validação. Pode ser uma das seguintes constantes XlDVAlertStyle : xlValidAlertInformation, xlValidAlertStop ou xlValidAlertWarning.
Operator	Opcional	Variantes	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	Variantes	A primeira parte da equação de validação de dados. O valor não deve exceder 255 caracteres.
Formula2	Opcional	Variantes	A segunda parte da equação de validação de dados quando Operator é xlBetween ou xlNotBetween (caso contrário, esse 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órmula 1 é necessária, a Fórmula 2 é 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órmula 1 é necessária, a Fórmula 2 é 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.