Метод Validation.Add (Excel)

Добавляет проверку данных в указанный диапазон.

Синтаксис

expression. Добавить (Type, AlertStyle, Operator, Formula1, Formula2)

выражение Переменная, представляющая объект Проверки .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	XlDVType	Тип проверки.
AlertStyle	Необязательный	Variant	Стиль оповещения проверки. Может быть одной из следующих констант XlDVAlertStyle : xlValidAlertInformation, xlValidAlertStop или xlValidAlertWarning.
Operator	Необязательный	Variant	Оператор проверки данных. Может быть одной из следующих констант XlFormatConditionOperator: xlBetween, xlEqual, xlGreaterEqual, xlLess, xlLess, xlLessEqual, xlNotBetween или xlNotEqual.
Formula1	Необязательный	Variant	Первая часть уравнения проверки данных. Значение не должно превышать 255 символов.
Formula2	Необязательный	Variant	Вторая часть уравнения проверки данных, если оператор имеет значение xlBetween или xlNotBetween (в противном случае этот аргумент игнорируется).

Замечания

Метод Add требует разных аргументов в зависимости от типа проверки, как показано в следующей таблице.

Тип проверки	Аргументы
xlValidateCustom	Формула 1 является обязательной, формула 2 игнорируется. Формула 1 должна содержать выражение, которое имеет значение True , если ввод данных является допустимым, и False , если ввод данных недопустим.
xlInputOnly	Используются AlertStyle, Formula1 или Formula2.
xlValidateList	Формула 1 является обязательной, формула 2 игнорируется. Формула 1 должна содержать список значений с разделителями-запятыми или ссылку на лист на этот список.
xlValidateWholeNumber, xlValidateDate, xlValidateDecimal, xlValidateTextLength или xlValidateTime	Необходимо указать один из формул Formula1 или Formula2 , в противном случае можно указать оба варианта.

Пример

В этом примере в ячейку 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.