質問: newnumber end property 上のマクロではやり取り1変数になってますがこれを配列に変えたいのですがどうすればいいでしょうか?
回答: ふつうの配列を扱うときと同じように、 クラス用の配列変数を確保するだけです。 標準モジュール '-------------------------------------------------- sub test() dim i as integer dim class(3) as class1 '●クラスの配列変数を確保 for i = 1 to 3 set class(i) = new class1 next i for i = 1 to 3 class(i).obj = i * 1000 next i for i = 1 to 3 range("a1").offset(i).value = class(i).obj next i end sub '--------------------------------------------------- クラス '-------------------------------------------------- private a as integer public property get obj() as integer obj = a end property public property let obj(byval newnumber as integer) a = newnumber end property '---------------------------------------------- お分かりでしょうが、質問者のコードでは、 property getで obj = 2000 となってるので常に、2000が返ってきます。 で、そこはちょこっと変更してあります。