優秀なアルゴリズムの本
■ このスレッドは過去ログ倉庫に格納されています
0102デフォルトの名無しさん
NGNGFor Eachじゃ不満か？
Dim cs As New Collection
Dim c As Class1
Dim i As Integer
For i = 0 To 9
Set c = New Class1
c.Value = i
cs.Add c
Next i
'For Eachでコレクション内全表示(配列でも可)
For Each c In cs
Debug.Print c.Value
Next c
■ このスレッドは過去ログ倉庫に格納されています