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