level 3
在text1中输入某一数值后，要求在text2中输入的数值大于text1中的才能输入，否则不能输入怎么实现。谢谢
2020年11月08日 05点11分
1
level 10
Private Sub Text1_change()
if val(text2.text)>val(text1.text)
'
是text2吗
text2.enabled=False
end if
end sub
2020年11月08日 11点11分
2
我可能没有表达清楚，先是在text1中输入一个数据，当text2中的数据小于text1中的数据时，text2中不能输入数据，直到text2中数据大于text1中数据时才能写入。
2020年11月09日 03点11分
level 13
你的Text1中只有1位数字吗？如果是，那好办
Private Sub Text2_Change()
If Val(Text2) <= Val(Text1) Then Text2 = ""
End Sub
2020年11月08日 12点11分
3
level 15
楼上都盯住了Change事件，为什么不考虑用LostFocus事件呢？或者甚至不用文本框的事件，而是加个按钮，单击按钮时才触发事件来判断文本框的内容
2020年11月08日 12点11分
4
lostfocus也想到了，因为想着楼主要求小于text1则不允许输入，如果text1数字只有1位，用change比较直观，否则还是用lostfocus
2020年11月08日 13点11分
@空中熬翔🌴 说起来，如果真的只有一位数的话，甚至可以用KeyPress事件
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
2020年11月08日 13点11分
我可能没有表达清楚，当text2中的数据小于text1中的数据时，text2中不能输入数据，直到text2中数据大于text1中数据时才能写入。
2020年11月09日 03点11分
@狂☞年少的执着 你不觉得你这话有问题么？比如一开始两个文本框都是空的吧，Text2里面还没有输入数据，怎么小于Text1中的数据？所以一开始你是要能输入还是不能输入？
2020年11月09日 04点11分
level 15
我觉得，你这个问题最合理的提法应该是这样：
在两个文本框之中输入数据之后，点击按钮，如果Text2中的数据不大于Text1中的数据，则不能进行后续计算，提示“输入错误”，并清空Text2，重新输入
按这个要求写的代码如下：
Private Sub Command1_Click()
If Val(Text2.Text) > Val(Text1.Text) Then
'正常进行计算的代码
Else
MsgBox "第二个数必须大于第一个数！"
Text2.Text = ""
Text2.SetFocus
End If
End Sub
2020年11月09日 04点11分
5