Excel条形码扫描宏

Question

我处理大量独特的产品(我自己每年的10,000+)，我希望优化Excel使我的工作更有效率。我有一个USB条形码扫描仪，并希望在我的流程中实现这一点。

我的供应商向我发送了一个包含产品信息的大型电子表格，例如条形码编号和其他产品详细信息。我还收到了产品的样本，需要在系统中注册它们，并与电子表格交叉引用它们。

我正在寻找一个宏:当它接收到来自扫描仪的输入时，在电子表格中搜索并导航到产品所在的行，如果相同的条形码在3-5秒内进行第二次扫描，则在列x中填充日期，如果列x是占用的单元格，则在列y中填充日期。

这将使我既可以搜索产品而不填写一般查找的日期(而不是双重扫描)，也可以使用日期签入和签出产品。

非常感谢您的帮助！

Answer 1

如果有帮助，这个问题与条形码扫描相关的事实可以忽略不计-条形码扫描器只是作为键盘设备来“键入”扫描的数字(一些在末尾附加“enter”，一些不是，还有一些是可配置的)。

因此，您的问题的答案不需要以任何方式特定于条形码扫描。它只需要一个接受数字的InputBox，然后在MATCH函数中使用这个数字。

例如：

code = InputBox("Please scan a barcode and hit enter if you need to")
matchedCell = match(code, productRange, 0)
matchedCell.Offset(0,2) = Now

其中，productRange是您的产品列表所占的单元格范围。

编辑：

首先，遵循类似下面的教程：http://www.excel-easy.com/vba/create-a-macro.html

您应该在表单上看到一个按钮，当单击该按钮时，将把单词"hello“放在单元格A1中。

一旦你完成了这项工作，用我上面建议的代码替换掉'hello‘代码，你就可以顺利上路了。