0

VBA コードの経験はほとんどありません。在庫追跡用の Excel スプレッドシートがあり、バーコード スキャナーを使用してスプレッドシート内のスキャンされた番号を自動的に検索し、関連するアイテムの数を追加または削除するようにユーザーに促す方法を設定しようとしています。

これを行うことができるコードを書く際に誰か助けてもらえますか?

ここでの目標は、B1 の商品バーコードをスキャンした後、スプレッドシートが C 列の関連するスキャン番号を検索し、E 列の関連する「在庫数」を更新するように求めることです。

操作が完了すると、B1 は再び空白になり、次のスキャンの準備が整います。

どんな助けでも大歓迎です！

4

1 に答える 1

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
于 2014-12-30T19:52:43.273 に答える