我怎样才能设置文本框焦点为它的数据有效控制？

我想在文本框控件中检查数据validation，如果无效，则返回该文本框中的光标，而不让用户从中跳转。 但是.setfocus方法无法正常工作，并且在用户input无效数据时，在初始文本框中单击另一个文本框或按Tab键时，光标将跳转到另一个文本框。

我试过这个代码：

Private Sub txtFirst_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsNumeric(txtFirst.Text) Then lblStatusBar = "Error1" txtFirst = "" txtFirst.SetFocus Exit Sub End If If IsError(Application.Match(CInt(txtFirst.Value), Range("Table[Colulm1]"), 0)) Then lblStatusBar = "Error2" txtFirst.value="" txtFisrt.SetFocus exit sub End If lblStatusBar="" End Sub 

谁能纠正？

Answer 1

您需要通过设置Cancel = True来取消退出操作。

 Private Sub txtFirst_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsNumeric(txtFirst.Value) Then lblStatusBar = "Error1" txtFirst = "" txtFirst.SetFocus Cancel = True 'exit sub --> You dont need this here, the sub will exit anyway, ' unless there's more code after "End If" End If End Sub 

Answer 2

尝试这个。 这使用OERN (On Error Resume Next)来检查是否引起错误。

 Private Sub txtFirst_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim Ret Dim rng As Range With txtFirst If Not IsNumeric(.Text) Then lblStatusBar = "Error1" .Value = "" Cancel = True Exit Sub End If On Error Resume Next '~~> Change Sheet1 to relevant sheet Set rng = ThisWorkbook.Sheets("Sheet1").Range("Table[#Colulm1]") Ret = Application.Match(CInt(.Value), rng, 0) If Err.Number <> 0 Then Err.Clear lblStatusBar = "Error2" .Value = "" Cancel = True End If On Error GoTo 0 End With End Sub