Здравствуйте, уважаемые форумчане. Задача просто донельзя, пытался подстроить под свои нужды код найденный на просторах данного форума, но честно говоря мозгов не хватило. В общем: имеется номенклатурный список на нескольких листах. На первом листе поле ввода баркода, который вводится сканером. Нужен счетчик всех введенных баркодов в столбце "количество", но (что важно) на всех листах). Возможно на форуме есть готовое решение, но я к сожалению, его не нашел. Буду рад любой помощи.
Здравствуйте, уважаемые форумчане. Задача просто донельзя, пытался подстроить под свои нужды код найденный на просторах данного форума, но честно говоря мозгов не хватило. В общем: имеется номенклатурный список на нескольких листах. На первом листе поле ввода баркода, который вводится сканером. Нужен счетчик всех введенных баркодов в столбце "количество", но (что важно) на всех листах). Возможно на форуме есть готовое решение, но я к сожалению, его не нашел. Буду рад любой помощи.JacoP
Здравствуйте. Сделала на событие Worksheet_Change, но если баркод считывается сканером, то, наверное, надо на событие Calculate вешать [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim sh As Worksheet, lrow&, i& If Target.Address <> "$G$1" Then Exit Sub For Each sh In Worksheets lrow = sh.Cells(sh.Rows.Count, 4).End(xlUp).Row For i = 2 To lrow If sh.Cells(i, 4) = Target Then sh.Cells(i, 3) = sh.Cells(i, 3) + 1: Exit For Next i Next sh End Sub
[/vba]
Здравствуйте. Сделала на событие Worksheet_Change, но если баркод считывается сканером, то, наверное, надо на событие Calculate вешать [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim sh As Worksheet, lrow&, i& If Target.Address <> "$G$1" Then Exit Sub For Each sh In Worksheets lrow = sh.Cells(sh.Rows.Count, 4).End(xlUp).Row For i = 2 To lrow If sh.Cells(i, 4) = Target Then sh.Cells(i, 3) = sh.Cells(i, 3) + 1: Exit For Next i Next sh End Sub
: Exit For точно нужен? Если нужно сосчитать все, то не нужен ведь. И кстати если там точно может быть только одно значение - думаю быстрее цикла по ячейкам и проверки каждой будет find.
: Exit For точно нужен? Если нужно сосчитать все, то не нужен ведь. И кстати если там точно может быть только одно значение - думаю быстрее цикла по ячейкам и проверки каждой будет find.Hugo
В примере баркоды не повторяются не только на листе, но и в книге. То есть если искомый код найден, то можно вообще поиск заканчивать. Но, возможно, это только пример такой... Подождём ТС
В примере баркоды не повторяются не только на листе, но и в книге. То есть если искомый код найден, то можно вообще поиск заканчивать. Но, возможно, это только пример такой... Подождём ТСPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Pelena, Добрый день. Все работает, спасибо большое! Единственный момент, не подскажите, есть ли возможность чтобы после ввода баркода активной оставалась ячейка ввода?
Pelena, Добрый день. Все работает, спасибо большое! Единственный момент, не подскажите, есть ли возможность чтобы после ввода баркода активной оставалась ячейка ввода?JacoP