ユーザーフォームに配置した複数のテキストボックスの値をそれぞれ指定したセルへ次々とまとめて一括転送したいと思ったことありませんか？

そして記載するVBAコードもテキストボックスの個数分、書き続けるのは面倒なので、繰り返し処理をするFor～Nextステートメントの使い方をご紹介します。

テキストボックスの値をセルに書き写す方法

まずは基本の1つのテキストボックスの値をセルA1に書き出しVBAコードは、下記のようになります。

このようにVBAコードを記述すれば1個の場合は簡単で、2個の場合は2行目に同じように記述すればOKです。

ここまでは、何の問題もなくVBAコードを覚えたての頃でもすぐにできるようになっていると思います。

テキストボックスが複数ある場合のセルへの一括転記方法

さあ本題で、セルが10個あったらもちろん10行VBAコードを書きづつければ、何の問題も無く完成できますが、100個だったらどうします？

そこで、繰り返し処理をするFor～Nextステートメントを使って、短いVBAコードでたくさんの処理をまとめて一括処理できるようにしましょう。

波乗りアヒル

For～Nextステートメントは、指定した回数だけ同じ処理を繰り返すことができる便利なVBAコードです。

例えば、テキストボックス１～10の値をまとめてセルA1～A10に転記するというVBAコードを書くと下記のようになります。

ここで大事なのが、数字が変わる変数「i」です。

「i」には1～10までの値が入る事になるので、セル（i,1）はセルA1になり、テキストボックス1の値が転記されることになります。

次はセル（2,1）なのでA2でテキストボックス2・・・10となります。

波乗りアヒル

変数「i」は適当につけた名前なので、aでもbでもaaaでも何でもいいので好きな変数名つけても大丈夫ですよ。

実際に使っているエクセルでは、数字入力が基本なので、整数型を指定する1行
「Dim i As Integer」を省略しても問題なくマクロ動いています。

変数iに当てはめる行番号とテキストボックス番号が異なる時の対処法

先ほどまでは、テキストボックス番号とセルの行番号が同じ場合の例としてご紹介しましたが、このようなことは稀で実際のところは、異なることがほとんどなので、変数「i」の対処法をご紹介します。

• テキストボックスの番号が1～10
• 転記したいセルはA4～A13（1～3行目までタイトルや項目で使用）
• Dim i As Integerは省略

変数iに「+」を加えればある程度対応できますが、「-」を使う事も可能で、時々やむを得ず使うこともあります。もちろん問題なくマクロは動いています。

波乗りアヒル

テキストボックス番号に合わせるので、セルi+3とすることにより、最初の変数が1になるので＋3することで4行目からスタートすることになります。

関連記事