投稿日 | : 2006/02/11(Sat) 12:50 |
投稿者 | : も |
Eメール | : |
URL | : |
タイトル | : Re^9: 動的に2次元配列 |
枯れた方法ですが、
・二次元配列ではなく、ユーザ定義型の配列を使う
というものがあります。
例えば
Option Explicit
'hoge型の宣言
Private Type hoge
itm() As Variant
End Type
'hoge型の配列
Private itm() As hoge
Private Sub Form_Load()
Dim i As Long
'hoge型の配列の確保
ReDim itm(2)
'hoge型の配列の要素.itm()の確保
For i = 0 To 2
ReDim itm(i).itm(0)
Next
'使ってみる
itm(1).itm(0) = "a"
'hoge型の配列の拡張
Debug.Print itm(1).itm(0)
'拡張後、要素が残っているか確かめる
ReDim Preserve itm(10)
Debug.Print itm(1).itm(0)
End Sub
の様に使えます。
まぁ、2次元配列ではなくなりますが…