Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как проверить ячейку на наличие выпадающего списка через VBA?
 
Здравствуйте! Заинтересовал вопрос как проверить ячейку на наличие выпадающего списка через макрос. Вернее, как проверить я знаю примерно, мне нужно написать макрос, который последовательно бы сообщал для выделенного диапазона, есть ли в ячейке выпадающий список или нет. Идея была такая:
Код
Sub WhereDrop()
On Error GoTo Iferr
    
    For Each cell In Selection
        If cell.Validation.Type = 3 Then
            MsgBox "Есть выпадающий список"
            GoTo nextcl
        End If
            
Iferr:
        MsgBox "Нет выпадающего списка"
        
nextcl:
    Next cell
    
End Sub
Вроде, поначалу работает, но начинает глючить на 4 шаге, что не так делаю, не могу понять????
 
Код
Sub WhereDrop()
On Error Resume Next
    For Each cell In Selection
        VType = 0
        VType = cell.Validation.Type
        If VType = 3 Then
                MsgBox "Есть выпадающий список"
         Else
            MsgBox "Нет выпадающего списка"
        End If
    Next cell
    
End Sub
 
БМВ, премного премного благодарен! Я что-то перемудрил
Страницы: 1
Читают тему (гостей: 1)
Наверх