要素数未定の配列を用意するときには、とりあえずDimで配列宣言して、要素数が確定し次第Redim、となりますよね。
これに類似のことを、要素数未定のユーザー定義型（構造体）で行うにはどうしたらよいのでしょうか？
例えば以下のような点で悩んでしまっています。
--------------------
Type hoo
b() As Boolean 'ここは要素数未定でも通る
c As Long
End Type
Sub main()
Dim bar() As hoo
a = 3
ReDim bar(a) 'このReDimも通る
bar(i).b(j) = True 'このjに相当する部分の上限値の設定方法がわからない
End Sub
--------------------
わかる方がいましたらよろしくお願いします。
No.2
3454
969
50pt
こんな感じです。
22
20
Sub main()
Dim bar() As hoo
Dim i As Integer
Dim j As Integer
a = 3
b = 5
ReDim bar(a)
For i = 0 To a
For j = 0 To b
ReDim bar(i).b(b)
bar(i).b(j) = True
Next j
Next i
End Sub
No.2
3454969
ここでベストアンサー
50pt
こんな感じです。
Sub main()
Dim bar() As hoo
Dim i As Integer
Dim j As Integer
a = 3
b = 5
ReDim bar(a)
For i = 0 To a
For j = 0 To b
ReDim bar(i).b(b)
bar(i).b(j) = True
Next j
Next i
End Sub
ドンぴしゃではなかったのですが、理解できました！
ReDimの場所を変えて、これならうまくいきました。
Sub main()
Dim bar() As hoo
Dim i As Integer
Dim j As Integer
a = 3
b = 5
ReDim bar(a)
For i = 0 To a
ReDim bar(i).b(b)
For j = 0 To b
bar(i).b(j) = True
Next j
Next i
End Sub
ありがとうございました！
SALINGER
2007/06/22 00:20:51
1
1
1
ドンぴしゃではなかったのですが、理解できました！
ReDimの場所を変えて、これならうまくいきました。
Sub main()
Dim bar() As hoo
Dim i As Integer
Dim j As Integer
a = 3
b = 5
ReDim bar(a)
For i = 0 To a
ReDim bar(i).b(b)
For j = 0 To b
bar(i).b(j) = True
Next j
Next i
End Sub
ありがとうございました！