☰

读取特定条形码时将光标移动到特定单元格

tag-icon • tag-icon microsoft-excel
读取特定条形码时将光标移动到特定单元格

我正在尝试弄清楚如何编写一个宏，当在任何单元格中写入特定条形码的值时，该宏会将光标移动到特定行。

条形码将由几个数字组成（1111或类似的数字）。

假设我已将某个产品的 5 个 ID 号写入 A 行，现在我想将另一个产品的 5 个 ID 号写入 B 行，在这种情况下，我必须走回计算机并将一行向右移动。

这就是为什么我计划准备一张纸，上面列有不同产品的条形码，当读取条形码时，它会跳转到 Excel 中的该产品行。该文件一开始总是空的，因此宏只需移动到所选行的顶部单元格即可。

答案1

例如，您有一张工作表。A 列填满了条形码。

您在 B1 单元格中输入一些条形码。您希望选择 A 列中具有相同代码的单元格。

使用以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo done
If Target.Address = "$B$1" Then
    Range("A:A").Find(Target.Text).Activate
End If
done:
End Sub

将此代码插入此工作表的模块。

相关内容