ステートメントの簡略方法(ループ)

質問

Visual Basic 6.0
For/Doを使って省略可させようと考えているのですが、オブジェクト名は
ループさせて省略可出来ないのでしょうか？

下記はフォームロード時に各セルの値を各CommandButton名に割り当てています。(一部分です)

(例) CB○はCommandButtonのオブジェクト名です。
Form2.CB1.Caption = Trim(xlSheet.Cells(11, 3))
Form2.CB2.Caption = Trim(xlSheet.Cells(12, 3))
Form2.CB3.Caption = Trim(xlSheet.Cells(13, 3))
Form2.CB4.Caption = Trim(xlSheet.Cells(14, 3))
Form2.CB5.Caption = Trim(xlSheet.Cells(15, 3))
・
・
・
　↓
Dim SUU As Integer
Dim i As Integer
SUU = 0
For i = 1 To 20 Step 1
SUU = SUU + 1
Form2.CB1.Caption = Trim(xlSheet.Cells(10 + SUU, 3))
Next i

CB1の部分を "CB" & SUU の様にしたいのですが、エラーしてしまいます。
省略可の方法が有りましたら教えて下さい。

回答No.1

bluecampus · ベストアンサー

>"CB" & SUU の様にしたいの
だと、文字列になるのでオブジェクトを指していないので当然です。

From2.Controls("CB" & SUU).Caption

の様にコントロール名から対象となるコントロールを取得することで可能です。

参考
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard20.htm

また、コントロール配列が可能であれば、再考してみてください。

お礼

すみません、コントロール配列を理解していませんでした。
ボタンやテキストボックスをコピー&貼付けでコントロール配列させ
上記方法で、省略可出来ました。
有難う御座いました。

補足

回答有難う御座います。
From2.Controls("CB" & SUU).Caption を試したのですが、その箇所でエラーしてしまいます。
実行時エラー'424';
オブジェクトが必要です。
Form1からForm2を操作しているからでしょうか？
下記はDimのSUUを省きました。

Private Sub Command3_Click()
　Dim xlApp As Object
　Dim xlBook As Object
　Dim xlSheet As Object
　Dim i As Integer
　Set xlApp = CreateObject("Excel.Application")
　Set xlBook = xlApp.Workbooks.Open("C:\Link一覧.xls")
　xlApp.Visible = False
　Set xlSheet = xlBook.Worksheets("Sheet1")
　Form2.Label1.Caption = Trim(xlSheet.Cells(11, 2))

　For i = 1 To 20 Step 1 '(CommandButton CB1～CB20まで)
　　From2.Controls("CB" & i).Caption = Trim(xlSheet.Cells(10 + i, 3))
　Next i

　xlBook.Close (True)
　xlApp.Quit
　Set xlApp = Nothing
End Sub