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

名前

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

本文 魔界の仮面弁士さん、ありがとうございます。 書込みした内容で対応できないか検討しましたが、 【引用】 > '------ 標準モジュール(Module1) > Option Explicit > Public Function CreateSample(ByVal p As Integer) > If p = 0 Then > Set CreateSample = New Class1 > ElseIf p < 0 Then > Set CreateSample = New Class2 > ElseIf p > 0 Then > Set CreateSample = New Class3 > End If >End Function 上記部分を Set CreateSample = New Class ' ← ココを１回だけにしたいのです。 If p = 0 Then CreateSample.Test ElseIf p < 0 Then CreateSample.Test ElseIf p > 0 Then CreateSample.Test End If という感じにしたいのですが、出来ないでしょうか？