[已解决]求助各位老师VBA是否能实现窗口单选项按纽的多项查询（有难度）

qinhuan66

hwc2ycy 发表于 2013-5-19 20:30
这个方法不对。
用isdate函数
isdate(me.textbox2.text)

好像这样行不通
Private Sub TextBox2_Change()
   If Not sdate(Me.TextBox2.Text) Then
MsgBox "不是日期"
TextBox2 = ""
End If
End Sub

hwc2ycy

qinhuan66 发表于 2013-5-19 20:39
好像这样行不通
Private Sub TextBox2_Change()
   If Not sdate(Me.TextBox2.Text) Then

这里不能用CHANGE事件，你用EXIT事件。
当你输入1个字符的时候也会触发CHANGE事件。

比如你要输入1990-1-1，当你输入1后事件就触发，1肯定不是时间格式，直接就提示了。

qinhuan66

hwc2ycy 发表于 2013-5-19 20:45
这里不能用CHANGE事件，你用EXIT事件。
当你输入1个字符的时候也会触发CHANGE事件。

谢谢 老师指导。谢谢

qinhuan66

hwc2ycy 发表于 2013-5-19 20:45
这里不能用CHANGE事件，你用EXIT事件。
当你输入1个字符的时候也会触发CHANGE事件。

老师还是要您出马才行。我弄了一晚上还是弄不出来。谢谢

hwc2ycy

在vba里用文本框时间怎么相加减
http://www.excelpx.com/thread-300441-1-1.html

你看这个贴里我贴的附件。