如何在vba中使用数组

Question

您将如何编写一个 VBA 函数：

• 接受一个数组、一个可选的最小值和一个可选的最大值，
• 返回一个数组，其中每个小于最小值的值都被最小值替换，每个大于最大值的值都被最大值替换？

如何通过

1. 从工作表上的数组公式调用该函数并
2. 写入 VBA 数组的范围来测试该函数？

Answer 1

这更多的是一种概念验证功能，而不是实用功能。如果您不想设置默认值，则需要使用 Variant 类型作为可选参数，而使用“IsMissing”函数。

它需要一个 Excel 范围，如 A1:A5 或 A1:B5，以及 2 个可选参数（最小值和最大值）。它会输出一个字符串，告诉您该范围的新值。

作为测试，在 A1 到 A5 中输入值 1、2、3、4、5。现在，在 B1 中写下以下内容：

=CheckArray(A1:A5,3)

您应该返回结果“范围现在是：3,3,3,4,5”，因为您没有给出最大值。
您还可以这样做：

=CheckArray(A1:A5,,3)

这将返回“现在的范围是：1, 2, 3, 3, 3”

Function CheckArray(ByVal cell_range As range, _
                    Optional ByVal min_value As Variant, _
                    Optional ByVal max_value As Variant)

Dim i As Long, j As Long
Dim vArray As Variant
Dim test As String
vArray = cell_range.Value

For i = 1 To UBound(vArray, 1)
    For j = 1 To UBound(vArray, 2)
        'Check the min. value
        If IsMissing(min_value) = False Then
            If vArray(i, j) < min_value Then
                vArray(i, j) = min_value
            End If
        End If
        'Check the max value
        If IsMissing(max_value) = False Then
            If vArray(i, j) > max_value Then
                vArray(i, j) = max_value
            End If
        End If
    Next
Next
' The function is done. The below is just to spit out a test result.
For i = 1 To UBound(vArray, 1)
    For j = 1 To UBound(vArray, 2)
        test = test & (", " & vArray(i, j))
    Next
Next

CheckArray = "The range is now: " & vbLf & Right(test, Len(test) - 2)

End Function

Answer 2

如果您只想测试您的 vba，您可以使用硬编码数组创建一个过程。

如果它是用户定义的函数，您可以使用范围作为参数来调用它，但您可能必须设置断点，因为 UDF 不会像经典 vba 那样显示错误。

Answer 3

我真的不明白为什么你需要一个数组来实现这一点，而且你可以在没有 VBA 的情况下做到这一点！
假设您的 MIN 是 3，MAX 是 16，那么 =MAX(MIN(D6;16);3) 就可以了。
而且，如果您确实愿意，您仍然可以将其作为数组公式输入。