ユーザーフォームの複数のテキストボックスを一括空欄にする方法

2017年12月22日2024年9月24日

エクセルVBAを使ってテキストボックスに文字や数字を入力した後に、再度入力する際に毎回入力済みのテキストボックスに前回の文字や数字が残ってしまい、消去するのって面倒だと思ったことはありませんか？

そこで文字入力後にコマンドボタンを押したら、入力済みテキストボックスを自動消去するVBAコードを付け足せば解決しますよ。

テキストボックスの値を消去するVBA

入力していないテキストボックスの初期設定は当然ながら空欄になっていますので、入力済みテキストボックスの値を初期化（空欄）にするVBAコードを書き足せば、簡単に空欄にすることができます。

テキストボックスに文字や数字を入力する
コマンドボタンに指定したセルへ転記する
入力済みテキストボックスを空欄にする

上記画像の手順はこのようになるので、この手順をVBAコードにしてユーザーフォームに配置したコマンドボタン3つに書けば完成するということです。

テキストボックスの値を空欄にするVBA

Private Sub CommandButton1_Click()
Range(“A1”).Value = TextBox1.Value
Range(“A2”).Value = TextBox2.Value
Range(“A3”).Value = TextBox3.Value
TextBox1.Value = “”
TextBox2.Value = “”
TextBox3.Value = “”
End Sub

解説

コマンドボタン1がクリックされたら
セルA1の値はテキストボックス１の値にする
セルA2の値はテキストボックス２の値にする
セルA3の値はテキストボックス３の値にする
テキストボックス１を空欄にする
テキストボックス２を空欄にする
テキストボックス３を空欄にする
マクロ記録終了

このようにセルの値を（Value）を””（空欄）に指定すれば簡単にテキストボックスの値を初期化（空欄）にすることができました。

このように入力済みテキストボックスを空欄に戻す事は非常に使い勝手に直結しますので、必ずVBAコードを付け加えておくことが大事で、住所録作成などでも使っています。

複数のテキストボックスの値を一括空欄処理

先ほどのように3つのテキストボックスならば、数が少ないので1つずつVBAコードを書いていけばいいのですが、10個・20個～50個もあったら繰り返しこのようなVBAコードを書き続けるのって面倒じゃありませんか？

そこでたくさんテキストボックスがある場合は、エクセルVBAで使用頻度の高い「指定した回数だけ処理を繰り返す」For～Nextを使います。

ここでは、ユーザーフォームに配置した50個のテキストボックスに入力された文字や数字などの値を、セルにそれぞれ指定したセルに転記するようにコマンドボタンに書いて、入力を空欄に戻すVBAコードを紹介します。

複数テキストボックス空欄一括処理するVBA

Private Sub CommandButton1_Click()
For i = 1 To 50
Cells(i , 0).Value = UserForm1.Controls(“TextBox” & i).Value
UserForm1.Controls(“TextBox” & i).Value = “”
Next i
End Sub

解説