HOME > 即効テクニック > Excel VBA > シート操作関連のテクニック > シートに配置したテキストボックスの値を一度にクリアする

即効テクニック
シート操作関連のテクニック

シートに配置したテキストボックスの値を一度にクリアする

(Excel 97/2000)
サンプルマクロは、シートに配置したテキストボックスを一度にクリアします。
コントロールのあるシートのコードウインドに記述してください。

Sub Sample()

    Dim myObj As OLEObject

    For Each myObj In OLEObjects
        If TypeName(myObj.Object) = "TextBox" Then _
            myObj.Object.Value = vbNullString
    Next
    
End Sub
ビジネス統計スペシャリスト VBAエキスパート