ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1042|回复: 7

求助 扫码录入 二维码是28位的,包装上8位,现在卡到扫码可以重复计数,如何解决

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-12-14 16:59 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
求帮助,高手,附件已经上传,多谢指导。

扫码录入.rar

23.99 KB, 下载次数: 16

TA的精华主题

TA的得分主题

发表于 2019-12-14 17:06 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
没听明白,扫码只是输入吧

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-14 17:11 来自手机 | 显示全部楼层
zpy2 发表于 2019-12-14 17:06
没听明白,扫码只是输入吧

不是输入,扫的二维码与表里面实物批号比对一样计数,但扫的二维码是28位批号,包装上批号是8位的,截取后比对计数,现在可以,但扫过的二维码还可以计数,这就不对了。

TA的精华主题

TA的得分主题

发表于 2019-12-14 19:11 来自手机 | 显示全部楼层
gyh1106 发表于 2019-12-14 17:11
不是输入,扫的二维码与表里面实物批号比对一样计数,但扫的二维码是28位批号,包装上批号是8位的,截取 ...

这和扫码 没啥关系,就是a1单元格的前6位 是不是等于 mid(c2,7,6),等于的话就是 b2=1吧,然后看看有几个1,
你如果能模拟一下结果,估计就有人能明白了,和扫码输入和键盘输入关系不大。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-14 19:44 来自手机 | 显示全部楼层
zpy2 发表于 2019-12-14 19:11
这和扫码 没啥关系,就是a1单元格的前6位 是不是等于 mid(c2,7,6),等于的话就是 b2=1吧,然后看看有几个1 ...

a1是来货的批号8位,我没有加批号的数量,我做了textbox来接收扫码枪扫二维码的28位数,每扫一包货物,从中截取8位,和a1比对,如果一样在b1加1,比如花生有10包,每包扫二维码是唯一的,28位截取后比对,计数我已经做成功了,但把这10扫过的再扫,会接着计数,这样与实货数就不对了。

TA的精华主题

TA的得分主题

发表于 2019-12-15 07:01 来自手机 | 显示全部楼层
gyh1106 发表于 2019-12-14 19:44
a1是来货的批号8位,我没有加批号的数量,我做了textbox来接收扫码枪扫二维码的28位数,每扫一包货物,从 ...

'If a = Sheets("数据表").Range("C1:C" & rowNum).Cells(i, 3).Value Then

' 'MsgBox "该箱已经录入,请核对!"

我还是不明白你的意思,上面就是是否重复的代码啊。
另外,入库的话,不需要 a列里a1去和c1比较的吧,直接全部输入18位的就行了,然后统一比较也行啊。

TA的精华主题

TA的得分主题

发表于 2019-12-15 08:19 来自手机 | 显示全部楼层
本帖最后由 zpy2 于 2019-12-15 08:46 编辑
zpy2 发表于 2019-12-15 07:01
'If a = Sheets("数据表").Range("C1:C" & rowNum).Cells(i, 3).Value Then

' 'MsgBox "该箱已经录入 ...


Private Sub TextBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim rowNum As Long
    rowNum = Sheets("数据表").Range("A" & Sheets("数据表").Rows.Count).End(xlUp).Row
    '取出工作表的数据
    Dim crr
    crr = Sheets("数据表").Range("A1:A" & rowNum)
    '取出当前扫描的条码
    'Dim dangMa As String
    'dangMa = Trim(TextBox1.Text)
    '循环所有数据,对比条码
    rem Dim i As Long, q As Long, a As String, b As Long, c As Long


  For i = 1 To rowNum
  If KeyCode.Value = 13 Then
'这里判断是否重复扫码了同一包商品
  if 重复(TextBox1.Text) then exit sub
rem 具体是哪几位 和 第一列 比对 自己调节,我这里暂时是前8位
  a = Mid(TextBox1.Text, 1, 8)
If a = Sheets("数据表").Cells(i, 1).Value Then
  rem 这里你是不是自己改的,其实最好是先别改代码,否则,代码看不清啥意思了。


'Sheets("数据表").Cells(i, 3).Value = a
'If a = Sheets("数据表").Range("C1:C" & rowNum).Cells(i, 3).Value Then

' 'MsgBox "该箱已经录入,请核对!"



rem b = Val(Mid(a, 5, 7))
  rem   c = b * 10 + 3 这里你是不是要改数量?
rem 你这段代码 实在是 看不明白 要干嘛
   
rem       If c = Trim(crr(i, 1)) Then rem 这句,前面的判断?
           
        Sheets("数据表").Cells(i, 2).Value = Cells(i, 2).Value + 1
        TextBox1.Text = ""
   
rem      End If
        
        End If
      End If

    Next


End Sub
function 重复(a as string)


    rowNum = Sheets("数据表").Range("C" & Sheets("数据表").Rows.Count).End(xlUp).Row
    Dim crr
    crr = Sheets("数据表").Range("c1:c" & rowNum)

    '循环所有数据,对比条码
   rem Dim i As Long, q As Long, a As String, b As Long, c As Long


For i = 1 To rowNum
If a = Sheets("数据表").Range("C1:C" & rowNum).Cells(i, 3).Value Then

MsgBox "该箱已经录入,请核对!"

重复=true
exit function
else
'不重复 保留到 新的一行
        Sheets("数据表").Cells(rowNum+1, 3).Value = a
重复=false
exit function

End If

Next




end function


手机上写的代码,不知道是不是这个意思。。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-15 09:10 | 显示全部楼层
zpy2 发表于 2019-12-15 08:19
Private Sub TextBox1_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Di ...

image.png
现在成这样杨了,我觉得没扫一个二维码计列中,textbox清除,在扫的二维码与之前的做比较,相同的,MsgBox "该箱已经录入,请核对!",不相同,二维码截取与a列比对相同的 ,在相对的b列 计数加1。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 17:02 , Processed in 0.046817 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表