投稿日 | : 2006/02/10(Fri) 12:54 |
投稿者 | : demontaki |
URL | : |
タイトル | : Re^5: 動的に2次元配列 |
> ごめんなさい
> さっきの投稿は間違いでした
ごめんなさい
こちらが正解でした
Dim arr() As Variant
Dim arr_Conv() As Variant
Dim i As Integer
ReDim arr(2, 0)
arr(0, 0) = "a"
arr(1, 0) = "b"
arr(2, 0) = "c"
ReDim Preserve arr(2, 3) 'エラーが起きない
For i = 0 To 3
arr(0, i) = "a" & i
arr(1, i) = "b" & i
arr(2, i) = "c" & i
Next
ReDim Preserve arr(2, 5) 'エラーが起きない
For i = 0 To 5
arr(0, i) = "a" & i
arr(1, i) = "b" & i
arr(2, i) = "c" & i
Next
ReDim arr_Conv(10, 5)
For i = 0 To 5
arr_Conv(0, i) = arr(0, i)
arr_Conv(1, i) = arr(1, i)
arr_Conv(2, i) = arr(2, i)
Next
arr() = arr_Conv() '配列自体のコピーをしますのでarr()のサイズも変わります。