用于条形码扫描的Excel电子表格

我的仓库工作人员已经要求我帮助他使用excel电子表格来提高他的工作效率。问题是，我不是你所谓的“卓越专家”。他想要什么听起来很简单，我只是不知道该怎么做......所以这里就是这样。

现在他有一个usb条形码扫描仪。当他扫描到Excel电子表格时，扫描后的默认操作是它向下移动一个单元格。因此，如果它在单元格A1中，则向下移动到B1。他需要做的是在他扫描时按顺序移动：A1，A2，B1，B2，C1，C2，D1，D2等一直向下。原因是他需要彼此相邻的零件和批号。如果有人可以帮助我，我会永远感激。谢谢！

选择A列和B列

1. 按CTRL和1

2. 点击保护

3. 解开“锁定”

不确定您拥有的Excel版本，2007年和2010年的标签都在帖子中，但随后：

保护工作表，允许选择仅解锁的单元格，应位于功能区的“主页”选项卡上的格式菜单下。

将Excel设置为在Enter上向右移动，它位于Excel选项中，在Excel 2007及更高版本中为Advanced。

这些条形码扫描仪中的许多都可以编程（通常通过扫描手册中为此提供的特殊条形码）来使用TAB而不是CR（回车）结束条形码。

您仍然需要锁定不要输入的单元格。

_{（注意：这些是专有的，特定于特定品牌（也许是型号））}

我知道这已经过时但有人可能仍然想要一个答案：

此外，更具体的问题; 你可以在工作表的Worksheet_Change宏中添加代码：

• 右键单击工作表并查看代码。
• 将下拉列表（常规）更改为工作表和（声明）更改为Worksheet_Change。

在我给代码做你想做的事情之前，请注意，如果你有一个早于Excel 2007，你的用户将只有256列（A-IV）可以使用。在Excel 2007之后，他将拥有16,384列。

首先，如果他想做的就是移动到下一列，你可以转到Options / Advanced并将DOWN更改为RIGHT，以便在ENTER上移动光标。但由于他希望自定义设置，我提供此代码。

只需将其粘贴到工作表和更改下拉列表下的空白处即可。

Private Sub Worksheet_Change(ByVal Target As Range)
    tgr = Target.Row
    tgc = Target.Column
    If Trim(Cells(1, tgc)) <> "" And Trim(Cells(2, tgc)) <> "" Then
        Cells(1, tgc + 1).Select
    ElseIf Trim(Cells(1, tgc)) <> "" And Trim(Cells(2, tgc)) = "" Then
        Cells(2, tgc).Select
    End If
End Sub

此代码假定用户正在启动单元格A1。

条形码扫描仪应该能够在每次扫描后编程为“Tab”到下一个单元格。

找出扫描仪的品牌和型号，并访问他们的网站，他们应该有如何执行此操作的说明。通常，它涉及扫描将该功能编程到扫描仪中的单个或一系列条形码。

这就是我必须为我公司用于实际库存的不同扫描仪所做的事情。

起初B1不在A1之下。A2在A1下，B1是A1旁边的单元格。但是今天我遇到了类似的问题，我们正在使用Datalogic Quickscan L QD 2300.我们希望在Excel中扫描并自动跳转到正确的单元格。

我的解决方案是设置全局后缀“tab”。Excel将2次扫描（或者一次又一次的扫描）识别为一个输入，如果按下输入，Excel将向下跳一行并向左侧跳转，您已开始在上面扫描一行。这意味着：A1扫描（后缀=标签） - > B1扫描（后缀=标签） - > C1输入（手动按键盘上） - > A2

要设置后缀= Tab，您必须扫描不同的条形码：1。扫描选项2.数据后缀3.设置后缀4. 7009（Ascii-Value for“Tab”）5。输入

希望这有助于某人。

我是怎么做到的：我跟着PaperLantern的

选择A列和B列

Hit CTRL and 1
Click on Protection
Untick "Locked"

保护工作表，允许选择仅解锁的单元格，应位于功能区的“主页”选项卡上的格式菜单下。

然后我扫描了以下内容：