vba 如何使光标在控件中移动

发布网友 发布时间：2022-04-22 04:27

我来回答

共2个回答

热心网友 时间：2023-10-07 21:20

Private Sub Text1_LostFocus()
If Text1 <> "123" Then '判断是否为正确的值，设此处正确的值是123
MsgBox "请重新输入正确的值"
Text1.SetFocus '重获焦点
Text1.SelStart = 0 '光标起始为0
Text1.SelLength = Len(Text1) '光标结束为上次输入时的长度
End If
End Sub
'2楼所写代码我觉得不应该写在change事件里，写在lostfocus才是正解：

热心网友 时间：2023-10-07 21:21

在进行了有效性验证后，写语句
Text1.SetFocus
即可。

...................................
Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
'MsgBox "no"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = 10000
End If
End Sub

========================================
您的问题==我的课题 奉献知识==辉煌生命
黑龙江省 张志晨
========================================