[[20081016202654]]　『テキストボックスの文字を一括でクリアしたい』（こと）　ページの最後に飛ぶ

『テキストボックスの文字を一括でクリアしたい』（こと）

 マクロ初心者です。
 複数あるテキストボックス内の文字をコマンドボタンで一括クリアしたいのですが、
 コードがよくわかりません。どなたかおしえててください。

 たとえば、TextBox1～20まであったとして、
 これを全部クリア（文字を消去）にしたり、
 ユーザーフォーム内のテキストボックス内の文字を全部クリアにする方法です。

 Private Sub CommandButton1_Click()

 TextBox1 = ""
 TextBox2 = ""
 TextBox3 = ""
 TextBox4 = ""
 TextBox5 = ""
 TextBox6 = ""
 TextBox7 = ""
 TextBox8 = ""
 TextBox9 = ""
 TextBox10 = ""
 TextBox11 = ""
 TextBox12 = ""
 TextBox13 = ""
 TextBox14 = ""
 TextBox15 = ""
 TextBox16 = ""
 TextBox17 = ""
 TextBox18 = ""
 TextBox19 = ""
 TextBox20 = ""

 End Sub

 ならわかるのですが、もっと簡単なコードはありますか？

 宜しくお願いします。
 (こと)

 一括で、はできません。
 ループする必要があります。

 Dim i As Integer
  For i = 1 To 20
   Me.Controls("TextBox" & i).Value = ""
  Next i
 (MARBIN)

コメント返信：

[ 一覧(最新更新順) ]

[[20081016202654]] 『テキストボックスの文字を一括でクリアしたい』（こと） ページの最後に飛ぶ

[[20081016202654]]　『テキストボックスの文字を一括でクリアしたい』（こと）　ページの最後に飛ぶ