Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как проверить - содержит ди ячейка проверку данных "Список"
 
#1
04.01.2010 19:36:01
Всех с НОВЫМ ГОДОМ!!!    
 
Чтобы все время не переписывать выпадающий список, хочу включить проверку ячейки на наличие проверки данных "список" (метод .Validation). И никак не могу сконструировать условие. Есть ли в VBA свойство объекта .Range указывающее на наличие проверки данных?  
 
СПАСИБО...
 
 
 
#2
04.01.2010 19:52:06
Dim sName As String  
On Error Resume Next: sName = Range("A11").Validation.Formula1  
If sName = "" Then MsgBox "Здесь нет проверки"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
04.01.2010 20:17:17
C Новым годом Дмитрий,  
 
Я правильно понял, что какого-либо свойства, которое можно проверить, у ячейки нет (типа xlCellTypeAllValidation для SpecizlCells). И проверку остается только осуществлять на наличие .Formula1 ?  
 
Тогда вопрос - всегда ли непустая Formula1 указывает на выпадающий список?  
 
Еще раз СПАСИБО...
 
 
 
#4
04.01.2010 21:41:23
{quote}{login=VovaK}{date=04.01.2010 08:17}{thema=}{post}Тогда вопрос - всегда ли непустая Formula1 указывает на выпадающий список?{/post}{/quote}И Вас, Владимир, тоже с НГ.  
Нет, не всегда. Formula1 указывает на наличие проверки данных.  
Для проверки типа проверки лучше так:  
 
Dim iName As integer  
On Error Resume Next: iName = Range("A11").Validation.Type  
If iName = 3 Then MsgBox "Ячейка содержит выпадающий список"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
05.01.2010 06:11:18
Спасибо.  
Вопрос исчерпан.
 
 
 
Страницы: 1
Читают тему
Наверх