数値の集合を生成するVBAの式

Question

背景情報。

私はアクセスフォームといくつかのコントロールを使用して作成したカスタムスライダを持っています。 1から40までインクリメントするように設定されています。

必要なもの

以下の値をARRAYに格納したVBA関数で、スライダ1〜40を移動すると対応する数値が呼び出されます。

0.10 
0.12 
0.14 
0.16 
0.18 
0.21 
0.24 
0.27 
0.30 
0.33 
0.37 
0.41 
0.46 
0.51 
0.56 
0.62 
0.68 
0.75 
0.83 
0.91 
1.00 
1.10 
1.21 
1.33 
1.47 
1.62 
1.79 
1.98 
2.19 
2.43 
2.70 
3.01 
3.36 
3.76 
4.23 
4.78 
5.43 
6.21 
7.14 
8.28 
9.70 

Answer 1

ない間違って行くことができるかわからが、ここで、あなたは以下のとおりです。

Public Function GetSliderNumber(ByVal i As Long) As Double 

    Dim arNumbers As Variant 

    arNumbers = Array(0.1, 0.12, 0.14, 0.16, 0.18, 0.21, 0.24) 

    ' Array is zero-based, we want 1-based index 
    i = i - 1 
    ' Check we are inside array boundaries 
    If i >= LBound(arNumbers) And i <= UBound(arNumbers) Then 
     GetSliderNumber = arNumbers(i) 
    Else 
     ' or error message 
     GetSliderNumber = 0 
    End If 

End Function 

直接ウィンドウ（Ctrlキー+ gの）：

? GetSliderNumber(1), GetSliderNumber(5), GetSliderNumber(100) 
0,1   0,18   0