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.