ＶＢ6 動的配列の使用方法 (ID:141648)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 <訂正> Private Sub A1 Do Until iMax > 4 ReDim Preserve iWK(0 To iMax) As I_WK iWK(iMax).aaa = text iWK(iMax).bbb = text iWK(iMax).ccc = text iMax = iMax + 1 Loop Exit Sub Private Function B1 iMax = 0 Do Until iMax > 4 ReDim Preserve iWK(0 To iMax) As I_WK aaa = iWK(iMax).aaa --> 1番目は参照出来るがLoopした後の bbb = iWK(iMax).bbb --> 2番目が参照出来ない ccc = iWK(iMax).ccc --> iMax = iMax + 1 Loop End Function