如何在Excel中输出条码扫描仪信息
如何在Excel中输出条码扫描仪信息
提问于 2019-06-18 16:20:58
我正在开发一种手持式扫描仪，用于扫描(二维码)和(条形码)以输出用于贴纸打印的单元格信息。
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时，二维码的信息似乎相应地输出，它将完成其余的代码，但它不能在条形码上工作，所以为了使它们都工作，我将其更改为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回答 1
Stack Overflow用户
发布于 2019-06-18 17:38:32
您应该添加错误处理，以克服每次遇到错误时都必须做的变通方法:重置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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56644720
复制相关文章
相似问题
腾讯云开发者
