Файл под сканировку с номенклатурой

L_Nik

Гость

17.08.2010 11:31:04

Добрый всем день.
Хочу предложить интересную задачу:
Есть файл с содержащейся номенклатурой товара, нужно какими-то средствами заставить его работать по принципу СУБД, а именно нужно:
При сканировании в окошке ввода бар-кода, должна появится 1 соответствующая бар-коду. Если ещё раз просканировать тот же бар-код то количество должно стать равным 2 ед, и так далее.

Когда-то давно когда я был молод видел такой файл сделанный сис.админом, очень мне понравилась.

Я так понимаю что поиск бар-кода отсканированного и того что в номенклатуре будет происходить через ВПР. Нужна процедура увеличивающая количество, и после сканирования стирающая код из строки.

Прикрепленные файлы

post_146454.xls (20.5 КБ)

slav Пользователь Сообщений: 232 Регистрация: 01.01.1970	#2 17.08.2010 11:50:24 интересная задачка. Сразу вопрос. Как стыкуется считыватель бар-кода с Excel-ем?

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#3 17.08.2010 11:52:03 Куда вводить Barcode, с которым сравнивать? В примере ни одного повтора кода. Да и задача непонятна. Почему не выводить весь список соответствия?

slav Пользователь Сообщений: 232 Регистрация: 01.01.1970	#4 17.08.2010 12:05:04 приведите полную модель сканера бар-кодов. каким образом он перекидывает данные на ПК?

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#5 17.08.2010 12:18:17 Вот давно делал похожую задачу, может пригодится. Код и под Вашу задачу подойдёт, чуть переделать только. Прикрепленные файлы post_146486.rar (17.68 КБ)

Guest

Гость

17.08.2010 13:34:23

{quote}{login=slav}{date=17.08.2010 12:05}{thema=}{post}приведите полную модель сканера бар-кодов.
каким образом он перекидывает данные на ПК?{/post}{/quote}

На ПК он и не должен будет перекидывать. Это я как пример указал СУБД, на самом деле работа должна будет происходить только в Excele.

Guest

Гость

17.08.2010 13:35:34

{quote}{login=vikttur}{date=17.08.2010 11:52}{thema=}{post}Куда вводить Barcode, с которым сравнивать?
В примере ни одного повтора кода.
Да и задача непонятна. Почему не выводить весь список соответствия?{/post}{/quote}

Вверхней строчке есть желтая ячейка, в неё и вводить. Но вводится бар-код должен сканером.

L_Nik

Гость

17.08.2010 13:41:12

{quote}{login=Hugo}{date=17.08.2010 12:18}{thema=}{post}Вот давно делал похожую задачу, может пригодится.
Код и под Вашу задачу подойдёт, чуть переделать только.{/post}{/quote}

Практически идеал.
А подскажите пожалуйста что нужно дописать что бы он при совпадении бар-кодов (на примере файла коробов) суммировал информацию в количестве.

Hugo

Пользователь

Сообщений: 26326 Регистрация: 22.12.2012

17.08.2010 13:48:35

В верхней части дописать одну строку, а всё что ниже, до Else, можно вероятно убрать:

If Not x Is Nothing Then ' если нашли
Cells(1, 3).Activate
Cells(x.Row, 2) = Cells(x.Row, 2) + 1

Т.е. если нашли - суммируем количество. А если не нашли - дописываем вниз (если надо).

Hugo Пользователь Сообщений: 26326 Регистрация: 22.12.2012	#10 17.08.2010 13:50:37 Там ещё надо насчёт партий посмотреть - надо/ненадо...

L_Nik Гость	#11 17.08.2010 14:15:41 Hugo Огромное спасибо. Код подправил,с партиями думаю смогу разобраться. В данный момент файл отображает то что и нужно было. Еще раз спасибо.

Читают тему