Раскрытие спиcка Combobox.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Раскрытие спиcка Combobox. (Макросы/Sub)

Dmitryru87

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

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

Здравствуйте. Подскажите как сделать чтобы список Combobox раскрывался(разворачивался при вводе) ,без нажатия на треугольник.

[vba]

Код

Private Sub Продукия_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
irow = Cells(Rows.Count, 3).End(xlUp).Row + 1
Cells(irow, 3).Value = Продукия.Value
Application.EnableEvents = True
Application.ScreenUpdating = True
Продукия = Empty
End If
End Sub

[/vba]

К сообщению приложен файл: 123456.xlsm (32.6 Kb)

Сообщение отредактировал Dmitryru87 - Среда, 05.08.2015, 10:10

Ответить

anvg

Дата: Среда, 05.08.2015, 10:44 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

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

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

2016, 365

Доброе время суток
Как то так.
Успехов.

К сообщению приложен файл: 9649444.xlsm (33.4 Kb)

Ответить

Dmitryru87

Дата: Четверг, 06.08.2015, 04:56 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

anvg
Здравствуйте. Спасибо большое!!!! Добавил еще
[vba]

Код

Private Sub Продукия_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Продукия.DropDown
End Sub

[/vba]
Все работает!!!

Хотелось бы еще чтобы вводимый(автоподобранный из источника) текст из списка появлялся в верхней строчки combobox(в 1 из 8 строк , а не в 8 из 8)
[moder]Это уже другой вопрос, создавайте новую тему.[/moder]

Сообщение отредактировал Manyasha - Четверг, 06.08.2015, 07:29

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Раскрытие спиcка Combobox. (Макросы/Sub)

Страница 1 из 1
1