| |
こんにちは。
> lbluriage.Add Controls("lbluriage" & uriageintl3)
> lbluriage(uriageintl3).Caption = ""
ラベル自体の名前の頭と、それのコレクションの名前が
同じだから紛らわしいんだ！
>For uriageintl3 = 10301 To 10616 '☆売上合計ラベルの初期化
> lbluriage(uriageintl3).Caption = "" '☆☆☆ここで止まってしまいます
コレクションをIndex(数字)で指定する場合は、コレクションに
格納された順に「１〜」の番号で指定します。ですから
10301 が １番
10302 が ２番
です。それで、どう考えても、１万個も登録していないですよね。だから
”インデックスが有効範囲にありません”
になります。
Add する時に、第２引数でキー(文字列)指定をすれば、そのキーで指定出来ます。
For uriageintl3 = 10301 To 10616
lbluriage.Add Controls("lbluriage" & uriageintl3), CStr(uriageintl3)
For uriageintl3 = 10301 To 10616 '☆売上合計ラベルの初期化
lbluriage(CStr(uriageintl3)).Caption = ""
|
|
角田
- 04/6/29(火) 16:37 -
