関数プロシージャで戻り値を複数設定するには？ (ID:111192)

名前

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

本文 たとえばこう？ Option Explicit Private Type ResultType a As Long b As String c As Date End Type Private Sub Command1_Click() MsgBox func1.a & func1.b & func1.c MsgBox func2(0) & func2(1) & func2(2) End Sub Private Function func1() As ResultType func1.a = 123 func1.b = "あいうえお" func1.c = #1/10/2004# End Function Private Function func2() As Variant func2 = Array(123, "あいうえお", #1/10/2004#) End Function