どうしても分かりません（初歩的ですが・・・）

質問

ユーザーフォーム（オブジェクト名：pro_regit）に例えばテキストボックスを４つ貼り付けました。
コードを下のようにすると、データベース化できるという基本的な仕組みです。
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
Dim myText As MSForms.TextBox
For i =1 to 4
Set myText = Pro_regit.Controles("TextBox" & i)
ActiveCell.Offset(0,j).Value = myText.Text
j=j+1
Next i
Range("A65536").End(xlUP).Offset(1).Select
End Sub

本を参考にここまで入力して成功しました。
しかし、以下のことがどうしても分かりません。
このユーザーフォームにコンボボックスも加えて同様の操作をする場合、コードをどのようにすればよいのでしょうか？
つまり、コンボボックスのみを使って同様の操作を行うにはTextBoxをComboBoxに変えればよいですが、この２つを同時に使う場合はどんな記述にすればよいのでしょうか？
本当にややこしい文章で申し訳ありません。どなたかご教示頂けませんか？

回答No.1

noname#187541 · ベストアンサー

こんにちは。

For Eachを使うのがいいのでは？

Private Sub CommandButton1_Click()
Dim j As Integer
Dim myCtrl As Control
For Each myCtrl In Controls
If TypeName(myCtrl) = "TextBox" Or TypeName(myCtrl) = "ComboBox" Then
ActiveCell.Offset(0,j).Value = myCtrl.Text
j=j+1
Next
Range("A65536").End(xlUP).Offset(1).Select
End Sub

試してませんがどうでしょうか。

お礼

ご回答ありがとうございます。
ただ、「Nextに対するForがありません」と表示されるのですが・・・

補足

補足欄になってすみません。
ずっと七転八倒して考えていたのですが、ようやく解消されました。本当にありがとうございます！

回答No.2

papayuka

横から失礼します。
j=j+1　と　Next　の間に End if が無いためでしょう。

お礼

End Ifですか！確かに。
・・・成功いたしました。ご回答ありがとうございます！