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

[Flangini]

Добрый день! Подскажите, пожалуйста, как создать следующую обработку.
Имеется перечень всех субъектов Российской Федерации (отсортированный по алфавиту, хранить перечень субъёктов предполагается в массиве), при вводе в ячейку (столбец) буквы "Н" автоматически подставляется "Новгородская" (под "подставляется" подразумевается дописывание слова, по аналогии со стандартной функцией excel, когда вводишь ранее введённое значение), далее вводятся "ово", в ячейку подставляется "Новосибирская", нажимаешь enter значение выбрано - "Новосибирская".

[EducatedFool]

Только разве что так:



Можно, конечно, усовершенствовать: при выделении нужных ячеек макрос автоматически будет рисовать поверх них комбобокс, а при нажатии Enter в комбобоксе - скрывать его, а результат ввода помещать в ячейку.

[Flangini]

То есть, если мне необходимо заполнять огромную таблицу, используя данный метод, нужно будет нарисовать множество ComboBox и для каждого прописать приведённый код?

[EducatedFool]

нужно будет нарисовать множество ComboBox и для каждого прописать приведённый код?

Нет.
Будет 1 комбобокс - по умолчанию он скрыт (размеры 0*0)
При выделении любой ячейки из нужного диапазона, по событию Worksheet_SelectionChange, комбобокс подгоняется по размерам под выделенную ячейку, и располагается прямо поверх неё.

После завершения ввода (по нажатию Enter) - по событию ComboBox1_KeyDown - введённые данные попадают в ячейку под комбобоксом, а сам он скрывается (ставятся вновь размеры 0*0)

[Flangini]

К сожаления я слаб в коде (даже в этом не разобрался ) не поможете реализовать выше описанную возможность? А то я даже новую область не понимаю как можно добавить в список

[Flangini]

Как добавить область нашёл Даже понял как перенести на другой лист список А вот чтобы поле исчезало и появлялось не понимаю как реализовать

[Flangini]

Сообщение от EducatedFool

Нет.
Будет 1 комбобокс - по умолчанию он скрыт (размеры 0*0)
При выделении любой ячейки из нужного диапазона, по событию Worksheet_SelectionChange, комбобокс подгоняется по размерам под выделенную ячейку, и располагается прямо поверх неё.

После завершения ввода (по нажатию Enter) - по событию ComboBox1_KeyDown - введённые данные попадают в ячейку под комбобоксом, а сам он скрывается (ставятся вновь размеры 0*0)

Помогите, пожалуйста, это реализовать

[Flangini]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ComboBox1.Left = 0
Me.ComboBox1.Top = ???
End Sub

Скажите, как заставить ComboBox двигаться в соответствии с выбранной ячейкой?

[Flangini]

Мне удалось придумать только такой вариант:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Single
Me.ComboBox1.Left = 0
a = ActiveCell.Row
Me.ComboBox1.Top = (a - 1) * 12.75
End Sub

[EducatedFool]

Вот вам готовый пример:



Выделите любую ячейку в диапазоне b2:b350 - и увидите результат.

Код совсем несложен:

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)
    HideCombo
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("b2:b350")) Is Nothing Then Exit Sub
    showCombo
End Sub

Sub showCombo()
    Me.Combo.Value = ""
    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
End Sub

Sub HideCombo()
    Me.Combo.Top = 0: Me.Combo.Left = 0: Me.Combo.Width = 0: Me.Combo.Height = 0
End Sub

PS: Вот ещё пример поиска подходящих записей в момент ввода данных в "ячейку":



Попробуйте в этом примере ввести в ячейку B4 число 255