ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 条形码扫描后自动判断是否可行?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-10-1 17:54 | 显示全部楼层 |阅读模式
本人用EXCEL做成个表格,里面有姓名和身份证号,用身份证号制成条形码,将光标放在E列的任何单位格
后进行扫描条形码录入身份证号码,再根据这个身份证号码自动查找C列中的身份证号码,如果找到则在D
列中对应的单元格输入“已缴费”,如果找不到则提示“该身份证号不存在”,做完这个工作后,光标移
到下个单元格,然后再扫描,做跟开始同相的工作“扫描--输入或提示”。望高手指教。

居民.rar (2.28 KB, 下载次数: 89)

TA的精华主题

TA的得分主题

发表于 2012-10-2 17:18 | 显示全部楼层
这个应该可以.
[code=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
h = Target.Row
l = Target.Column
If l >= 5 Then GoTo check Else Exit Sub
check:
For i = 3 To [C3].End(4).Row
    If Cells(h, l).Text = Cells(i, 3).Text Then
       Mark = 0
       Cells(i, 4) = "已缴费"
       Exit For
    Else
       Mark = 1
    End If
Next
If Mark = 1 Then
    MsgBox ("NG")
   Cells(h, l).Font.ColorIndex = 3
End If
End Sub
[/code]
判断后没必要自动移光标,扫描枪扫描完成后会有个模拟ENTER的动作.
自己设置下向下还是向右.
居民.zip (19.43 KB, 下载次数: 133)


TA的精华主题

TA的得分主题

 楼主| 发表于 2012-10-3 00:29 | 显示全部楼层
本帖最后由 mucym 于 2012-10-3 00:35 编辑
xxyyx82 发表于 2012-10-2 17:18
这个应该可以.

判断后没必要自动移光标,扫描枪扫描完成后会有个模拟ENTER的动作.


首先感谢xxyyx82的帮助,做得很好!现在有个小小的改动希望兄弟再改下,就是扫描后,如果这个身份证号存在的话,在输入完“已缴费”后光标自动跳到相应的行,因为要在这行后面输入数字,比如20或40这样的字,还有在输入数据时不能有提示,再次感谢兄弟了,帮了很大的忙了!


居民(新改的).rar (15.76 KB, 下载次数: 93)

TA的精华主题

TA的得分主题

发表于 2012-10-4 14:00 | 显示全部楼层
光标移动到"已缴费"对应的行
去掉了MSGBOX,没有对应数据时为红色字体,光标停留在输入区

居民.zip

20.18 KB, 下载次数: 176

TA的精华主题

TA的得分主题

发表于 2012-10-9 02:20 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
做个记号,学习

TA的精华主题

TA的得分主题

发表于 2018-9-19 11:06 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
xxyyx82 发表于 2012-10-4 14:00
光标移动到"已缴费"对应的行
去掉了MSGBOX,没有对应数据时为红色字体,光标停留在输入区

我想找你帮忙我。也是有扫描条码判断的相关。产品出库时的判断
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2025-1-15 18:22 , Processed in 0.024378 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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