扫描枪条码枪加excel

更新时间:2023-03-20 08:20: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,设定下一行第一列为焦点,你可以继续扫描。

本文来源:https://www.bwwdw.com/article/tkm1.html

Top