[حل شده] خالی کردن فرم

[میثم مقدم نیا]

سلام
اگه بخوام توی یوزفرم چک باکسی را خالی کنیم مینویسم

Checkbox1=false 

حال اگه تعداد چکباکسها زیاد باشد دونه به دونه نوشتن این فرمول زیاد و زمان بر خواهد بود
آیا میتوان با یک حلقه یا دستور همه را خالی کرد؟

[iranweld]

با سلام

For i = 1 To 20
Me.Controls("checkbox" & i) = ""
Next 

[generalsamad]

با سلام
اگه فقط چک باکس را میخواهید ریست کنید از این کد میتونید استفاده کنید

Private Sub CommandButton2_Click()
    Dim contr As Control
    For Each contr In UserForm1.Controls
        If TypeName(contr) = "CheckBox" Then
            contr.Value = False
        End If
    Next
End Sub 

اگه تمام کنترلهایی که رویداد چک دارند را میخواهید ریست کنید از این کد میتوانید استفاده کنید

Private Sub CommandButton1_Click()
    Dim x As Control
    For Each x In Me.Controls
        If TypeOf x Is MSForms.CheckBox Then x.Value = False
    Next
End Sub