Question

背景资料。

我有一个自定义滑块，我使用访问表单和一些控件构建。它被设置为增加1到40，

我需要什么。

VBA功能，其下面的值存储在ARRAY中，然后当我移动滑块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

VBA公式生成一组数字

1 个答案: