Добрый день, всем! Написал макрос, что бы он создавал в ячейке выпадающий список при двойном клике.
[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] Код простой, все работает.
Вопрос в том, можно ли сразу после создания списка... его развернуть, что бы можно было сразу выбрать нужный вариант?
Добрый день, всем! Написал макрос, что бы он создавал в ячейке выпадающий список при двойном клике.
[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] Код простой, все работает.
Вопрос в том, можно ли сразу после создания списка... его развернуть, что бы можно было сразу выбрать нужный вариант?Benos