Всем привет! Подскажите, пожалуйста, как сделать так, чтобы после ввода значения в поле TextBox и нажатия клавиши enter, поле текстбокса становилось бы неактивным? У меня получается выйти только клавишей esc...
Всем привет! Подскажите, пожалуйста, как сделать так, чтобы после ввода значения в поле TextBox и нажатия клавиши enter, поле текстбокса становилось бы неактивным? У меня получается выйти только клавишей esc...Xpert
Xpert, для того чтобы поле стало неактивным, надо передать фокус на другой контрол. Enter, как и Tab, именно это и делает. Не понятно - в чём у вас проблема?
Xpert, для того чтобы поле стало неактивным, надо передать фокус на другой контрол. Enter, как и Tab, именно это и делает. Не понятно - в чём у вас проблема?Апострофф
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then ActiveSheet.Range(TextBox1.LinkedCell).Select End Sub
[/vba]
[vba]
Код
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then ActiveSheet.Range(TextBox1.LinkedCell).Select End Sub