Excel VBA質問箱 IV

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

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


6139 / 13645 ツリー ←次へ | 前へ→

【46964】参照渡しについて たいやきの頭 07/2/23(金) 14:12 質問[未読]
【46965】Re:参照渡しについて neptune 07/2/23(金) 15:32 発言[未読]
【46970】Re:参照渡しについて たいやきの頭 07/2/23(金) 16:40 発言[未読]
【46972】Re:参照渡しについて Blue 07/2/23(金) 16:55 回答[未読]
【46973】Re:参照渡しについて たいやきの頭 07/2/23(金) 17:23 質問[未読]
【46974】Re:参照渡しについて Blue 07/2/23(金) 17:31 回答[未読]
【46988】Re:参照渡しについて たいやきの頭 07/2/24(土) 17:48 お礼[未読]

【46964】参照渡しについて
質問  たいやきの頭  - 07/2/23(金) 14:12 -

引用なし
パスワード
   参照渡しで、どれだけの変数を渡しても大丈夫な方法ってありますか?
あるならぜひ教えてください。

  

【46965】Re:参照渡しについて
発言  neptune  - 07/2/23(金) 15:32 -

引用なし
パスワード
   ▼たいやきの頭 さん:
>参照渡しで、どれだけの変数を渡しても大丈夫な方法ってありますか?
ありますよ。
>あるならぜひ教えてください。
少しは自分で調べましょう。ここの過去ログにも「参照渡し」のKeyで
沢山ヒットするものがありますよ。

他の放置のスレは、放置のままですか?

【46970】Re:参照渡しについて
発言  たいやきの頭  - 07/2/23(金) 16:40 -

引用なし
パスワード
   他のスレには先ほど入って来ました。
別に放置しようと思っていたわけではないのですが、
仕事が忙しく、つい忘れてしまいました。

自分なりに参照渡しはいろいろと調べたのですが、
みんな基本的な参照渡ししか書かれていなくて・・・。
変数が2だろうが10個だろうが大丈夫!
っていう参照渡しはなかなかないのでよろしければ
教えてください。

【46972】Re:参照渡しについて
回答  Blue  - 07/2/23(金) 16:55 -

引用なし
パスワード
   実際いくつ参照渡しで指定しようとしているのでしょうか?
(配列を使うべきなんじゃ)

Sub hoge(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z)
  a = 1
  b = 2
  c = 3
  d = 4
  e = 5
  f = 6
  g = 7
  h = 8
  i = 9
  j = 10
  k = 11
  l = 12
  m = 13
  n = 14
  o = 15
  p = 16
  q = 17
  r = 18
  s = 19
  t = 20
  u = 21
  v = 22
  w = 23
  x = 24
  y = 25
  z = 26
End Sub

Sub test()
  Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
  hoge a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
  Debug.Print a
  Debug.Print b
  Debug.Print c
  Debug.Print d
  Debug.Print e
  Debug.Print f
  Debug.Print g
  Debug.Print h
  Debug.Print i
  Debug.Print j
  Debug.Print k
  Debug.Print l
  Debug.Print m
  Debug.Print n
  Debug.Print o
  Debug.Print p
  Debug.Print q
  Debug.Print r
  Debug.Print s
  Debug.Print t
  Debug.Print u
  Debug.Print v
  Debug.Print w
  Debug.Print x
  Debug.Print y
  Debug.Print z
End Sub

【46973】Re:参照渡しについて
質問  たいやきの頭  - 07/2/23(金) 17:23 -

引用なし
パスワード
   変数を渡す側と受ける側が違う数はどうすればいいのですか?
時には2つ、時には5つというような数が変わる場合。

【46974】Re:参照渡しについて
回答  Blue  - 07/2/23(金) 17:31 -

引用なし
パスワード
   ▼たいやきの頭 さん:
>変数を渡す側と受ける側が違う数はどうすればいいのですか?
>時には2つ、時には5つというような数が変わる場合。
ParamArrayを指定する。

受け取り側はVariant型の配列として扱うことになる。

Sub Hoge(ParamArray p() As Variant)
  Dim i As Long
  For i = LBound(p) To UBound(p)
    p(i) = i
  Next
End Sub

Sub test
  Dim a, b, c
  Hoge a, b, c
  Debug.Print a
  Debug.Print b
  Debug.Print c
End Sub

【46988】Re:参照渡しについて
お礼  たいやきの頭  - 07/2/24(土) 17:48 -

引用なし
パスワード
   できました!!
半分あきらめていたのですが本当にできて感激です!

本当にいつも感謝しています。
これからもよろしくお願いします!

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