关于VB的问题

lzwdj123 · 发表于 2013-3-21 00:20

本帖最后由 lzwdj123 于 2013-3-21 22:03 编辑

在下面的VB中，为什么我在TextBox2中输入任意数值都会提示"你输入的数据大于参考人数，请核对后重新输入！"呢？
If TextBox2.Value > Sheets("成绩录入").Range("e4").Value Then
  MsgBox "你输入的数据大于参考人数，请核对后重新输入！"
  Exit Sub
  End If
没人回答，是问题太二了吗？？？

grf1973 · 发表于 2013-3-22 11:21

把条件改为If CInt(TextBox2.Value) > CInt(Sheets("成绩录入").Range("e4").Value) Then
可能是输入框把输入的东西都认为是字符型的

lzwdj123 · 发表于 2013-3-22 18:38

grf1973 发表于 2013-3-22 11:21
把条件改为If CInt(TextBox2.Value) > CInt(Sheets("成绩录入").Range("e4").Value) Then
可能是输入框把输 ...

哦，谢谢啦！

		自动登录	找回密码
密码			免费注册