VBAの配列から値を返す

Question

私は、さまざまなメッセージを入れるメッセージ関数を定義しました。つまり、フォームでこの関数を呼び出すと、対応する選択されたメッセージだけが画面に表示されます。ここに私の例：

'Thats the message sub 
Public Sub MsgString(txtNo As Byte) 
    MsgBox MsgTxt(txtNo) 
End Sub 

'Thats the message function to return the corresponding value, which is chosen 
Private Function MsgTxt(txtNo As Byte) As String 
    Dim arrMsgTxt() As Variant 
    arrMsgTxt = Array("error message number one", "error message number two", "error message number three") 

    For txtNo = LBound(arrMsgTxt) To UBound(arrMsgTxt) 
      MsgTxt = arrMsgTxt(txtNo) 
      Exit Function 
    Next txtNo 
End Function 

は、それを解決する良い方法はありますか？現在、インスタンス化された値の後に関数を終了する必要があります。

Answer 1

インデックスをUDFに渡す通常の方法です。そうすれば、あなたはループを必要としません：

Public Function TellMe(indx as Long) as String 
    ary = Array("Mike", "James", "Paul", "William") 
    TellMe = ary(indx) 
End Function 

Sub MAIN() 
    MsgBox TellMe(2) 
End Sub 

ので、「ポール」