|
▼naka さん:
>配列の数を増やしたらuserformが開くのですが、
>Arrayの中のoptionbuttonは29個なので配列はこれでいいような
>気がするのですが。
>
>なぜ? ReDim opb(28)
ん?だって、配列の添え字として、指定できるのは、
ReDim opb(28)
0から28ですよね?
でも、
> For Each n In Array(3, 4, 26, 19, 18, 8, 7, 28, 27, 5, 6, 32, 31, 13, 12, 17, 16, 11, 10, 25, 24, 23, 22, 30, 29, 15, 14, 34, 33)
> Set opb(n) = New class_mxout
> With opb(n)
> .Item = Me.Controls("OptionButton" & n)
> .index = n
> .caller = Me
> End With
> Next n
このnが配列の添え字になるのですが、
このnは、3,4,26,19、・・・・・30や、34、33もありますよね?
ってことは、0から28以外もあるってことです。
原因はここです、考えてみてください
|
|