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

Sub Sample()

Dim myCtrl As Control

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

End Sub

 このように、特定のフォーム上のすべてのコントロールはControls
コレクションで取得できます。

Excel97/2000



戻る


Excel Word Access VBA! モーグ