VBA　で配列を持つ場合

VBAでは配列を持つ場合、どうもしっくりこなくて、結局以下のようなやり方がいいみたい。

VBA関数例

'23区を返すような配列
Function strHairetsu(ByVal pIndex As Integer) As String
Dim ans As String
'----------------
Select Case pIndex
Case 0: ans = "新宿区"
Case 1: ans = "千代田区"
Case 2: ans = "中央区"
Case 3: ans = "港区"
Case 4: ans = "品川区"
'随時他の区を記述する
Case 22: ans = "荒川区"
End Select
'----------------
strHairetsu = ans

End Function

実際の使い方

上記用意したサンプル関数を呼び出したい箇所で実行すればよい。

For i = 0 To 22
debug.print = strHairetsu(i)
next i

以上使い方を紹介しました。