Выпадающий список в ячейке(автоматичесое раскрытие)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Выпадающий список в ячейке(автоматичесое раскрытие) (Макросы/Sub)

Benos

Дата: Среда, 29.03.2023, 18:10 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013 / 2016 / 365

Добрый день, всем!
Написал макрос, что бы он создавал в ячейке выпадающий список при двойном клике.

[vba]

Код

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim iCellName As String
    If Target.Column = 4 Then
        Call ListCell(Target.Address)
    End If
End Sub

Sub ListCell(aCell)
    Range(aCell).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="ОС,ИК1,ИК2,ИЛ"
        .IgnoreBlank = True
        .ShowInput = True
        .ShowError = True
        .InCellDropdown = True
    End With
End Sub

[/vba]
Код простой, все работает.

Вопрос в том, можно ли сразу после создания списка... его развернуть, что бы можно было сразу выбрать нужный вариант?