ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 扫描输入,数据比对,打印条形码

[复制链接]

TA的精华主题

TA的得分主题

发表于 2016-3-11 14:56 | 显示全部楼层 |阅读模式
各位大侠好。

本人对VBA不是很在行,略微看得懂一些。现在有这么一个需求如下:具体在附件中。恳请大家给与帮助,谢谢。
要求:如附件中的输入界面
* 文本框接受16位字符串,前10位为产品料号,后6位为序列号,可手输入或扫描
* 默认选项是打印文本(即128码的条形码下有文本)
* 输完后按打印健时如果文本框中的字符大于16位或小于16位会提示错误“请输入10位产品料号+6位序列号”
* 输入完毕后回车,会到Definition中比对,截取前10位,如果没有和A列一致的,提示错误:“没有此产品,请添加新产品”
* 如果比对成功,将Definition中第2列和第3列的信息(中间加空格)显示在红色字下的文本框中。
* 创建一个记录文件(excel 或文本文件),名字是年月开头即可,如201603.xls或201603.txt。如果有此文件,就打开,
* 按打印按钮(保存和打印)后,正确的文本框内容将被保存在相应月的记录文件中下,并在后面保存当时的时间(dd/mm/yyyy hh:mm:ss),与Record页中类似
* 若无记录,就存在第一行,若有记录,则保存在记录的下一行
* 打印在默认的标签打印机上,128码,大小55mm X 31mm

Barcode.rar

108.21 KB, 下载次数: 89

输入打印界面和要求

TA的精华主题

TA的得分主题

发表于 2016-3-11 15:06 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-11 20:12 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-12 19:50 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-14 16:33 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-9-19 10:58 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-1-15 18:01 , Processed in 0.021879 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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