资产盘点帐实相符的条码录入Excel方法

最新推荐文章于 2020-12-30 23:00:42 发布

txlgl

最新推荐文章于 2020-12-30 23:00:42 发布

阅读量983

点赞数

本文链接：https://blog.csdn.net/txlgl/article/details/60976038

版权

将用条码枪盘点的标签号码存入一个TXT文档，如1.txt，用Open input 方式打开，逐个标签进行扫描对照，将对应的那一个单元格进行标记。

Sub 盘点接入()
    Dim str As String, i As Integer
    Open "c:\1.txt" For Input As #1
    While Not EOF(1)
        Input #1, str
        For i = 3 To 3800
           If Cells(i, 1) = str Then
              Cells(i, 10).Value = "帐实相符"
           End If
        Next
        Debug.Print str
    Wend
    
    Close #1
End Sub