Как мне написать функцию, которая принимает диапазон или список аргументов в Excel VBA?

Question

Например, SUM, я могу делать такие вещи, как:

=SUM(F5:F7,F6:F8,A1,E7:G7,F7,2,7)

Который принимает несколько диапазонов и / или отдельных ячеек и добавляет их все. У меня вопрос, как мне сделать это с помощью функции VBA, например, обобщить двоичный XOR:

Function BXOR(A As Integer, B As Integer) As Integer
    BXOR = CLng(A) Xor CLng(B)
End Function

Стареет быстро, когда мне нужно =BXOR(BXOR(BXOR(w,x),y),z)

---

Обобщенная версия функции Марко:

Function BXOR(ParamArray vars() As Variant) As Long
    Dim i,j As Long
    BXOR = 0

    For i = 0 To UBound(vars)
        If Not IsObject(vars(i)) Then
            ' Handle explicitly passed integer arguments, e.g. BXOR(1,[...])
            BXOR = BXOR Xor CLng(vars(i))
        ElseIf IsArray(vars(i).Value2) Then
            ' Handle 1-D ranges of cells, e.g. BXOR(A1:A3,[...])
            For j = 1 To UBound(vars(i).Value2)
                BXOR = BXOR Xor CLng(vars(i)(j).Value2)
            Next j
        Else
            ' Handle individual cells, e.g. BXOR(A1,[...])
            BXOR = BXOR Xor CLng(vars(i).Value2)
        End If
    Next i
End Function

Answer 1

Я думаю, что вы ищете ParamArray

Ваш код должен выглядеть следующим образом:

Function BXor(ParamArray vars() As Variant) as Long
    Dim i As Long
    Dim tmp As Long

    For i = 0 To UBound(vars)
        tmp = tmp Xor clng(vars(i))
    Next

    BXor = tmp
End Function

Answer 2

Вы можете использовать ParamArray для передачи переменного числа аргументов.Тип должен быть Variant.

Function BXOR(ParamArray args() As Variant)