請問有關物件的定義與迴圈使用

[cooper]

各位網友
我設計一個userform 裡面有100個 textbox 的參數 要一一讀入到程式做加總 那我的程式碼如下 不知為什麼 都無法讀到那100個的參數值 煩請網友賜教 謝謝
For i = 1 10
　　For j = 1 To 10
　　　　x = "UserForm.TextBox" & i & j & ".Value"
　　　　y=y+x
　　Next
Next

[小誌]

For i = 1 10
 

外迴圈是不是少了 To

[沙拉油]

x = "UserForm.TextBox" & i & j & ".Value" 這樣X所得到的是一個字串 "UserForm.TextBoxXX.Value"
要取的 TextBox1~TextBox100 的 Value 得用 Control 屬性取得控制項物件再取其值
底下的迴圈會把TextBox1~TextBox100 的 Value 讀進 A1:A100 儲存格

程式碼:

For i = 1 To 100
Range("A" & i) = UserForm1.Controls("TextBox" & i).Value
Next

[leonchou]

看過這種較另類的寫法... 沒試過就是了
For i = 1 to 100
Me("Check" & i).Caption = Me("Text" & i).Text
Next

這裡的 Me 代表那個 UserForm.
參考來源
http://www.excelhelp.net/cgi-bin/forum/topic.cgi?forum=8&topic=2298

[cooper]

感謝各位網友的協助 兩種方法都可以使用 謝謝大家

[沙拉油]

For i = 1 to 100
Me("Check" & i).Caption = Me("Text" & i).Text
Next

原來 Me("控制項名稱") 也能傳回控制項物件，又得前輩的指導了....

[leonchou]

相關參考 (自訂的物件集合)
http://gb.twbts.com/index.php/topic,630.0.html