フォーム上にある、オブジェクトの初期化

質問

行いたい処理は次のような処理です。
1.フォームに”クリア”ボタンを配置
2.１が押された時、フォーム上のテキストボックス、コンボボックス、チェ　ックボックスが初期化される

そこで、質問です。フォーム上にあるオブジェクトは60近くあるので１つ１つのオブジェクトに　=Null、=""で初期化するのは大変なので、一括で初期化する方法を探しています。

どなかた、知っている方がいらっしゃったら、教えていただきたいと思います。お願いいたします。

回答No.2

don_go · ベストアンサー

Dim Obj As Object

　　For Each Obj In Controls
　　　　If TypeOf Obj Is CommandButton
　　　　　　 ...
　　　　Else If TypeOf Obj Is TextBox
　　　　　　 ...
　　　　End If
　　Next Obj

回答No.1

Nayuta_X

たとえば、下記の方法がありますが(初期化するとき　Deletionを呼び出す)

Sub Deletion ()
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4.Text = ""
End Sub