VBの関数の戻り値

解決済

質問者：maaaa
質問日時：2006/02/09 09:41
回答数：1件

初歩的なことですみません
受け渡し変数が1つの場合はわかりました
受け渡し変数が複数の場合どうするか、知りたいのです
グローバル変数にすればできるのでしょうが
関数々々の入/出力関係がはっきりすると思いまして
例でもうしますと
Function MyKansuu() as Integer
'
'
MyKansuu = Kekka1
End Function
これで
Kekka1,Kekka2と複数ある場合です
Integerのみなら、配列を使うことも考えられますが
StringとIntegerがあったりすると、どうでしょう
やはりこの場合、グローバル変数でしょうか

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

No.1ベストアンサー

回答者： PrintScree
回答日時：2006/02/09 09:54

関数の戻り値が複数の場合ということでしょうか？

関数に渡すパラメータではないですよね？

私なら、構造体を作成して解決させます。

例えば、
Public Type typMyKansu {
　Kekka1　　As Variant
　Kekka2　　As Variant
　KekkaTBL()　As Variant
　KekkaTBLCnt　As Integer　　'KekkaTBL()の添字のMAX
}

Function MyKansuu() as typMyKansu
　Dim retKekka　As typMyKansu

　retKekka.Kekka1="処理結果"
　retKekka.Keiia2=3500
　ReDim retKekka.KekkaTBL(0 To 100) 'ここはチョット自信なし(^^;
　retKekka.KekkaTBLCnt = 100

　MyKansuu = retKekka
End Function

というのはどうでしょうか？