Question

编写一个带2个范围或2个数组作为输入的函数，如果这两个范围/数组具有相同数量的元素，则得到每个元素的绝对差值之和，如果这两个数组的大小，则向用户发送错误消息/范围不一样。这是一个VBA问题，我的时间很艰难。

这是我到目前为止所做的：

Public Function MyFunction(Rng1 As Range, Rng2 As Range)
    Dim CountRng1 As Long
    Dim CountRng2 As Long

    Rng1.Count = CountRng1
    Rng2.Count = CountRng2

    If CountRng1 = CountRng2 Then

    Else
        MsgBox "Error, the ranges you passed to the function are not the same size"
    End If
End Function

Answer 1

功能不显示任何弹出消息。因此，在您的代码中进行了轻微的更改以完成预期的任务。

Public Function MyFunction(Rng1 As Range, Rng2 As Range)
    Dim CountRng1 As Long
    Dim CountRng2 As Long

    CountRng1 = Rng1.Count
    CountRng2 = Rng2.Count

    If CountRng1 = CountRng2 Then
        'Your Code Goes here...
    Else
        MyFunction = "Error, the ranges you passed to the function are not the same size"
    End If
End Function

Answer 2

您可以在单元格中使用简单公式来执行此操作：

=SUMPRODUCT(ABS(A1:A10-B1:B10))

VBA（绝对差值之和）范围

2 个答案: