Добрый день всем. возможно ли реализовать на листе Движение в столбце D выпадающий список при начале ввода цифр в котором только варианты совпадения? Nic70y, помогите доброй души человек.
Добрый день всем. возможно ли реализовать на листе Движение в столбце D выпадающий список при начале ввода цифр в котором только варианты совпадения? Nic70y, помогите доброй души человек.Смольный
Serge_007, подскажите пожалуйста, а если выпадающего списка много? И данные на других листах, есть что либо подобное? Формат ячеек текст, но содержит цифры.
Serge_007, подскажите пожалуйста, а если выпадающего списка много? И данные на других листах, есть что либо подобное? Формат ячеек текст, но содержит цифры.gfkq
Сообщение отредактировал gfkq - Четверг, 10.02.2022, 15:24
Serge_007, файл перезалил, открывается, дело в том что это продолжение другой темы. http://www.excelworld.ru/forum/2-48983-1 сказали что нужно создать новую тему.
Nic70y, работает только для первых цифр инвентарного номера, если набрать к примеру 107 это три последних цифры инвентарного номера то ничего не происходит, на скрине почему то кроме 22 еще номер вылез, хотя в нем нет двоек
Nic70y, работает только для первых цифр инвентарного номера, если набрать к примеру 107 это три последних цифры инвентарного номера то ничего не происходит, на скрине почему то кроме 22 еще номер вылез, хотя в нем нет двоекСмольный
Nic70y, в основном у инвентарных номеров первые 5-6 цифр одинаковые, можно сделать чтоб искало совпадение по двум цифрам. к примеру ввели 56 и в списке только те номера где есть сочетание 56
Nic70y, в основном у инвентарных номеров первые 5-6 цифр одинаковые, можно сделать чтоб искало совпадение по двум цифрам. к примеру ввели 56 и в списке только те номера где есть сочетание 56Смольный
Ну можно приладить этот вариант, конечно если макросы все равно можно, то я б просто повесил один комбо, который по активации ячейки перемещается, но это приводит к потере отмены действий.
в первых строках сделано для примера. Но правило работы меняется, сперва набор того что ищем, то есть 56, а потом жмакаем кнопку.
Ну можно приладить этот вариант, конечно если макросы все равно можно, то я б просто повесил один комбо, который по активации ячейки перемещается, но это приводит к потере отмены действий.
в первых строках сделано для примера. Но правило работы меняется, сперва набор того что ищем, то есть 56, а потом жмакаем кнопку.bmv98rus
Private Sub ComboBox1_Change() Dim arr() a = ComboBox1.Value b = Sheets("Номенклатура").Cells(Rows.Count, "a").End(xlUp).Row + 1 n = 0 For i = 2 To b c = Sheets("Номенклатура").Range("b" & i).Value d = InStr(c, a) If d > 0 Or c = "" Then ReDim Preserve arr(n) arr(n) = c n = n + 1 End If Next ComboBox1.List = arr() ComboBox1.DropDown End Sub
[/vba]
[vba]
Код
Private Sub ComboBox1_Change() Dim arr() a = ComboBox1.Value b = Sheets("Номенклатура").Cells(Rows.Count, "a").End(xlUp).Row + 1 n = 0 For i = 2 To b c = Sheets("Номенклатура").Range("b" & i).Value d = InStr(c, a) If d > 0 Or c = "" Then ReDim Preserve arr(n) arr(n) = c n = n + 1 End If Next ComboBox1.List = arr() ComboBox1.DropDown End Sub