Question

<select class="custom-select" name="status" id="dropdown">
<option selected="selected" value="">Find by status</option>
@foreach($status as $sts)
<option value="{{$sts->id}}">{{$sts->name}}</option>
@endforeach
</select>

您好，我已经在手持扫描仪上进行扫描（QR码）和（条形码），这些信息将在单元上输出信息以进行不干胶打印。

QR码将在单元格（H9，I9，J9，K9，L9）上输出5条信息，而条形码仅输出1条信息（H9）。因此，当单元格上有值时，我一直使用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来触发操作。

当我扫描时，当我使用A时，信息似乎会相应输出QR码，它将处理其余的代码，但不适用于条形码，因此要使它们都起作用，请将其更改为B并反之亦然。

有什么想法或变化吗？

那么，这是代码，请帮帮我！：'<< / p>

Worksheet_Change(ByVal Target As Range)

Answer 1

您应该添加错误处理，以克服每次遇到错误时都要执行的解决方法：重置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

条形码扫描仪不会在Excel中输出信息

1 个答案: