Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как программно узнать установлена ли в ячейку проверка данных?, Validation = Данные - Проверка данных
 
#1
12.07.2018 17:58:06
Добрый вечер.
Как программно узнать установлена ли в ячейку проверка данных? (Validation = Данные - Проверка данных)
 
 
 
#2
12.07.2018 18:19:25
Вариант:
Код
Sub TestValidation()
    On Error Resume Next
    x = ActiveCell.Validation.Type
    If Not IsEmpty(x) Then
        MsgBox "Есть проверка данных.", 64, "Для сведения..."
    Else
        MsgBox "Нет проверки данных.", 64, "Для сведения..."
    End If
End Sub
 
 
 
#3
12.07.2018 18:25:00
Юрий, спасибо.
 
 
 
#4
12.07.2018 18:26:30
Для всех вариантов я не проверял...
 
 
 
#5
12.07.2018 23:30:55
тут еще на SpecialCells(xlCellTypeSameValidation) , но все равно с обаботкой ошибки, то есть без разницы.
По вопросам из тем форума, личку не читаю.
 
 
 
#6
13.07.2018 00:10:17
Лучше (на мой взгляд) код #2 оформить как функцию - это позволит избежать лишнего перехватчика ошибок в основном коде:


Код
Function ValidationExists(ByVal rg As Range) As Boolean
  Dim x
  On Error Resume Next
  x = rg.Validation.Type
  ValidationExists = (Err.Number = 0)
  On Error GoTo 0
End Function

Но это, естественно, на усмотрение автора.
Владимир
 
 
 
#7
13.07.2018 08:42:12
Спасибо всем.
 
 
 
Страницы: 1
Наверх