アプリ&PCガジェット

アプリ&PCガジェット

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