时间戳

首页 > 解决方案 > 如何在 Excel 中输出条码扫描仪信息

excel - 如何在 Excel 中输出条码扫描仪信息

问题描述

我正在使用手持式扫描仪扫描（QR 码）和（条形码）以输出单元格上的信息以进行不干胶打印。

A = If Target.Address = "$L$9" And Target.Value <> ""
B = If Target.Address = "$H$9" And Target.Value <> Or If Target.Address = "$L$9" And Target.Value <> "" Then

二维码将输出五个单元格信息（H9、I9、J9、K9、L9），而条形码仅输出一个（H9）。

Worksheet_Change(ByVal Target As Range)当单元格上有值时，我会触发一个动作。

当我扫描时，当我使用 A 时，信息似乎会相应地输出 QR 码，它会执行其余的代码，但它不适用于条形码，因此为了使它们都工作，我将其更改为 B，结果是反之亦然。

Private Sub Worksheet_Change(ByVal Target As Range)    
    Application.EnableEvents = False
        
    If Target.Addres = "$L$9" And Target.Value <> "" Then
        '...
    End If
        
    Application.EnableEvents = True 
End Sub

标签： excelvba

解决方案

您应该添加错误处理以克服每次遇到错误时必须执行的解决方法：重置Application.EnableEvents.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Goto Handler

    Application.EnableEvents = False

    <your code>

Exit_Proc:
    Application.EnableEvents = True
    Exit Sub

Handler:
    MsgBox "Hit an error: " & Err.Description
    Goto Exit_Proc
End Sub

推荐阅读