停止标签文本框

Question

我在Excel中有一个用户表单。我检查了其中一个文本框，当输入任何无效数据时会抛出错误。检查已放入After Update事件中。但是，我不希望在抛出错误消息后将其标记为文本框。我怎么能实现这一目标？请找到以下代码：

Private Sub txt_Textboc_After Update()
If CInt(txt_Textboc.Value) > 50 Then
 Msgbox "Invalid Input"
End If

如果代码执行if If？

，我应该添加哪些附加代码以避免标签

Answer 1

如果出现错误，您需要将焦点带回TextBox。

TextBox1.SetFocus

这应该会让你“没有受伤”