Сканер штрихкодов и эксель

[Hugo121]

Ну да - штрихкод в базу, к нему описание товара или ещё что-то вручную.
Или просто дополнить список отсутствующих товаров - это можно сразу автоматически сделать, если не нашлось в базе.

[Alesa90]

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

Ну да - штрихкод в базу, к нему описание товара или ещё что-то вручную.
Или просто дополнить список отсутствующих товаров - это можно сразу автоматически сделать, если не нашлось в базе.

ну почти
вообще задача была такая:
существует сеть киосков в которой нужно проводить проверку на вшивость, люди ночью приходят с ноутбуком и быстренько все там обрабатывают и все это падает в 1С, в котором собственно есть все эти документы.
Решение есть, но как всегда есть одно НО: решение состояло в подключении через впн к рабочей станции , пробросе портов сканера и черт возьми оно отлично работает при хорошей скорости инетрнета, однако ж gsm модем не мог этого обеспечить, вот такие дела...

Подумали сделать проще: выгрузить весь этот хлам из 1С в excel и потом загружать обратно. Осталось только сделать это более удобным и быстрым, чтобы тетки могли совладать...


по теме я пока сделал так:
1. записал макрос

Sub Ìàêðîñ5()
' Ìàêðîñ5 Ìàêðîñ
' Ñî÷åòàíèå êëàâèø: Ctrl+q
    Range("A1").Select
    Selection.ClearContents
    Range("A1").Select
End Sub

2. Воспользовался кодом приложеным выше

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.Find(What:=Target.Cells(1, 1)).Select
End Sub

работает все так:
тыкаем ячейку, считываем штрих далее он находит штрих(выполняем манипуляции в этой строке или не выполняем), далее либо в ручную удоляем все и сканируем либо жмем ctrl+q (макрос затирает все в строке заполнения и ставит туда курсор)

т.е. вся работа сводится к нажатию ctrl+q и считыванию шх

[Hugo121]

В таком случае я предлагаю свести манипуляции к взгляду на соседнюю ячейку.
Зачем выделять где-то там найденное? Копируете его рядом, или пишите есть/нет, активируете снова нужную подконтрольную коду/сканеру ячейку.

[DiemonStar]

А я бы предложил через юзер-форму работать. Немного заморочнее, но в плане защиты от случайного удаления/изменения исходных данных намного более устойчивая система.

[IgorGO]

Ctr+G - лишнее действие, замедляющее весь процесс.

проверку на вшивость

на соседнем листе держим список легальных штрих-кодов
на активный лист сосканировали очередной штрихкод (настраиваем Ексель после ввода данных переход на ячейку ниже)
Private Sub Worksheet_Change(ByVal Target As Range)
проверила наличие штрихкода на соседнем листе и либо забрала и добавила описание с соседнего листа, либо выдала БИП (или любой другой звук) - и внесла "вшивый № ...", в одну из колонок описания.

действия оператора:
подключить оборудование, активировать правильный лист, поставить курсор в нужную ячейку, и сканировать, сканировать, сканировать... до полного удовлетворения.
1 вшивый - устное пердупреждение
2 вшивых - штраф 100 баксов
3 вшивых - киоск закрывается с продавцом внутри и поджигается с наружи. составляется акт о неисправной электропроводке и самовозгорании.
Процедура называется "борьба с вшивостью"

[Alesa90]

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

Ctr+G - лишнее действие, замедляющее весь процесс.

на соседнем листе держим список легальных штрих-кодов
на активный лист сосканировали очередной штрихкод (настраиваем Ексель после ввода данных переход на ячейку ниже)
Private Sub Worksheet_Change(ByVal Target As Range)
проверила наличие штрихкода на соседнем листе и либо забрала и добавила описание с соседнего листа, либо выдала БИП (или любой другой звук) - и внесла "вшивый № ...", в одну из колонок описания.

действия оператора:
подключить оборудование, активировать правильный лист, поставить курсор в нужную ячейку, и сканировать, сканировать, сканировать... до полного удовлетворения.
1 вшивый - устное пердупреждение
2 вшивых - штраф 100 баксов
3 вшивых - киоск закрывается с продавцом внутри и поджигается с наружи. составляется акт о неисправной электропроводке и самовозгорании.
Процедура называется "борьба с вшивостью"

ребят мне просто надо найти на листе позицию и внести изменения(или не внести) рукой и далее продолжить поиск , штрихкод дает мне только уникальное поле по которому я могу найти данную позицию. Конечно ваш интузеазм похвален...

Кстати решение через юзер формы вприцнапе интересное, это действительно защитит от ошибок и "случайного" изменения ячеек, что кстати очень не желательно

[DiemonStar]

1 вшивый - устное пердупреждение
2 вшивых - штраф 100 баксов
3 вшивых - киоск закрывается с продавцом внутри и поджигается с наружи. составляется акт о неисправной электропроводке и самовозгорании.
Процедура называется "борьба с вшивостью"

Игорь, да вы маньяк

Вы правы, решений данной задачи много и краеугольным камнем является разделение таблицы штрихов, таблицы с результатами сканирования и области работы со сканером. Иначе юзеры все-равно что-нить да поломают)

[DiemonStar]

ребят мне просто надо найти на листе позицию и внести изменения(или не внести) рукой и далее продолжить поиск , штрихкод дает мне только уникальное поле по которому я могу найти данную позицию. Конечно ваш интузеазм похвален...

рассказываю страшную историю:

1. оператор не нажал/ не смог нажать и т.п. сочетание, очищающее А1 и позиционирующее туда курсор.
2. отсканил очередной ш/к, который забился в текущую ячейку и заменил информацию. содержавшуюся там ранее
3. юзер забыл отменить последние изменения и принялся работать дальше.

если п.2. повторился неоднократно, то на выходе будет полная каша.

[Alesa90]

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

рассказываю страшную историю:

1. оператор не нажал/ не смог нажать и т.п. сочетание, очищающее А1 и позиционирующее туда курсор.
2. отсканил очередной ш/к, который забился в текущую ячейку и заменил информацию. содержавшуюся там ранее
3. юзер забыл отменить последние изменения и принялся работать дальше.

если п.2. повторился неоднократно, то на выходе будет полная каша.

дак вот да, я это историю знаю и понимаю прекрасно, в этом и есть все подводные камни

[IgorGO]

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