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

よく忘れて調べなおしたりするのでメモメモエクセルのセルに対してドロップリストを設定する方法 ※リスト選択を可能にしたいセルはすべて選択しておくこと。 ※Excel2010をもとに記載しています