如何在Excel用户窗体中设置扫码触发事件

核心逻辑说明 #

绝大多数扫码枪扫描完成后会自动发送**回车（Enter）**作为扫描结束的标识，我们需要捕获这个回车事件来触发后续逻辑。你之前使用的EnterKeyBehavior是文本框的属性（控制多行文本框按回车时是否换行），并非触发条件，这是代码无效的根本原因。

具体实现步骤 #

1. 配置文本框
   在用户窗体上添加一个文本框（建议命名为txtScanner），设置以下属性：

   • EnterKeyBehavior = False（避免回车时文本框换行）
   • MultiLine = False
   • TabStop = True（确保可以被激活）

2. 编写回车捕获代码
   双击文本框进入KeyDown事件，写入以下代码：

   Private Sub txtScanner_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       ' 捕获回车键（KeyCode对应值为13）
       If KeyCode = 13 Then
           ' 获取并清理扫码内容
           Dim scanContent As String
           scanContent = Trim(Me.txtScanner.Value)
           
           ' 根据扫码内容执行对应逻辑（示例用Select Case，可按需替换）
           Select Case scanContent
               Case "CODE001"
                   MsgBox "执行编号CODE001的业务逻辑"
               Case "CODE002"
                   MsgBox "执行编号CODE002的业务逻辑"
               Case Else
                   MsgBox "未匹配到对应逻辑：" & scanContent
           End Select
           
           ' 清空文本框，准备下一次扫码
           Me.txtScanner.Value = ""
           ' 屏蔽默认回车行为，避免触发控件切换
           KeyCode = 0
       End If
   End Sub
   

3. 优化扫码体验（可选）
   为了扫码时无需手动点击文本框，可在窗体初始化时自动激活文本框：

   Private Sub UserForm_Initialize()
       Me.txtScanner.SetFocus
   End Sub
   

额外注意事项 #

• 如果扫码枪没有自动添加回车后缀，需要通过扫码枪的配套设置软件开启“添加回车”功能（不同品牌操作不同，参考设备说明书）。
• 若扫码内容包含特殊字符，确保文本框的MaxLength属性设置足够大，避免内容被截断。

内容的提问来源于stack exchange，提问作者Carlos