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

[Alesa90]

Задача такая: есть штрихкоды в книге , нужно при сканировании найти нужный и встать на него.
мысли такие: сконфить сам сканер на ctrl + f и жать enter, реально ли это? Если да то как.
может нужно какой нибудь макрос или надстройку?

модель сканера ms5145, подключение USB к ноутбуку.

[DiemonStar]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not (Intersect(Target, [1:1]) Is Nothing) Then
    Set R = Columns(Target.Cells(1, 1).Column).Find(What:=Target.Cells(1, 1))
    If R Is Nothing Then
      MsgBox "Not found"
    Else
      R.Select
    End If
  End If
End Sub

Вот такая процедура вам поможет, если сканер работает в режиме HID-клавиатуры. Для работы нужно, чтобы была выделена соответствующая ячейка первой строки. Поиск работает по столбцу содержащему ячейку.

[Alesa90]

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

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not (Intersect(Target, [1:1]) Is Nothing) Then
    Set R = Columns(Target.Cells(1, 1).Column).Find(What:=Target.Cells(1, 1))
    If R Is Nothing Then
      MsgBox "Not found"
    Else
      R.Select
    End If
  End If
End Sub

Вот такая процедура вам поможет, если сканер работает в режиме HID-клавиатуры. Для работы нужно, чтобы была выделена соответствующая ячейка первой строки. Поиск работает по столбцу содержащему ячейку.

да действительно работает, а как не писать считываемый ш\х в первую ячейку?

[DiemonStar]

Тогда придётся использовать отдельную форму для ввода или InputBox, но запускать их придётся вручную.

Вариант вроде такого:

Sub Scan
    Set R = [A:A].Find(What:= InputBox("Введите штрих-код:", "Поиск"))
    If R Is Nothing Then
      MsgBox "Not found"
    Else
      R.Select
    End If
End Sub

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

[Alesa90]

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

Тогда придётся использовать отдельную форму для ввода или InputBox, но запускать их придётся вручную.

Вариант вроде такого:

Sub Scan
    Set R = [A:A].Find(What:= InputBox("Введите штрих-код:", "Поиск"))
    If R Is Nothing Then
      MsgBox "Not found"
    Else
      R.Select
    End If
End Sub

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

работает конечно классно только все же это решение немногим отличается от нажатие ctrl + f , попробую надстройки для поиска поискать, но все равно спасибо ))

[DiemonStar]

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

работает конечно классно только все же это решение немногим отличается от нажатие ctrl + f , попробую надстройки для поиска поискать, но все равно спасибо ))

Простые пути тут вряд-ли будут: ввод с клавиатуры ничем не отличается от ввода с сканера, поэтому придётся работать непосредственно с драйвером устройства (а vba к этому не очень приспособлен).

[Alesa90]

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

Простые пути тут вряд-ли будут: ввод с клавиатуры ничем не отличается от ввода с сканера, поэтому придётся работать непосредственно с драйвером устройства (а vba к этому не очень приспособлен).

ну да ваш последний макрос навел меня вот натакие мысли:

Private Sub CommandButton1_Click()
 Cells.Find(Me.TextBox1, ActiveCell).Activate
End Sub

бокс и кнопку поместил на 1 закрепленную строку для удобства. С кнопкой коненчо все проще . Без кнопки хочется.

[Hugo121]

Так у текстбокса есть события - можно их использовать.

[DiemonStar]

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

ну да ваш последний макрос навел меня вот натакие мысли:

Private Sub CommandButton1_Click()
 Cells.Find(Me.TextBox1, ActiveCell).Activate
End Sub

бокс и кнопку поместил на 1 закрепленную строку для удобства. С кнопкой коненчо все проще . Без кнопки хочется.

и принципиально не отличается ничем от первого варианта с первой строкой) только там можно и без кнопки поиск делать...

[Alesa90]

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

и принципиально не отличается ничем от первого варианта с первой строкой) только там можно и без кнопки поиск делать...

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