UserForm自体を変数でループ化したいのですが・・
質問をさせてください。
USERFORMを使い、処理を行っているのですが
USERFORM自体を変数とし、それを元にループで
処理をしたいと思っています。
こんな感じで変数を！！→UserForm(t)
例えば下記のような処理を・・
Private Sub UserForm_Activate()
Do While t <= 10 And Cells(t, 1) <> ""
Select Case t
Case 1 To 3 'UserForm1処理
With UserForm1
UserForm1の処理
（リストやテキストボックスにエクセルシートの値を代入させています。）
※こんな感じで。。 .Controls("textbox" & 1) = Cells(t, 1).Value
End With
Case 4 To 6 'UserForm2処理
With UserForm2
UserForm2の処理
（リストやテキストボックスにエクセルシートの値を代入させています。）
※こんな感じで。。 .Controls("textbox" & 1) = Cells(t, 1).Value
End With
Case 7 To 10 'UserForm3処理
With UserForm3
UserForm3の処理
（リストやテキストボックスにエクセルシートの値を代入させています。）
※こんな感じで。。 .Controls("textbox" & 1) = Cells(t, 1).Value
End With
End Select
Loop
end sub
このような処理が一つのUserFormを開くと全てのUserForm間での処理がズラーッとあるわけですが処理内容は
変わりませんのでUserForm自体を変数で対応すれば書式もスッキリしてみやすく
もし何かトラブルが生じてもすぐに対応できることから質問をさせていただきました。
よろしくお願いいたします。
