スポンサーリンク
TextBox1の値はセルA1へ…TextBox10の値はセルA10へ
ユーザーフォームに配置しているテキストボックス（TextBox）が数個ならばひとつひとつコードを記述すればいいけど、
たくさんあったらコードを書き続けるのはとても面倒ですし、間違えの原因になりますよね。
例えば、TextBox1、2、3に入力した文字や数字を指定したシートのセルに記述する（転記）コードを書いてみます。
転記するシートは、Sheet1。セルはA1、A2、A3とすると、下記のようになります。
Private Sub CommandButton1_Click()
Worksheets(“sheet1”).Range(“A1”).Value = TextBox1.Value
Worksheets(“sheet1”).Range(“A2”).Value = TextBox2.Value
Worksheets(“sheet1”).Range(“A3”).Value = TextBox3.Value
End Sub
これで、コマンドボタンを押すとユーザーフォームに配置しているTextBox1に入力された文字や数字はSheet1のセルA1に、
TextBox2に入力された文字や数字はSheet1のセルA2に、
TextBox3に入力された文字や数字はSheet1のセルA3に、必ず転記されます。
このように3つぐらいなら、コードも短いですし、間違えることは無さそうなのですが、
これが、10個、20個、30個・・・となったら大変ですよね。
For～Next
そこで、エクセルVBAで多く使われているFor～Nextですが、「指定した回数だけ処理を繰り返す」というものです。
ユーザーフォームに配置したそれぞれのテキストボックスに入力された値が、コマンドボタンで指定したセルに転記されます。
とても便利で簡単なので使わないなんて損ですよね。
実際には下記のようなコードを書いています。
Private Sub CommandButton1_Click()
Dim i As Long
With UserForm1
For i = 1 To 50
Cells(i + 100, “F”).Value = UserForm1.Controls(“TextBox” & i).Value
Next i
End With
End Sub
これが基本的に繰り返しそれぞれのテキストボックス入力された値をセルにそれぞれ転記するコードになります。
※転記するシートはユーザーフォームが開いているシート上です。（シート指定していません）
- ユーザーフォームのコマンドボタン（CommandButton1）を押したら
- 数字が変わる部分を変数「i」として、変わる数字が1～50
- 変数「i」＋100は、「i」＋100行目という事なので101行目～150行までになります。
- 「”F”」はF列を表しています。セルで言うと最初のセルは「F101」、最後のセルは「F150」になります。
- Valueで転記するという指示です。
- ユーザーフォーム（UserForm1）に設置されているコントロールのテキストボックス（TextBox「i」も1～50）に入力された値とイコールにする。
- この作業を「i」に書いてある1～50まで繰り返して行う
これでTextBox1の値はセル「F101」へ転記、TextBox50の値はセル「F150」と、順番にテキストボックスの値を順番に転記してくれます。
スポンサーリンク
各コントロールまとめて転記シリーズ
ユーザーフォームを使うと配置したコントロール（テキストボックスやラベルなど）とセルとの間で値のやり取りが多くなります。
よく使うのでまとめてみました。
| 値の場所 | 転記したい場所 | 説明ページ |
| セルの値 | ラベル名 | VBAコード |
| セルの値 | テキストボックスの値 | VBAコード |
| セルの値 | コマンドボタンの表示名 | VBAコード |
| セルの値 | セルの値 | VBAコード |
| テキストボックス入力値 | セルの値 | VBAコード |
成績表作成には知っておきたいExcel-VBAもくじ
エクセルの勉強お疲れ様です。ちょっとひと休みしませんか？
