スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、ユーザフォームに配置したすべてのテキストボックスの値を一度にクリアします。フォームのコードウインドに記述してください。

Sub Sample()

    Dim myCtrl As Control

    For Each myCtrl In Controls
        If TypeName(myCtrl) = "TextBox" Then _
            myCtrl.Value = vbNullString
    Next

End Sub