参照渡し（ByRef）

質問

参照渡しについてわからないのですが

Option Explicit

Dim buf As String
Sub Sample1()
buf = "aaa"
Call Sample2("bbb")
MsgBox buf
End Sub
Sub Sample2(ByRef a As String)
a = "ccc"
End Sub

を実行すると、msgboxには、aaaが表示されますが、
途中のbbb,cccはどんな意味があるのでしょうか？

また、
Sub Sample2(ByRef a As String)
を
Sub Sample2(a As String)
にしてもコードは問題なく動きますが、
ByRefは役に立ってるのですか？

回答No.1

DexMachina · ベストアンサー

まず、提示されているコードですが、

　　Call Sample2("bbb")

は、

　　Call Sample2(buf)

の記述ミスかと思います(汗)
(そうでないと、「参照渡し」についての話にならない・・・はず)
※PVTETEJPB8さんが、ではなく、そのサンプルを提示したテキスト
　 (サイト?)の著者が、ということです。
　 (でないと、「"aaa"」の次に「"ccc"」が出てくるとも思えない、と)

その上で・・・VBAの場合、特に指定しない場合は「ByRef」が省略されて
いるものとみなされるので、どちらも「参照渡し」をしていることになり、
動作に違いは発生しません。

ですので、

> ByRefは役に立ってるのですか？

については、「参照渡しの明示」という意味においてのみ、役に立っている、
ということになるかと思います。

なお、Sample2の引数「a」に対して、「参照渡し」の対となる「値渡し」を
指定すると、Sample1の動作は変化しますので、確認してみて下さい。

Sub Sample2(ByVal a As String)　　'「ByVal」により値渡しを指定
　　a = "ccc"
End Sub

・・・さて、なぜ「"bbb"」が出てきたかを想像(妄想)してみたのですが・・・
ひょっとして、その説明をされていたものでは、「Optional」についても触れて
いなかったでしょうか?

Sub Sample2(Optional a As String = "bbb")
　　a = "ccc"
End Sub

・・・とはいえ、今回のSample2の引数「a」をOptionalにして、既定値を
「"bbb"」にしたとしても、変数「buf」には何の影響もないので、やはり
誤記の可能性が高いように思います(汗)

ByRefとByValについての参考：
http://homepage1.nifty.com/CavalierLab/lab/vb/byvalbyref.html

・・・私自身は、ByRefは省略しまくってますが(汗)

お礼

ご回答ありがとうございます。