Question

请教一个EXCEL的VBA问题

我有一个excel表格，A列是从1开始自然延续下去的数字，B列是数据（带有数字和字母），还有一个条形码扫码器。
我希望完成如下动作：扫一下条形码，电脑帮我在EXCEL表的B列中找到该数据，然后读出该数据所在单元格左边的那格里面的数字。
比如说， 表格中，A1是1，B1是dfkje878943。我扫一下数据为dfkje878943的条形码，电脑就从扩音器里读出“1”。过程中，我除了动手扫码之外，不需要做其它动作。

Answer 1

在VBA 中的Thisworkbook添加以下代码
打开工作薄时，单元格A2等于当前日期
Private Sub Workbook_Open()
Sheets("SHEET1").Range("A2") = Date
End Sub