エクセルのユーザーフォームについての質問です。

質問

エクセルのユーザーフォームについての質問です。
かなりの初心者です。
テキストボックスを3つ、チェックボックスを10個作りました。
チェックボックスは複数チェックすることができます。
コマンドボタンをクリックすると、テキストボックスに入力された値とチェックされた
チェックボックスがsheet1に自動入力できるようにしたいです。
たとえば、
テキストボックス１には「あいう」
テキストボックス２には「かきく」
テキストボックス３には「さしす」と入力。
チェックボックス１から１０のうち、「１」「２」「３」にチェック。
この状態でコマンドボタンをクリックすると、Ｓｈｅｅｔ１には

　　　　Ａ列　　　　　　　Ｂ列　　　　　　　Ｃ列　　　　　　　　Ｄ列
1行目　テキスト１　　　　テキスト２　　　　テキスト３　　　　　チェックボックス
2行目　あいう　　　　　　かきく　　　　　　さしす　　　　　　　1
3行目　あいう　　　　　　かきく　　　　　　さしす　　　　　　　2
4行目　あいう　　　　　　かきく　　　　　　さしす　　　　　　　3

このように、チェックボックスにチェックがあった数だけ、テキストボックスも
コピーされて、次々と下の行に入って行くようにしたいのです。

こんなことができるのでしょうか？
できるのなら、コードを教えてください。
お願いします。

回答No.3

p-211 · ベストアンサー

For i = 1 To 2　←　ここ10だったよね？

２つで試していたんで　修正してください

お礼

ありがとうございました！！
思った通りのことができるようになりました。

回答No.2

p-211

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 2
If UserForm1.Controls("CheckBox" & i).Value = True Then
Range("a65536").End(xlUp).Offset(1, 0).Value = Me.TextBox1.Value
Range("b65536").End(xlUp).Offset(1, 0).Value = Me.TextBox2.Value
Range("c65536").End(xlUp).Offset(1, 0).Value = Me.TextBox3.Value
Range("d65536").End(xlUp).Offset(1, 0).Value = i
End If
Next
End Sub

回答No.1

p-211

なんだかよくわからんけど　こういう事？

インデント付いてなかったらかんべん（VBEからこぴぺだとそうなるみたい）

Private Sub CommandButton1_Click()
Dim i As Integer

For i = 1 To 10
If UserForm1.Controls("CheckBox" & i).Value = True Then
Range("a65536").End(xlUp).Offset(1, 0).Value = Me.TextBox1.Value
Range("b65536").End(xlUp).Offset(1, 0).Value = Me.TextBox2.Value
Range("c65536").End(xlUp).Offset(1, 0).Value = Me.TextBox3.Value
End If
Next
End Sub

補足

回答ありがとうございます。

早速試してみました。

見事、チェックボックスにチェックされた分だけコピーされました。
しかし、チェックボックスがsheetに反映されません。

チェックボックスも反映させるにはどうしたらいいのでしょうか？