2017-04-12 23 views
0

我有一个单词,每个都有15个VB表单和20-50个CheckBoxes。 我如何清除(如果他们cheched)在活动形式的所有复选框不必写每个复选框的名称?字VB,清除所有选中的字段

谢谢

+0

循环控制对象(VBE按F2键,查找'Control') – R3uK

+0

这可以帮助,但我仍然无法把它写:( – Salas

+0

简单的谷歌搜索,瞧:HTTPS://www.experts-exchange .COM /问题/ 26874253 /如何对环路与-VBA-上所有的控件放置-IN-A-字doc.html – R3uK

回答

0

此代码将完成这项工作。它必须放在UserForm的代码表中。

Private Sub ClearCheckBoxes() 

    Dim Ctl As MSForms.Control 

    For Each Ctl In Me.Controls 
     If TypeName(Ctl) = "CheckBox" Then Ctl.Value = False 
    Next Ctl 
End Sub