Excel VBA質問スレ Part5

Excel VBA質問スレ Part5 at TECH

552:デフォルトの名無しさん
08/01/29 08:25:03
上の続き

Private Function TEST1(c As Range) As Long
Dim i&, j&
For i = 1 To 5
　　 j = c.Row
Next
TEST1 = j
End Function

Private Function TEST2(ByVal c As Range) As Long
Dim i&, j&
For i = 1 To 5
　　j = c.Row
Next
TEST2 = j
End Function

実測値
TEST1 2448 ミリ秒
TEST2 2528 ミリ秒
５回のループじゃなくて25回くらいならほぼ同じになった。もっと回したらやっと逆転した。
だから>>529の言うことがまったくウソということではないが、通常このように何度もアクセスすることはないから参照渡しで問題なし。
ましてや1回のアクセスに値渡しは無駄もいいとこ。１回なら割合としては上の計測よりもっと差がつく。

次ページ

続きを表示

1を表示