使用循环验证Excel userform上的条目?

时间:2016-12-09 18:19:12

标签: excel excel-vba vba

*更新 我有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

任何帮助都将不胜感激。

感谢!!!!

1 个答案:

答案 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

这是您在用户表单中浏览控件的方式。不客气:)