Có cách nào để get / chương trình excel chuyển đổi giữa các trang tính khi bạn quét mã vạch không gian

Tôi làm việc cho một doanh nghiệp nhỏ và cần trợ giúp để thiết lập hệ thống quản lý hàng tồn kho mới của chúng tôi. Tôi đã có tài liệu excel sẵn sàng và máy quét mã vạch nhập mã vạch trực tiếp vào các ô nhưng tôi gặp sự cố. Chúng tôi có hơn 100 phần và mỗi phần có một tab bảng tính cụ thể, mỗi phần được gắn nhãn với một số phần cụ thể. Có cách nào để tôi có thể mã hóa một bảng tính mà khi quét mã vạch một phần số 1234LOCK mà Excel sẽ tự động chuyển đến bảng có nhãn 1234LOCK không?

Đặt phần này vào mô-đun bảng tính của trang tính mà bạn 1234LOCKsẽ đặt vào khi bạn quét mã vạch.

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

Tôi giả sử việc quét của bạn sẽ kích hoạt thay đổi trang tính và tên sẽ đi vào A1.