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自体を変数で対応すれば書式もスッキリしてみやすく
もし何かトラブルが生じてもすぐに対応できることから質問をさせていただきました。
よろしくお願いいたします。

回答No.6

watabe007 · ベストアンサー

>しかし、なぜ私のオリジナルでは出来ないのでしょうか？
変数ufをグローバルで宣言すれば
Public uf(1 To 3) As Object
Sub ユーザーフォーム表示()
　　Dim i As Long
　　For i = 1 To 3
　　　　Set uf(i) = VBA.UserForms.Add("UserForm" & i)
　　　　uf(i).Show (0)
　　Next
End Sub
Private Sub UserForm_Activate()

　　uf(n).TextBox1.Text = ・・・

End Sub

お礼

大変遅くなり申し訳ございません。
新しく作り直しを行い
下記同じ処理を行うとできるのですが、
自分のオリジナルに当てはめこむとできなくなります。
グローバル宣言をしても同じで・・
オリジナルに問題があるのでしょうか？

UserForm中のテキストボックスはセルから代入することも可能なのですよね？

何度も申し訳ございません。

回答No.5

watabe007

>ですがwatabe007さんも出来ないとなると
>やはりできないのでしょうか・・
えっ!？
tの変化により該当するUserFormのテキストボックスに
転記する処理はできてるはずですが・・・

お礼

あ・・すいません。
watabe007さん記述式で対応できました。
しかし、なぜ私のオリジナルでは出来ないのでしょうか？

watabe007さんのを参考に少し考えて
対応してみます。

本当に有難うございます。

回答No.4

watabe007

>showは確かに出来ましたが処理自体はやはりできないですね・・
こんな事かな？

Dim uf(1 To 3) As Object
Dim i As Long, t As Long, n As Long

For i = 1 To 3
Set uf(i) = VBA.UserForms.Add("UserForm" & i)
uf(i).Show (0)
Next

t = 5 '仮にtを5とした場合、こちらのテストではUserForm2のTextBox1に転記されました。

Select Case t
　　Case 1 To 3: n = 1
　　Case 4 To 6: n = 2
　　Case 7 To 10:: n = 3
End Select
With uf(n)
　　.TextBox1.Text = "てすと"
End With

お礼

はい。そのような処理です。

ですがwatabe007さんも出来ないとなると
やはりできないのでしょうか・・
。

回答No.3

watabe007

表示だけなら、これでも可能です
Dim i
For i = 1 To 3
　　VBA.UserForms.Add("UserForm" & i).Show (0)
Next

お礼

何度もご回答頂き有難うございます。

showは確かに出来ましたが処理自体はやはりできないですね・・
なぜでしょうか？？

処理とは例えば、ボタンの非表示から表示へと変更をさせたり
ボタンの値をセルから代入するなどです。

これは不可能なことなのですか？
何度もご迷惑をおかけし申し訳ございませんが
ご対応頂きます様よろしくお願いいたします。

回答No.2

watabe007

>しかしそれをループ処理ができないのですが・・
表示するだけなら
Dim uf(1 To 3)
Dim i
For i = 1 To 3
　　uf(i) = "UserForm" & (i)
Next
For i = 1 To 3
　　VBA.UserForms.Add(uf(i)).Show (0)
Next

回答No.1

watabe007

変数で扱うにはUserForms コレクションの Add メソッドを使用します。
uf(1) = "UserForm1"
uf(2) = "UserForm2"
uf(3) = "UserForm3"
'UserForm1表示
VBA.UserForms.Add(uf(1)).Show

補足

早急なご回答有難うございます。

変数処理は理解いたしました。
UserFormはまた「ADD」というメソッドを使うんですね。

しかしそれをループ処理ができないのですが・・

uf(1) = "UserForm1"
uf(2) = "UserForm2"
uf(3) = "UserForm3"
'UserForm1表示
For aaa = UserForms.Add(uf(1)) To UserForms.Add(uf(3))
aaa.Show
Next .aaa