使用VBA在一个单元格中放置多个条形码，同时保留删除和撤消功能。

Question

在试图找到一种将多个条形码放入一个单元格的解决方案时，我发现了几年前的解决方案。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C2:C10")) Is Nothing Then
        On Error GoTo Fìn
        Application.EnableEvents = False
        Dim vNew As Variant
        vNew = Target.Value
        Application.Undo
        If Not IsEmpty(Target) Then
            Target = Target.Value & Chr(10) & vNew
        Else
            Target = vNew
        End If
        'Target.Offset(1,0).Activate
    End If
Fìn:
    Application.EnableEvents = True
End Sub

由用户Jeeped 致谢

我现在面临的问题就像三年前的评论中所说的那样。这会杀死撤消和对单元格的任何编辑，并在尝试使用搜索功能查找单元格时引发错误。

我不熟悉VBA，但是如果有人可以提供一些帮助，我将不胜感激。