|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.11.2012, 00:09 | #1 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
KeyCode
Здравствуйте!
Подскажите что поменять в коде , чтобы при нажатии на enter, курсор перескакивал не на нижнюю ячейку а на ячейку справа. Private Sub Combo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Me.Combo.TopLeftCell = Me.Combo.Value: HideCombo: ActiveCell.Offset(1).Activate End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Application.ScreenUpdating = False: HideCombo If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, Union(Range(find_all_1), Range(find_all_2), Range(find_all_3), Range(find_all_4))) Is Nothing Then Exit Sub showCombo End Sub Sub showCombo() Me.Combo.Value = ActiveCell Me.Combo.Top = ActiveCell.Top: Me.Combo.Left = ActiveCell.Left Me.Combo.Width = ActiveCell.Width + 5: Me.Combo.Height = ActiveCell.Height + 5 Me.Combo.Activate End Sub Sub HideCombo() Me.Combo.Top = 0: Me.Combo.Left = 0: Me.Combo.Width = 0: Me.Combo.Height = 0 End Sub |
13.11.2012, 00:30 | #2 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Все разобрался. Тема закрыта
|