|
いつもお世話になっております m(_ _)m。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=15105;id=excel
で、オブジェクトの配列化についてお尋ねしたのですが、おかげさまでご教示いただいたことを参考に問題の解決をすることができました。
ところで、ご教示いただいたことをあれこれ試している中でに、オブジェクトをコレクション化して、それを初期化するという事をしてみたのですが、初期化中に“インデックスが有効範囲にありません゛というエラーメッセージが出て、実行できなくなってしまいます。
以下そのコードです(変数の宣言は省略させてください)。
Private Sub UserForm_Initialize()
coluriage 'オブジェクトのコレクション化
iniuriage 'コレクション化したオブジェクトの初期化
End Sub
Private Sub coluriage()
uriageintl3 = 0
For uriageintl3 = 10301 To 10616
lbluriage.Add Controls("lbluriage" & uriageintl3)
Select Case uriageintl3
Case Is = 10316
uriageintl3 = 10400
Case Is = 10416
uriageintl3 = 10500
Case Is = 10516
uriageintl3 = 10600
End Select
Next uriageintl3
End Sub
Private Sub iniuriage()
uriageintl3 = 0
For uriageintl3 = 10301 To 10616 '☆売上合計ラベルの初期化
lbluriage(uriageintl3).Caption = "" '☆☆☆ここで止まってしまいます
Select Case uriageintl3
Case Is = 10316
uriageintl3 = 10400
Case Is = 10416
uriageintl3 = 10500
Case Is = 10516
uriageintl3 = 10600
End Select
Next
End Sub
そこでお尋ねしたいのですが、インデックスが有効範囲にないとはつまりどういうことなのでしょうか?。またどのようにすればこのコードを実行することができるのでしょうか?。
どなたかご教示のほどよろしくお願いいたします(m;_ _)m。
|
|