VBA 函数中的元素数组操作

Question

我在 VBA 中创建了一个自定义函数，其输入是一个单元格值和三个相同长度的不同范围。代码或多或少如下：

Public Function MYTEST(CELLVALUE As Double, ByRef INPRNG As Range, ByRef RNG1 As Range, ByRef RNG2 As Range)
Dim i As Double
DIM A As Double
DIM B As Double
Dim MODRNG As Range

For i = LBound(INPRNG) To UBound(INPRNG)
    MODRNG(i) = INPRNG(i) * RNG1(i) + CELLVALUE * RNG2(i) 
Next i
A= MODRNG.Cells(1,1)
B= MODRNG.Cells(2,1)
mytest =A+B
End Function

我得到一个#VALUE！运行此代码时出错。 我的问题是三个方面：

1. 是我的变量/范围声明不正确还是 For 循环导致了问题？
2. 有没有办法使用 For Each 循环而不是 For Next？
3. 我可以在我的 Excel 工作表中执行（for 循环的）数组操作并将修改后的数组发送到函数吗？

为了清楚起见，请查看快照。

谢谢！

Answer 1

我不确定我是否理解您的目标，但这会为 MODRNG 抛出一个从第一和第二（单元格/数组位置）开始的数字。

Option Explicit
Public Function MYTEST(CELLVALUE As Double, ByRef INPRNG As Range, ByRef RNG1 As Range, ByRef RNG2 As Range) As Long

    Dim i As Double
    Dim A As Double
    Dim B As Double
    ReDim MODRNG(1 To INPRNG.Cells.Count)

    For i = 1 To INPRNG.Cells.Count
        MODRNG(i) = INPRNG(i) * RNG1(i) + CELLVALUE * RNG2(i)
    Next i
    A = MODRNG(1)
    B = MODRNG(2)
    MYTEST = A + B

End Function

想如果你只想要第一个和第二个值，我不明白你为什么要取大于 2 个单元格的范围。