Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31391 / 76732 ←次へ | 前へ→

【50592】Re:function()の扱い方
発言  ichinose  - 07/8/3(金) 12:34 -

引用なし
パスワード
   ▼ken さん:
こんにちは。
>sub()からfunction()にaとb引数を渡します。
>例 a=10 とb=100
>そしてfunction()で
>c=a+b と d=a*bの処理を行います。
>そしてfunction()からsub()に値を返すのですが、
>一つの変数しか返すことができません。
>
>配列などを使うことでfunction()で処理した数値の値をsub()に
>返すことはできないでしょうか?

この事例だと配列で返す方法がよいですね。


'================================================
Sub main()
  Dim a As Variant
  Dim b As Variant
  Dim ans As Variant
  a = 10
  b = 100
  ans = func_samp(a, b)
  MsgBox "和  " & ans(1) & vbCrLf & "積  " & ans(2)
End Sub
'======================================================================
Function func_samp(ByVal a As Variant, ByVal b As Variant) As Variant
  Dim calc(1 To 2) As Variant
  calc(1) = a + b
  calc(2) = a * b
  func_samp = calc()
  Erase calc()
End Function


呼び出し先から、値を返す方法は他にもありますから、
ケースバイケースですよ!!

1 hits

【50591】function()の扱い方 ken 07/8/3(金) 12:17 質問
【50592】Re:function()の扱い方 ichinose 07/8/3(金) 12:34 発言
【50595】Re:function()の扱い方 ken 07/8/3(金) 15:39 お礼
【50594】Re:function()の扱い方 ひげくま 07/8/3(金) 14:30 回答
【50596】Re:function()の扱い方 ken 07/8/3(金) 15:41 お礼

31391 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free