Question

我处理大量独特的产品（每年10,000多个），我希望优化Excel以提高我的工作效率。我有一个USB条形码扫描仪，想要在我的过程中实现这一点。

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

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

这样我就可以在不填写日期（不是双重扫描）的情况下搜索产品进行常规查找，也可以使用日期检查产品的进出情况。

非常感谢您的帮助！

Answer 1

如果有帮助，可以忽略这个问题与条形码扫描有关的事实 - 条形码扫描仪只是作为键入的键盘设备实现的。扫描的号码（有些人追加＆＃39;最后输入，有些人不在，有些是可配置的）。

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

e.g。

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

其中productRange是您的商品详情占据的单元格范围。

编辑：

您最终应该在表单上找到一个按钮，当单击该按钮时，将显示“＆＃34; hello＆＃34;在单元格A1中。

一旦你有了这个工作，替换＆＃39;你好＆＃39;代码与我上面建议的行一致，你应该顺利。