Есть ли способ заставить /program excel переключаться между листами при сканировании пространственного штрих-кода

Question

Я работаю на малый бизнес и мне нужна помощь в настройке нашей новой системы управления запасами. Я подготовил документ Excel и сканер штрих-кодов вводит штрих-коды непосредственно в ячейки, но у меня возникла проблема. У нас более 100 деталей, и у каждой детали есть отдельная вкладка рабочего листа, каждая из которых помечена конкретным номером детали. Можно ли в любом случае кодировать рабочий лист, чтобы при сканировании штрих-кода номера детали было указано 1234LOCK, что Excel автоматически перейдет на лист с меткой 1234LOCK?

Answer 1

Поместите это в модуль листа, на который вставляется ваш 1234LOCK при сканировании штрих-кода.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim lastRow As Long

If Range("C" & Rows.Count).End(xlUp).Row = Range("D" & Rows.Count).End(xlUp).Row Then
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
ElseIf Range("C" & Rows.Count).End(xlUp).Row < Range("D" & Rows.Count).End(xlUp).Row Then
    lastRow = Range("D" & Rows.Count).End(xlUp).Row + 1
End If

If Target.Address = "$C$" & lastRow Then
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = Range("C" & lastRow).Value Then
            ws.Activate
        End If
    Next ws
End If
End Sub

Я предполагаю, что ваше сканирование вызовет изменение листа, и имя переходит в A1 .