Excel是计算机应用软件,扫描条码加上excel_计算机软件和应用程序_IT /计算机_数据...

示踪只是一个输入设备(等效于备用键盘)。它仅具有在Excel中输入字符的功能。没有搜索，定位和替换的判断和操作功能。这种判断和操作只能由软件提供，并且可以通过输入设备的输入触发软件执行。您可以使用VBA将一段代码写入Ecxel。输入内容后，将立即搜索当前表，如果还有其他相同的表，则将其清除。 --------------------------------------因为主持人没有解释您的输入方式(例如：是固定在一个单元格中还是随机输入到任何单元格中？我为随机单元格条目写了一段，其功能如下：1)支持在工作表的任何单元格中输入数据；2)完成后，Excel自动检查是否存在另一个单元格，其内容与输入的内容完全相同；3)如果存在，则清除当前单元格和找到的单元格的内容；4)光标自动位于要清除的两个单元格中较小的行号，以便您可以继续输入；5)如果不存在，则不执行任何操作，是正常输入单元格数据；右键单击需要此的工作表标签函数中，选择“查看代码”以打开宏编辑器，将以下代码粘贴到右侧的空白处即可实现上述功能，全部自动工作，无需手动执行宏(也就是说，您只需d可以连续扫描，直到扫描仪可以正常运行，就像扫描仪具有主机描述的功能一样。

)：私有子Worksheet_Change(按目标的ByVal目标)作为范围的Dim m，作为字符串的str Application.EnableEvents = False str = Target.Text如果str“”然后对于Range中的每个m(范围(“ A1”)， ActiveCell.SpecialCells(xlLastCell))如果不是(m.Row()= Target.Row()和m.Column()= Target.Column())和m.Text = str，则m.ClearContents Target.ClearContents如果m。 Row()

现在以空白的EXCEL格式，我想在A列和D列之间输入数据。例如，A是产品代码，D是产品的型号代码。扫描A后如何记录，光标会自动跳到D列，下一个扫描的型号代码将自动输入D列，然后跳到A2继续输入产品代码，然后跳到D2输入模型代码。 。继续执行此循环，并期待与上述方法相同，除了将代码替换为：Private Sub Worksheet_Change(ByVal Target as Range)如果Target.Column()= 1然后，Cells(Target.Row()，4).Select ElseIf Target。Column()= 4然后Cells(Target.Row()+ 1，1).Select End If End Sub扫描仪在扫描EXCEL表中的条形码时输入数据，然后生成一个数据中的新数据，然后通过标签打印机自动将扫描的数据打印到当前单元格中，数据的自动输入应由扫描仪程序完成，随后的vba宏可以实现您的功能。第二次数据计算，调用打印，单元格重新定位，然后等待下一次扫描如果您输入条形码该列在1中列出，并且在sheet1下创建新函数，如下所示：Private Sub Worksheet_Change(ByVal Target As Range)如果(Target.Column =1)然后Sheet1.Cells(Target.Row，2)= Target + 100Sheet1.PrintOut Sheet1.Cells(Target.Row + 1，1).Activate End If End Sub此效果是将当前行第二列中的数字修改为条形码+100，打印sheet1，并将下一行的第一列设置为Focus，就可以继续扫描。

本文来自电脑杂谈，转载请注明本文网址：

http://www.pc-fly.com/a/shumachanpin/article-334104-1.html