文本框限制错误Excel VBA

若文本框是空的，我按backspace键，它就会崩溃，突出显示的行是空的

TB1=左（TB1，透镜（TB1）-1）

我能做些什么来阻止撞车

Private Sub TB1_Change()
Dim strStrings As String, LastLetter As String
Application.EnableEvents = False
LastLetter = Right(TB1, 1)
strStrings = ","
If InStr(1, strStrings, LastLetter) > 0 Then
    MsgBox LastLetter & " not allowed"
    TB1 = Left(TB1, Len(TB1) - 1)
End If
Application.EnableEvents = True

端接头

它是一个文本框，其中“，”受到限制。

使用以下子项

Private Sub TB1_Change()
On Error GoTo HarunErrHandler
Dim strStrings As String, LastLetter As String

    If TB1 = "" Then
        Exit Sub
    End If

    Application.EnableEvents = False
        LastLetter = Right(TB1, 1)
        strStrings = ","
        If Val(InStr(1, strStrings, LastLetter)) > 0 Then
            MsgBox LastLetter & " not allowed"
            TB1 = Left(TB1, Len(TB1) - 1)
        End If
    Application.EnableEvents = True

Exit Sub
HarunErrHandler:
MessageBox = MsgBox("Error Number: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Error")
End Sub

---

如果您的

Textbox

，请将

TextBox1

替换为

TB1

。仍然收到相同错误无效的过程调用或参数运行时错误5，并且同一行高亮显示，但我已测试，且其工作正常。你能分享一个示例工作簿吗，这样我们就可以实时查看了。这是一个链接，只需写ABC，它就会给你消息，单击ok使用backspace，它就会崩溃