VBA扫码称重系统~

lcfaiml001

如附件，这是一个简易的扫码称重系统。
重量数据，来自电子称。运单号来自扫码枪，。。
要求：
        电子称重后，自动跳到运单号输入框，然后扫码输入运单号后，计数加1   填入，SHEET1相对应的位置。遂条向下输入，。
如果出现相同单号，提示已经录入。录入成功后，清除重量和运单号数据，焦点设置到重量输入框~~望各位大大帮帮忙。谢谢！

zpy2

     电子称重后
erp电子秤直接usb接口像扫码器一样的直接提交到excel还是串口？

lcfaiml001

zpy2 发表于 2020-1-14 12:48
电子称重后
erp电子秤直接usb接口像扫码器一样的直接提交到excel还是串口？

USB像扫码器一样的

lcfaiml001

lcfaiml001 发表于 2020-1-14 13:11
USB像扫码器一样的

直接提交到excel

ggmmlol

解决方案的2个要点，供参考：
1、用工作表的Change事件处理。
2、无论是电子称或是扫码机的数据，都是输入到当前的活动单元格，以此触发工作表的Change事件，程序得以自动运行，并根据当前活动单元格的位置和数据格式，判断是否相匹配。如相匹配，并确认匹配到的是称重数据，则把活动单元格设置为相应的运单号所在单元格，等待扫码数据的输入；如果确认是运单号格式的文本数据，则把活动单元格设置为下一行的称重数据列的单元格，等待新一条称重数据录入；如果都不匹配，则播放提示音乐，并弹出提示信息对话框，提示录入的数据异常。

lcfaiml001

ggmmlol 发表于 2020-1-14 14:09
解决方案的2个要点，供参考：
1、用工作表的Change事件处理。
2、无论是电子称或是扫码机的数据，都是输 ...

不会，求教！