subの配列引数をoptionalで使う方法

VBAで引数をありでもなしでもできるようにするために
optionalというものがあります

例えば

sub aaa(bbb, optional ccc)
という使い方がされます。


sub aaa(bbb, optional ccc())

のようにして配列を引数として渡そうとするとエラーが発生してしまいます。

http://officetanaka.net/excel/vba/statement/Func …

このページによれば
ParmArrayを付けると、配列でも省略可能なものとして指定できるそうなのですが
functionではうまくいくのですが
subでやるとやはりエラーが出てしまいます。

VBAの仕様ではsubで配列を省略可能として使うことはできないのでしょうか？

No.3 回答者： OverTheGalaxy 回答日時： 2015/12/06 20:12

http://excelwork.info/excel/paramarray/
上記参照URLによると、Paramarrayを使う場合はVariant型配列として宣言する必要があるそうです。
どこの誰が書いたかもわからんページですが。。。

No.2 回答者： WindFaller 回答日時： 2015/12/06 18:33

こんばんは。

>VBAの仕様ではsubで配列を省略可能として使うことはできないのでしょうか？
既存の仕様そのものを変えようとするよりも、それに対応させればよいのではないでしょうか。

>Sub aaa(bbb, Optional ccc)
>という使い方がされます。

もちろん、パラメータ配列を引数にすることも可能ですから、パラメータ配列にするということもありますが、Variant型の引数で、配列も受けられるのですから、それで問題ということはないはずです。

それとも、何か不都合があるのでしょうか。

サンプル
'//
Sub Test1()
Dim a, b
　a = 2
　b = Array(1, 2, 3, 4)
　TestArray a, b
End Sub

Sub TestArray(a, Optional b)
Dim c, n
If VarType(b) = vbArray Or vbVariant Then　'配列の場合
　For Each n In b
　 c = c + a * n
　Next
　MsgBox c
Else
　　 '*****　'そうでない場合
End If
End Sub
'///

No.1 回答者： gao57830 回答日時： 2015/12/06 16:19

sub aaa(bbb, ParamArray ccc())

でも、駄目ですか？