HOME > 即効テクニック > Excel VBA > その他関連のテクニック > ユーザフォームの複数のテキストボックスの値を一度にクリアする

即効テクニック

その他関連のテクニック

ユーザフォームの複数のテキストボックスの値を一度にクリアする

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

    Dim myCtrl As Control

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

End Sub