Question

如果文本框为空，我按退格键会崩溃并突出显示行

TB1 =左（TB1，Len（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

End Sub

这是一个文本框，其中＆＃34;，＆＃34;是受限制的。

Answer 1

使用以下子目录。

seat_item_type

文本框限制错误Excel VBA

1 个答案: