条形码扫描后自动判断是否可行？

mucym · 发表于 2012-10-1 17:54

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

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

xxyyx82 · 发表于 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)

mucym · 发表于 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)

xxyyx82 · 发表于 2012-10-4 14:00

光标移动到"已缴费"对应的行
去掉了MSGBOX,没有对应数据时为红色字体,光标停留在输入区

tianyk · 发表于 2012-10-9 02:20

做个记号，学习

long635000 · 发表于 2018-9-19 11:06

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

我想找你帮忙我。也是有扫描条码判断的相关。产品出库时的判断

		自动登录	找回密码
密码			免费注册

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