ツイッター出題回答
Variant仮引数のByRefとByValの挙動違い

https://twitter.com/yamaoka_ss/status/1279642196430356487
【VBA問題】
Sub sample()
　Dim rng1 As Range, rng2 As Range
　Set rng1 = Range("A1:B1")
　Set rng2 = Range("A2:B2")
　Call sample_sub(rng1, rng2)
End Sub
Sub sample_sub(ByRef v1, ByVal v2)
　v1 = 1
　v2 = 1
　MsgBox WorksheetFunction.Sum(v1, v2)
End Sub
sampleの実行結果は?
・1
・2
・3
・4

以下で一連の解説ツイートをしています。
https://twitter.com/yamaoka_ss/status/1279781207975182337
Variantの仮引数に対して実引数でRangeオブジェクトを指定した場合、
ByRef、ByVal、呼ばれた関数ではどちらもRangeオブジェクトとして受け取ります。
しかし、このときByRefとByValでは一部挙動に違いが現れます。
受け取ったRangeオブジェクトに対するVBA記述によって違いが出てきます。
仮引数のVariantでRangeオブジェクトを受け取った場合のByRefとByValでの挙動の違いは、
Set代入した場合には、
ByRefなら参照私として呼び出し元も変化しますが、
ByValなら受け取るだけであり呼び出し元は変化しません。
通常RangeオブジェクトのValueに値を入れる場合は、
Range = 値
このLet代入でRangeが複数セルでも全てのセルのValueに値が入ります。
仮引数がRange型(As Range)であれば、Let代入は同じ動作となります。
しかしVariantでRangeを受け取った場合は、Let代入で挙動に違いが出てきます。
仮引数のVariant変数に対するLet代入では、
ByRefであれば、RangeのValueに値が入りますが、
ByValの場合は、Variant変数のRangeは破棄され、値そのものが変数に入ってしまいます。
これは、プロシージャー内でVariant変数を定義している場合を考えれば当然の結果として理解できます。
Dim v
Set v = Rangeオブジェクト
v.Value = 1 '①
v = 1 '②
①では、Rangeオブジェクトの全てのValueに値(1)が入ります。
②では、変数vに値(1)そのものが入ります。
ByValで受け取った場合は、プロシージャー内で変数定義したことと同じになります。
今回の問題では、
Call sample_sub(rng1, rng2)
Sub sample_sub(ByRef v1, ByVal v2)
v1 = 1 '①
v2 = 1 '②
①では、Rangeオブジェクトの全てのValueに値(1)が入ります。
②では、変数vに値(1)そのものが入ります。
v1は、Range("A1:B1")であり、全てのValueに1が入ります。
v2は、1がVariant/Integerとして代入されます。
結果として、
Sum(Range("A1:B1"), 1)
となるので、答えは3となります。
Variant変数の一般的な説明は、
「VBAのVariant型について」
https://excel-ubara.com/excelvba4/EXCEL_VBA_441.html

同じテーマの記事
新着記事
アクセスランク