Создание в VBA "поле с выпадающем списком"

[tae1980]

Что-то ни как не могу освоить сабж в нужной ячейке. Либо не там создает, либо вообще выдает ошибку. :(( Как все же грамотно это сделать?

[EducatedFool]

Смотря что Вы понимаете под "полем с выпадающем списком"

Если то, что получается через меню Данные - Проверка, то попробуйте так:

Sub test()
    FormatConfirmationCell [a2]
End Sub

Sub FormatConfirmationCell(ByRef ce As Range)
    With ce
        .HorizontalAlignment = xlCenter
        With .Validation ' формируем выпадающий список
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
                 xlBetween, Formula1:=ce.Value & ", Выполнено, Не выполнено"
            .IgnoreBlank = True: .InCellDropdown = True
        End With
        .FormatConditions.Delete ' условное форматирование
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Выполнено"""
        .FormatConditions(1).Interior.ColorIndex = 35    '4
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Не выполнено"""
        .FormatConditions(2).Interior.ColorIndex = 38    '3
    End With
End Sub

Ключевое слово для поиска - Validation

Если же нужно создать на листе элемент управления Combobox, то формулируйте задание точнее...

Либо не там создает, либо вообще выдает ошибку.

Какую ошибку? Приведите пример своего кода.

[Кринум]

Почему если ваш код вставить в процедуру обработки клика по кнопке вылетает ошибка?

Код:

Private Sub CommandButton1_Click()
FormatConfirmationCell [a2]
End Sub
Sub test()
FormatConfirmationCell [a2]
End Sub

Sub FormatConfirmationCell(ByRef ce As Range)
With ce
.HorizontalAlignment = xlCenter
With .Validation ' формируем выпадающий список
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation , Operator:= _
xlBetween, Formula1:=ce.Value & ", Выполнено, Не выполнено"
.IgnoreBlank = True: .InCellDropdown = True
End With
.FormatConditions.Delete ' условное форматирование
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Выполнено"""
.FormatConditions(1).Interior.Color Index = 35 '4
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Не выполнено"""
.FormatConditions(2).Interior.Color Index = 38 '3
End With
End Sub

Ошибка
Run-time error '-2147417848(80010108)'

Method 'Add' of object 'Validation' failed