Выпадающий список при начале ввода в проверке данных

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выпадающий список при начале ввода в проверке данных (Формулы/Formulas)

Смольный

Дата: Четверг, 10.02.2022, 13:58 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

Репутация: 0 ±

Замечаний: 0% ±

Добрый день всем. возможно ли реализовать на листе Движение в столбце D выпадающий список при начале ввода цифр в котором только варианты совпадения? Nic70y, помогите доброй души человек.

К сообщению приложен файл: _2022-1.xlsm (64.2 Kb)

Сообщение отредактировал Смольный - Четверг, 10.02.2022, 14:32

Ответить

Serge_007

Дата: Четверг, 10.02.2022, 14:22 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Приложите файл в формате xls, Ваш xlsm не открывается

И посмотрите здесь: Поиск значений в базе данных по первым буквам при вводе на листе (как в 1С), судя по описанию задачи - Вам это нужно

ЮMoney:41001419691823 | WMR:126292472390

Ответить

gfkq

Дата: Четверг, 10.02.2022, 14:30 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 62

Репутация: 0 ±

Замечаний: 20% ±

Serge_007, подскажите пожалуйста, а если выпадающего списка много? И данные на других листах, есть что либо подобное? Формат ячеек текст, но содержит цифры.

Сообщение отредактировал gfkq - Четверг, 10.02.2022, 15:24

Ответить

Смольный

Дата: Четверг, 10.02.2022, 14:34 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

Репутация: 0 ±

Замечаний: 0% ±

Serge_007, файл перезалил, открывается, дело в том что это продолжение другой темы. http://www.excelworld.ru/forum/2-48983-1 сказали что нужно создать новую тему.

Ответить

Nic70y

Дата: Четверг, 10.02.2022, 16:56 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 8753

Репутация: 2270 ±

Замечаний: 0% ±

Excel 2010

юзерформа

К сообщению приложен файл: 3468273.xlsm (74.3 Kb)

ЮMoney 41001841029809

Ответить

Смольный

Дата: Четверг, 10.02.2022, 17:09 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, работает только для первых цифр инвентарного номера, если набрать к примеру 107 это три последних цифры инвентарного номера то ничего не происходит, на скрине почему то кроме 22 еще номер вылез, хотя в нем нет двоек

К сообщению приложен файл: 9708626.png (152.3 Kb)

Ответить

Nic70y

Дата: Четверг, 10.02.2022, 17:12 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 8753

Репутация: 2270 ±

Замечаний: 0% ±

Excel 2010

Цитата Смольный, 10.02.2022 в 17:09, в сообщении № 6 (

)

еще номер вылез

список не может быть из 1-го элемента.

Цитата Смольный, 10.02.2022 в 17:09, в сообщении № 6 (

)

три последних цифры

не думал, что артикул набирается с конца.

ЮMoney 41001841029809

Ответить

Смольный

Дата: Четверг, 10.02.2022, 17:21 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, в основном у инвентарных номеров первые 5-6 цифр одинаковые, можно сделать чтоб искало совпадение по двум цифрам. к примеру ввели 56 и в списке только те номера где есть сочетание 56

Ответить

bmv98rus

Дата: Пятница, 11.02.2022, 08:56 | Сообщение № 9

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Ну можно приладить этот вариант, конечно если макросы все равно можно, то я б просто повесил один комбо, который по активации ячейки перемещается, но это приводит к потере отмены действий.

в первых строках сделано для примера. Но правило работы меняется, сперва набор того что ищем, то есть 56, а потом жмакаем кнопку.

К сообщению приложен файл: example2599.xlsm (86.0 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Nic70y

Дата: Пятница, 11.02.2022, 09:06 | Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 8753

Репутация: 2270 ±

Замечаний: 0% ±

Excel 2010

[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

[/vba]

К сообщению приложен файл: 18.xlsm (72.5 Kb)

ЮMoney 41001841029809

Ответить

Смольный

Дата: Пятница, 11.02.2022, 13:40 | Сообщение № 11

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 188

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, как всегда, то что нужно, спасибо Вам.

Ответить

Страница 1 из 1
1