ユーザーフォームのテキストボックスの値を一度にクリアする|Excel VBA |
次のサンプルマクロは、ユーザーフォームに配置したコントロールのうち、テキストボックスの値を一度にクリアします。
コントロールの種類はTypeName関数で判定しています。
テキストボックスが配置されたユーザーフォームのフォームモジュールに記述してください。
Sub Sample()
Dim Ctrl As Control
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Then _
Ctrl.Value =""
Next Ctrl
End Sub
テキストボックスが配置されたユーザーフォームのフォームモジュールに記述してください。