ツイッター出題回答
Variant仮引数にRange.Valueを配列で渡す方法

https://twitter.com/yamaoka_ss/status/1279311729231462400
【VBA問題】
Sub Q1()
　Range("A1:A6") = 1
　MsgBox fnc(Range("A1:A2"), (Range("A5:A6")), Range("A3:A4").Value)
End Sub
Function fnc(v1, v2, v3)
　Range("B1:B2") = v1
　Range("B3:B4") = v2
　Range("B5:B6") = v3
　fnc = WorksheetFunction.Sum(Range("B1:B6"))
End Function
Q1実行結果は?
・0
・2
・4
・6

以下で一連の解説ツイートをしています。
https://twitter.com/yamaoka_ss/status/1279771918011252738
複数セルのValueを配列にするにはVariant変数に代入します。
Variant変数 = Rangeオブジェクト.Value
※.Valueは省略可
※単一セルの場合は配列になりません。
Rangeを配列としてFunctionの引数に渡す場合はどうしたら良いでしょうか。
いったんVariant変数に入れてから渡せば問題ありません。
では直接引数にRangeを記述したらどうなるでしょうか。
実引数にRangeを指定し仮引数がVariantの場合、
関数側ではRangeオブジェクトのまま受け取ります。
今回の場合の変数v1がこれになります。
Variant変数v1はRangeオブジェクトです。
Range = Range
この代入ではValueはコピーされません。
左辺のRangeのValueがクリアされてしまいます。
これがエラーにならないのは要注意です。
この代入結果を期待してVBAを書くことはありえないと思います。
複数セルのRangeオブジェクトのValueをコピーするには、
右辺のRangeにValueを指定する必要があります。
通常は左辺右辺の両方にValueを指定して、
Range.Value = Range.Value
これでValueだけが一括でコピーされます。
では、実引数にRangeを指定し仮引数のVariantに配列を入れるにはどうしたら良いでしょうか。
実引数のRangeを配列にしてから渡すようにします。
次のような方法があります。
・Valueを指定する
・()で囲む
Valueプロパティを指定することで配列になります。
これが最も一般的な方法でしょう。
他の方法として、()で囲むことでRange既定のValueが取得されるので配列になります。
※CVar(Range(…))としても配列になりません。
今回の問題では、関数fncが受け取った時点では、
v1はRangeオブジェクト → 代入で左辺のValueがクリアされる
v2はValueの配列 → 代入で右辺の配列が左辺の.Valueに入る
v3はValueの配列 → 代入で右辺の配列が左辺の.Valueに入る
結果は、
B1:B2は空欄。
B3:B4は1が入ります。
B5:B6は1が入ります。
従って、答えは4です。
Sum(Range("B1:B6")) → 4
6の回答が圧倒的に多かったですが、
v1はRangeオブジェクトであり、
Range = Range
これではValueが入らないところが要点です。
Variant変数の一般的な説明は、
「VBAのVariant型について」
https://excel-ubara.com/excelvba4/EXCEL_VBA_441.html

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