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

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

ユーザーフォーム関連のテクニック

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

(Excel 2000/2002/2003/2007/2010/2013)

次のサンプルマクロは、ユーザーフォームに配置したコントロールのうち、テキストボックスの値を一度にクリアします。
コントロールの種類はTypeName関数で判定しています。

テキストボックスが配置されたユーザーフォームのフォームモジュールに記述してください。

Sub Sample()
    Dim Ctrl As Control

    For Each Ctrl In Controls
        If TypeName(Ctrl) = "TextBox" Then _
            Ctrl.Value =""
    Next Ctrl
End Sub