Автоподстановка

[Flangini]

Круто!!! Огромное Вам спасибо!

[Flangini]

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
    If KeyCode = 27 Then Me.Combo.Value = ""
End Sub

Подскажите, пожалуйста, что нужно допистаь чтобы после нажатия ESC корретка оставалась в Combo (была активной)?

[EducatedFool]

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
    If KeyCode = 27 Then Me.Combo.Value = "": KeyCode = 0 ' отменяем ввод символа
End Sub

[Flangini]

Sub ShowCombo()
    Me.Combo.Top = ActiveCell.Top: Me.Combo.Left = ActiveCell.Left
    Me.Combo.Width = ActiveCell.Width + 1: Me.Combo.Height = ActiveCell.Height + 1
    Me.Combo.Activate
    Me.Combo.Value = ActiveCell.Offset(0).Value
End Sub

Но при этом каретка встаёт в конец строки и из-за этого первые пару символов не видно (спрятаны за левой гранью ComboBox), а как перевести каретку в начало строки и чтобы текст был выделен (чтобы при вводе он затирался)?

[Flangini]

Sub ShowCombo()
    Me.Combo.Top = ActiveCell.Top: Me.Combo.Left = ActiveCell.Left
    Me.Combo.Width = ActiveCell.Width + 1: Me.Combo.Height = ActiveCell.Height + 1
    Me.Combo.Activate
    Me.Combo.Value = ActiveCell.Offset(0).Value
    Me.Combo.BackColor = ActiveCell.Interior.Color
    Me.Combo.SelStart = 0
End Sub

Вот как придумал Осталось сделать чтобы текст сразу был выделеным

[Flangini]

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(0, 1).Activate
    If KeyCode = 27 Then Me.Combo.Value = "": KeyCode = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Application.ScreenUpdating = False:
    HideCombo
    Me.Combo.Value = ActiveCell.Offset(0).Value
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("I2:I65536")) Is Nothing Then Exit Sub
    ShowCombo
End Sub

Sub ShowCombo()
    
    Me.Combo.Top = ActiveCell.Top: Me.Combo.Left = ActiveCell.Left
    Me.Combo.Width = ActiveCell.Width + 1: Me.Combo.Height = ActiveCell.Height + 1
    'Me.Combo.Value = ActiveCell.Offset(0).Value
    Me.Combo.BackColor = ActiveCell.Interior.Color
    Me.Combo.SelStart = 0
    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

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

[Flangini]

Из-за чего ошибка? Никто не знает?

[Flangini]

Ап (up)

[drgdr]

здравствуйте, уважаемый
вопрос такой: в макросе не нашел места, где указывается область со всеми вариантами подстановки. Подскажите пожалуйста где искать