この記事でわかること
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
Last Updated on 2024年9月1日 by らくろぐ
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以上使い方を紹介しました。
