使用条形码扫描进行 Excel 库存管理的 VBA 代码

Question

我对 VBA 代码几乎没有经验。我有一个用于库存跟踪的 excel 电子表格，我正在尝试设置一种方法来使用条形码扫描仪自动搜索电子表格内的扫描号码并提示用户添加或删除一些相关项目。

任何人都可以帮助我编写能够执行此操作的代码吗？

这里的目标是，在扫描 B1 中的商品条形码后，电子表格将在 C 列中搜索相关的扫描编号，然后提示您更新列中相关的“Units in Stock”编号E.

操作完成后，B1会再次变为空白，为下一次扫描做好准备。

任何帮助将不胜感激！

Answer 1

Sub barcode()

Dim barcodeval As String
Dim i As Integer
Dim j As Integer
Dim quantity As Integer

i = 1
j = 3

barcodeval = Cells(1, 2)

Do While Cells(i, j) <> 0
    If barcodeval = Cells(i, j) Then
    quantity = InputBox("Update number of units in stock", "Update", "Enter new value here")
    Cells(i, j + 2) = quantity
    i = i + 1
    Else
    i = i + 1
    End If
Loop


End Sub