3

以下のルーチンを構築しようとしています。ルーチンの最後の引数はオプションの配列で、デフォルトでは 2 つの空の文字列が必要です。以下の宣言は機能しません。次のエラーが表示されます: コンパイル エラー: 定数式が必要です

Public Sub CreateReport(rpt As Report, rptSelectFLDS As Variant, _
                        rptWhereConds As Dictionary, _
                        Optional rptTopSelect As Variant = Array("", ""))
4

1 に答える 1

3

引数かどうかを確認するだけではどうIsMissing()ですか？

Public Sub CreateReport(rpt As Report, rptSelectFLDS As Variant, _
                        rptWhereConds As Dictionary, _
                        Optional rptTopSelect As Variant)

    If IsMissing(rptTopSelect) Then rptTopSelect = Array("", "")
于 2014-10-22T22:59:55.573 に答える