数组处理自定义函数VB.net

时间:2014-10-23 23:33:25

标签: vb.net excel vba

我正在尝试将一些excel VBA自定义函数转换为VB.net COM插件,我可以处理大多数函数,但是当其中一个输入是一个范围而不是一个单元格时它会崩溃。我添加了一个基本功能,当试图用外部范围询问Marray(i,0)时,该功能会失效

Function getAverage(ByVal arr As Object) As Double
    'local variables
    Dim i As Integer
    Dim avg As Double
    Dim sum As Double = 0
    Dim Marray As Array = CType(arr, excel.Range).Value2

    For i = 1 To UBound(Marray)
        sum = sum + Marray(i, 0)
    Next i
    avg = sum / UBound(Marray)
    Return avg
End Function

这可能不是处理范围的最佳方式,我会对任何有更好解决方案的人感兴趣

0 个答案:

没有答案