Вот нашел кодик, но не знаю как запустить. Подправьте пожалуйста. Есть разница куда его вставлять: модуль или лист? У меня ни там ни там не срабатывает.
Код
Private Sub ComboBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload UserForm1
End If
а может есть более рациональное решение, оч интересно
P.S. Существует БЕСПЛАТНАЯ форма ввода данных - J-Walk Усовершенствованная форма данных! Она позволяет: 1. удобный, вертикальный ввод: вместо очень неудобного горизонтального ввода, 2. расширять имена полей ввода, если они - "длинные", 3. можно в правом нижнем углу потянуть форму "за хвост" вниз (вправо): форму растянуть вниз (вправо). 3.1. под словом Close видно "картинку-штрих"! 4. можно задавать выпадающие списки, если ввод каких-либо полей требует обращения к выпадающим спискам! 5. нет ограничений на количество столбов таблицы ввода, 5.1. в штатных формах любых версий EXCEL есть ограничение на 32 столба таблицы ввода.
J-Walk Усовершенствованная форма данных - все обеспечит самостоятельно!