Question

我对VBA代码的经验不多。我有一个用于库存跟踪的Excel电子表格，我正在尝试设置一种方法，使用条形码扫描程序自动搜索电子表格中的扫描数字，并提示用户添加或删除大量相关项目。

任何人都可以帮我写一个能够做到这一点的代码吗？

此处的目标是在扫描B1中的项目条形码后，电子表格将在C列中搜索关联的扫描编号，然后提示您更新相关的＆＃34;库存单位＆＃ 34; 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

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

1 个答案: