1

我对 excel vba 还很陌生，我似乎无法用 vbArrays 解决这个问题。我在 vba 中创建了函数 cumsum 只是为了让我的生活更轻松。但是，我想让代码灵活，这样我就可以从一个函数和一个范围传递两个变体。在我的代码中，当我添加行 vec=vec.value 如果我传入一个范围时，它工作得非常好，但如果我希望它在我调用函数并传入非范围类型时工作，它就不起作用. 我注意到的是，如果我的代码中没有 vec=vec.value 行并且我传入一个范围，它的维度为 0，我通过编写自己的函数进行检查。有人可以向我解释如何解决这个问题吗？谢谢。

Public Function cumsum(vec As Variant) As Variant
    Dim temp() As Variant
    MsgBox (getDimension(vec))
    'works if i use vec=vec.value if vec is a range but has 0 if i do not vec = vec.values
    ReDim temp(LBound(vec, 1) To UBound(vec, 1), 1 To 1) As Variant
    Dim intCounter As Integer
    For intCounter = LBound(vec) To UBound(vec)
        If intCounter = LBound(vec) Then
            temp(intCounter, 1) = vec(intCounter, 1)
        Else
            temp(intCounter, 1) = temp(intCounter - 1, 1) + vec(intCounter, 1)
        End If
    Next
    cumsum = temp()
End Function
Function getDimension(var As Variant) As Integer
On Error GoTo Err:
    Dim i As Integer
    Dim tmp As Integer
    i = 0
    Do While True:
        i = i + 1
        tmp = UBound(var, i)
    Loop
Err:
    getDimension = i - 1
End Function
4

3 回答 3

2

为什么不vec使用VarType和TypeName检查数据类型，然后执行必要的操作vec

Public Function cumsum2(vec As Variant) As Variant
    MsgBox TypeName(vec)
    MsgBox VarType(vec)

    cumsum2 = 0
End Function
于 2012-07-20T16:05:30.883 回答
1

@Jake 和 @chris 的回答暗示了正确的方向，但我认为他们走得还不够远。

如果您绝对确定您只会将此例程称为 UDF（即来自工作表中的公式），那么您真正需要做的就是添加以下内容：

If IsObject(vec) Then
    Debug.Assert TypeOf vec Is Range

    vec = vec.Value2
End If

到你的功能的开始。称为 UDF，它应该被传递的唯一对象类型是Range. 此外，称为 UDF，您可以依赖这样一个事实，即它传递的任何数组都将从 1 开始索引。

我可以找出您日常工作中的其他问题，但它们与您最初的问题无关。简而言之：这仅适用于列向量，对于单单元格范围等将失败。

请注意，您的getDimension函数为Ranges 返回零的原因UBound是在范围内阻塞。您的错误处理程序很高兴地捕捉到您并不真正期望得到的错误（类型不匹配）并返回零。（查找“维度”的方法假设错误将是下标超出范围错误。）

不久前我写了一个答案，描述了为什么在使用 Excel 时，我认为一般getDimension方法不是一个好的方法：

https://stackoverflow.com/a/6904433/58845

最后，问题VarType在于，当传递一个具有默认属性的对象时，它实际上会返回该属性的类型。所以VarType(<range>)要告诉你范围内的东西的类型，而不是对象的代码，因为Range有一个默认属性，Range.Value.

于 2012-07-21T18:58:20.757 回答
0

修改你getDimension的包括

If TypeName(var) = "Range" Then
    var = var.Value
End If
于 2012-07-20T22:11:41.020 回答