Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.11.2012, 00:09   #1
and150382
Форумчанин
 
Регистрация: 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
and150382 вне форума Ответить с цитированием
Старый 13.11.2012, 00:30   #2
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

Все разобрался. Тема закрыта
and150382 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск