• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:VBAでクラス設定)

VBAでクラス設定する方法

このQ&Aのポイント
  • VBAを使用してクラスを設定する方法について説明します。
  • 上記のVBAコードは、クラスを使用してオブジェクトを作成し、変数を設定する方法を示しています。
  • 配列で変数を管理する方法についての質問です。

質問者が選んだベストアンサー

  • ベストアンサー
  • onlyrom
  • ベストアンサー率59% (228/384)
回答No.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が返ってきます。 で、そこはちょこっと変更してあります。  

tk516ncb
質問者

お礼

普通にクラスを配列にすればいいんですね ありがとうございます。

関連するQ&A

専門家に質問してみよう