扫描枪条码枪加excel
更新时间:2023-08-16 09:40:01 阅读量: 教学研究 文档下载
扫描枪条码枪加excel
描枪只是一个输入设备(相当于 另类的键盘)而已,只有输入字符到Excel中的功能,不会有查找、定位、替换的 判断与操作功能。
这种判断与操作,只能由软件提供,可以由输入设备的输入来触发软件去执行。
可以用VBA写一段代码到Ecxel中,在你输入内容时,立即查找当前表,找到有其他相同的,就清除之。
---------------------------------------
因为楼主并没有说明你是如何录入的(比如:是固定在一个单元格中输入,还是随机在任意单元输入),我针对随机单元格录入的情况,写了一段。功能如下:
1)支持在一个工作表的任意单元格输入数据;
2)在录入完成后,Excel自动检查是否存在另一个单元格的内容与所录入内容完全相同;
3)如存在,则清除当前单元格与所找到单元格的内容;
4)光标自动定位到所清除的两单元格中 行号小的那一个上,以便继续录入;
5)如不存在,则什么都不做,就是正常录入了一个单元格数据;
在需要此功能的那个工作表标签上点右键,选择“查看代码”打开宏编辑器,在右边的空白处贴上如下代码,就可以实现上述功能,全自动工作,无需手工执行宏(也就是说,你只要用扫描枪连续扫描就OK了,仿佛是的扫描枪具有了楼主所述的功能一样。):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As Range, str As String
Application.EnableEvents = False
str = Target.Text
If str <> "" Then
For Each m In Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell))
If Not (m.Row() = Target.Row() And m.Column() = Target.Column()) And m.Text = str Then
m.ClearContents
Target.ClearContents
If m.Row() < Target.Row() Then m.Select Else Target.Select Exit For
End If
扫描枪条码枪加excel
Next m
End If
Application.EnableEvents = True
End Sub
另,如果因为异常,导致宏不自动动作了,请关闭 Excel(不是这个文件,而是整个Excel)并重新打开,就能恢复自动了。 现在在一张空白EXCEL表格中,我想在A栏和D栏之间输入数据,例如A是产品代码,D是该产品的型号代码,如何在扫完A后记录下,光标自动跳到D栏,下个扫的型号代码就会自动输入D栏,然后下面又会跳到A2继续输入产品代码,扫完去D2输入型号代码。。如此循环下去 期待
与上面的方法一样,只是代码换成这样:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column() = 1 Then
Cells(Target.Row(), 4).Select
ElseIf Target.Column() = 4 Then
Cells(Target.Row() + 1, 1).Select
End If
End Sub
扫描枪在EXCEL表扫描条码时录入数据,然后由这些数据再生成个新数据,然后通过标签打印机自动打印
扫描数据到数据自动录入到当前单元格应该是扫描枪程序做的,后续vba宏可以实现你的功能。
包括数据二次计算,调用打印,单元格重新定位等待下次扫描。
如果输入条码的列在1列 在sheet1下新建函数如下:
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 1) Then
Sheet1.Cells(Target.Row, 2) = Target + 100
扫描枪条码枪加excel
Sheet1.PrintOut
Sheet1.Cells(Target.Row + 1, 1).Activate
End If
End Sub
这个效果是,修改当前行第二列数字为条码+100,打印sheet1,设定下一行第一列为焦点,你可以继续扫描。
正在阅读:
扫描枪条码枪加excel08-16
《做一个不再瞎忙的班主任》读书心得09-15
金属非金属地下矿山安全管理监督检查表03-15
二年级口算100题(打印版)07-20
2016年六年级语文上册第七单元提升测试题(吉林版有答案)05-06
护理工作规范内容Microsoft Word 文档05-12
2016年非上海生源普通高校应届毕业生进沪就业评分办法02-03
乡镇林业工作站02-06
2018年中国汽车驱动桥市场分析调查及行业投资前景趋势报告目录09-01
清华大学建筑史真题(2014年前)10-09
- 公务员上岸同学告诉你,怎样走出面试中常见的十大误区
- 作表率,我们怎么办(办公室主任)
- 乘务员安全责任书
- 增员面试流程
- 河南省焦作市规模以上租赁和商务服务业企业应付职工薪酬数据洞察报告2019版
- 最新4社区工作者面试题
- 个人简历表
- 男教工体检必检项目
- 河南省兰考县规模以上租赁和商务服务业企业应付职工薪酬数据洞察报告2019版
- 兼职译员测试稿
- 河南省开封市规模以上租赁和商务服务业企业应付职工薪酬数据洞察报告2019版
- 永州职业技术学院校园总体规划-永州职业学院
- 最新5、培训科长笔试题(答案)
- 2019雅商酒店境外人员登记培训稀有资料,不可错过
- 小学教师求职简历范文
- 红酒知识与礼仪
- 春节给领导拜年的短信拜年词
- 2019年上半年中小学教师资格证结构化面试真题1
- 20XX年县干部培训工作目标
- 硬笔试听课
- 扫描枪
- 条码
- excel
- 天津市武清区中考物理一模试卷
- 影响辐射剂量的因素
- 北方工业大学法学考研群讨论学习方法汇总
- 华中科技大学软件学院软件体系结构试卷A
- 打造精品服务 创建品牌窗口
- 计量法律法规及综合知识
- 常规管理资料目录(最新目录)(修订)
- 《植物生理学》名词解释
- 2808-甘肃省平凉市2010年第六次全国人口普查主要数据公报
- 宜昌市2013年春季小学六年级英语调研考试试题
- 省优秀三好学生申请书
- 曾都区尚市国土资源所(工作总结)
- 资金占用协议
- 微生物学课后习题答案_沈萍_陈向东_高等教育出版社
- 研究性学习课题 如何处理白色污染
- 浅谈电算化过程中公路基本建设会计若干明细科目设置的合理改进
- 腿部肌肉锻炼方法
- 油坝乡中心学校2011-2012上学期
- 控制农残的机制及对农产品品质的影响_李春辉 (1)
- 法学书单(台湾)