Метод 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 и обратная связь.