excel - 使用文本框确认输入

Question

我正在尝试从主列表中删除一堆标签，但我遇到了确认部分的问题。我设法使整个删除过程正常工作，但是在尝试确认标签已被实际删除时遇到了麻烦。

我有 2 个文本框，一个用户输入他的输入，另一个显示结果。我希望第二个显示“项目已删除”或“找不到项目”。

我似乎不知道该怎么做。

这是我的代码:

Private Sub BtnSubmit_Click()
    TxtResult.Value = ""
    Multi_FindReplace
End Sub

Public Sub Multi_FindReplace()
    Number() = Split(TxtNumbers.Text, vbNewLine)

    'Loops to find the asset tags through the list
    For x = LBound(Number()) To UBound(Number())
        'Confirms the Asset Tag is 7 characters
        If Len(Number(x)) = 7 Then
            For Each sht In ActiveWorkbook.Worksheets
                'Deletes the actual Asset Tag from the list
                sht.Cells.Replace What:=Number(x), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False
            Next
        Else
            TxtResult.Value = TxtResult.Value & vbNewLine & "Invalid C#"
        End If
    Next
End Sub

Public Sub Results()
    If TxtResult.Value = "" Then
        TxtResult.Value = Number(x) & " Was Removed!"
    Else
        TxtResult.Value = TxtResult.Value & vbNewLine & Number(x) & " Was Removed! "
    End If
End Sub

谢谢!

Answer 1

您应该在模块顶部公开声明 x 为整数和 number() 数组。然后在您从 ActiveWorkbook 的所有工作表中成功删除 Assets 标签后调用 Results Sub。

我还没有测试过代码，但它应该是这样的:

Public x as Integer
Public Number()
[...]

If Len(Number(x)) = 7 Then
        For Each sht In ActiveWorkbook.Worksheets
            'Deletes the actual Asset Tag from the list
            sht.Cells.Replace What:=Number(x), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False            
        Next
        Results
    Else

有关详细信息，请参阅 Calling Sub 和 Function Procedures 帮助文件。