かえでのWebログ

VBAの言語仕様上、定数の配列を作る方法が用意されていないらしい*1。
そこで、定数の配列の代替となるものを作ってみた。

環境

• Access 2003 (SP3)

定数の配列モドキ

以下は配列の添え字が増分するごとにアルファベットを1進めるもの

Public Function alphaArray(Byval num As Long) As String
　　Select Case num
　　　　Case 0:
　　　　　　alphaArray = "A"
　　　　Case 1:
　　　　　　alphaArray = "B"
　　　　Case 2:
　　　　　　alphaArray = "C"
　　　　(中略)
　　　　Case 25:
　　　　　　alphaArray = "Z"
　　　　Case Else
　　　　　　alphaArray = null
　　End Select
End Function