Excel VBA質問箱 IV

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

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


57647 / 76732 ←次へ | 前へ→

【23820】Re:2次元配列を引数にするには?
回答  森イチロー  - 05/4/5(火) 0:43 -

引用なし
パスワード
   ▼ウッシ さん:
>こんばんは
>
>何をしたいのか理解出来ません。
>多分、的外れです。
>
>Sub test(ByRef a() As Double, i As Integer)
>  Dim j As Integer
>  
>  For j = 0 To UBound(a, 2)
>    a(i, j) = j * 2
>  Next
>  
>End Sub
>
>Sub main()
>  Dim a(10, 20) As Double
>  Dim i As Integer
>  
>  For i = 0 To UBound(a, 1)
>    Call test(a, i)
>  Next
>End Sub
>
>Sub test1(ByRef a() As Double, i As Integer)
>  Dim j As Integer
>  
>  For j = 0 To UBound(a, 1)
>    a(j, i) = j * 2
>  Next
>  
>End Sub
>
>Sub main1()
>  Dim a(10, 20) As Double
>  Dim i As Integer
>  
>  For i = 0 To UBound(a, 2)
>    Call test1(a, i)
>  Next
>End Sub

こんばんは。ありがとうございます。

的外れではなかったですが、このやり方は思いついてました。
ただ、これだと関数が引数としてiを持っていることを前提
にしなければなりませんし、Sub testの中のaは2次元配列
でないといけません。

分かりにくくて申し訳ないのですが、別の理由でtestに1次元
配列を入れるだけで同じ処理の関数が既にあり、2次元配列を
引数にして同じように関数が利用できないかと考えたわけです。

教えていただいたような方法ですと、同じ処理の関数を二つ作
ることになりますので、それを避けたいと思っているのですが・・・。
1 hits

【23802】2次元配列を引数にするには? 森イチロー 05/4/4(月) 20:40 お礼
【23812】Re:2次元配列を引数にするには? ちゃっぴ 05/4/4(月) 23:33 回答
【23818】Re:2次元配列を引数にするには? ウッシ 05/4/5(火) 0:23 回答
【23820】Re:2次元配列を引数にするには? 森イチロー 05/4/5(火) 0:43 回答
【23819】Re:2次元配列を引数にするには? 森イチロー 05/4/5(火) 0:37 回答
【23821】Re:2次元配列を引数にするには? ちゃっぴ 05/4/5(火) 0:55 発言
【23822】Re:2次元配列を引数にするには? ウッシ 05/4/5(火) 8:34 回答
【23823】Re:2次元配列を引数にするには? Kein 05/4/5(火) 9:31 発言

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