最近の更新

2012年5月20日日曜日

関数で可変長の引数を渡す方法

【目的】
VBAで関数を使用し、関数で可変長の引数を使用します。



【手順】
1.「標準モジュールの作成方法」の手順で、「MainModule」とい標準モジュールを作成。
2.「MainModule」を以下の様に入力。
Option Explicit

Sub main()
    Call func1("aaa")
    Call func1("aaa", "bbb", "ccc")
    Call func1(1, 2, 3)
End Sub

Private Sub func1(ParamArray args() As Variant)
    Dim i As Integer
    
    Debug.Print ("関数が呼び出されました。")
    For i = LBound(args) To UBound(args)
        Debug.Print ("args(" & i & ")=" & args(i))
    Next
End Sub
3.「関数を実行する方法」の手順で、main関数を実行。
4.イミディエイトウィンドウが表示されない場合は、「イミディエイトウィンドウの表示方法」でイミディエイトウィンドウを表示させます。
5.以下の様に、イミディエイトウィンドウに以下の様に、出力されれば成功です。




以上です。

0 件のコメント:

コメントを投稿

注: コメントを投稿できるのは、このブログのメンバーだけです。

関連記事