关于扫码出库，如何通过输入条码直接进行库存的增减

baimen1987

引工作变动，才开始学习EXCEL使用就面临需要编码方面的问题
单位需要扫描条码进行货品的出入库，想请教下如何实现该功能
如扫码获得数据是F121，F代表产品名，121是出库数量
应该如何实现
感谢各位大大的帮助

baimen1987

附件上传，想通过在E1输入序号，然后自动将商品的出库数增加到表格中~
新学excel，捣鼓这个几天了，find什么的都试了下，始终搞不出来
有大大能帮下忙吗

baimen1987

附件在这里

linkspeed

没明白你的意思，最好做个例子吧！还有你获得的数据的规则是什么？
都没有说明白，实在帮不了你！

lsh1000

看看是不是你想要的。

Sub 出库()
    Dim n As Integer, n1 As Integer, n2 As Integer, arr0(), arr1
    Dim 件号 As String
    Dim 出库数 As Integer
    Dim d1 As Object
    Set d1 = CreateObject("scripting.dictionary")
    n = ThisWorkbook.Worksheets("出库监控").[a65536].End(xlUp).Row
    Dim arr
    ReDim arr1(1 To n - 5)
    arr = Range("a6:a" & n)
    arr0 = Application.Transpose(arr)

    件号 = Left(Worksheets("出库监控").Range("e1").Value, Len(Worksheets("出库监控").Range("e1").Value) - 2)
    出库数 = Val(Right(Worksheets("出库监控").Range("e1"), 2))
    For n1 = 1 To n - 5
    d1(arr0(n1)) = ""
    arr1(n1) = n1
    Next n1
    d1(件号) = 出库数
    n2 = WorksheetFunction.Match(件号, arr0, 0)
    Worksheets("出库监控").Range("f" & (n2 + 5)).Value = 出库数

End Sub

robert301

下了附件，心里哇凉哇凉的。

loveq0769

robert301 发表于 2016-4-19 11:34
下了附件，心里哇凉哇凉的。

你好  请问你的问题解决了  我也遇到这样的问题

纪风ShareExcel

loveq0769 发表于 2016-10-29 11:44
你好  请问你的问题解决了  我也遇到这样的问题

ShareExcel平台之生产管理系统，我们以最熟悉、最轻松的Excel开发基于互联网的企业级信息化应用，选择我们你也行。了解更多信息加“您身边的Excel专家”QQ群（群号：579397341）