*更新
我有20个标记为T_0_Date(1-20)
的文本框,用户可以自由输入文本,但我需要在允许脚本的其余部分执行之前将条目验证为日期。例如,09-Dec-16
是预期的条目,如果用户输入Waffle
,我需要脚本来捕获它。我可以写相同的代码20次,但看起来很难看。所以只想通过一个循环来完成这个。
第一篇文章,所以我提前为任何错误道歉。 我正在构建一个用户表单,其中包含20个需要验证为日期的字段。我试图找到一种方法来使用循环来实现这一点,以防止我的代码变得丑陋。我在努力:
For q = 1 To 20
tb9 = T_0_DATE(q).Value
If Err And tb9 <> 0 Then MsgBox "Error Message"
Next q
任何帮助都将不胜感激。
感谢!!!!
答案 0 :(得分:1)
Dim cCont As Control
For Each cCont In Me.Controls
If TypeName(cCont) = "TextBox" Then
'more checks and other code
End If
Next cCont
这是您在用户表单中浏览控件的方式。不客气:)