| |
▼ひげくま さん：
回答ありがとうございます。いろいろな方法があるのですね。
本当に助かりました。
わざわざ、プログラムのソースまでありがとうございます。
>▼ken さん：
>こんにちは。
>
>>配列などを使うことでfunction()で処理した数値の値をsub()に
>>返すことはできないでしょうか？
>
>配列ではありませんが、ByRefで渡す方法もありますよ。
>その場合、FunctionでもSubでも出来ます。
>
>Sub test3()
> Dim a As Integer, b As Integer, c As Integer, d As Integer
> a = 10
> b = 100
> test_calc a, b, c, d
> MsgBox "c = " & c & ", d = " & d
>End Sub
>
>Sub test_calc(ByVal a As Integer, ByVal b As Integer, ByRef c As Integer, ByRef d As Integer)
> c = a + b
> d = a * b
>End Sub
|
|
ken
- 07/8/3(金) 15:41 -
