Данные -> проверка -> список. Как сделать поиск в спис

[Kolan]

Здравствуйте, если воспользоваться пунктом меню:
Данные -> проверка -> список

то для ячеек можно задать выпадающий список из которого удобно выбирать значения.
Но в этом списке не работает поиск(те если у меня список 1 2 3 4 и я нажму 3, то ничего не произойдет, а хотелось бы перейти к строке 3).

Вопрос: Как добавить такой поиск? Или как по другому получить сабж(например создавать ComboBox'ы).

?

[iGrok]

Ты о чем???? 0_o

[Kolan]

Ты о чем???? 0_o


Добавляю проверку данных для ячеек. Примерно так:

Код: Выделить всё

With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlSrcRange, Formula1:=ValueString
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = False
            .ShowError = True
           
        End With

Для каждой ячейки из Selection появляется возможность выбирать значения из выпадающего списка.

Но в этом списке нет поиска.

То есть что я хочу:
Допустим список:
12
23
34
45
56
66
77

Я могу выбрать мышкой любой элемент. А если наберу на клавиатуре "3", например, то попаду на строку 34. То есть поиск как бы.

В ComboBox такое работает, если задать ListFillRange например... Но как замутить сабж с комбобоксами незнаю и близко, так как в VB знаком полохо...

[Kolan]

Начальству оказалось достаточно этого:

Код: Выделить всё

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If (Target.Count = 1) And (Target.Column = 1) Then
    ComboBox1.Visible = True
    ComboBox1.Top = Target.Top
    ComboBox1.Left = Target.Left
    ComboBox1.Width = Target.Width
    ComboBox1.Height = Target.Height
    ComboBox1.LinkedCell = Target.Address
    ComboBox1.ListFillRange = "Ëèñò2!A1:A4"
  Else
    ComboBox1.Visible = False
  End If
End Sub

[Хакер]

Это повидимому VBA. Переношу.