複数あるクラスの Set ○○ = New □□ ひとつにまとめたい (ID:102810)

名前

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

本文 複数のクラスモジュールがあるプログラムです。 【例】 クラスモジュールは Class1 Class2 Class3 Class4 ・・・ 複数あります。 クラスを使用するために下記の様にプログラムを作っています。 Dim clsObject1 As Object Dim clsObject2 As Object Dim clsObject3 As Object Dim clsObject4 As Object Set clsObject1 = New Class1 Set clsObject2 = New Class2 Set clsObject3 = New Class3 Set clsObject4 = New Class4 ・・・ '後続の条件処理において、実際に使用するのは1つのクラスしかありません。 Dimの宣言を Dim clsObject As Object ひとつだけにして、 条件処理を最初に行い、Set clsClass = New Class○ ひとつだけに したいのですが、このような処理はできるのでしょうか？