In Excel VBA, wie schreibe ich eine Funktion, die in einer Array-Formel arbeiten kann?

Question

In Excel VBA, ich weiß, ich kann eine Array-Formel für mehrere Zellen verwenden, indem Sie einen Bereich von Zellen von Col C auswählen und tun = A1: 10 * B1: B10 Strg-Shift-Enter.

Aber angenommen, anstelle des Multiplikationsoperators möchte ich, dass es mein MyMult ist.

Wie würde ich die mymult-Funktion schreiben?

Function MyMult(a As Integer, b As Integer) 
    MyMult = a * b 
End Function 

Was ich habe, funktioniert nicht

Answer 1

die Argumente als Variante erklären. Dann Application.Caller.HasArray verwenden zu überprüfen, ob die UDF als Matrixformel verwendet wird:

Public Function MyMult(a, b) 
    If Application.Caller.HasArray Then 
    Dim valsA(), valsB(), r& 
    valsA = a.Value 
    valsB = b.Value 

    For r = LBound(valsA) To UBound(valsA) 
     valsB(r, 1) = valsA(r, 1) * valsB(r, 1) 
    Next 

    MyMult = valsB 
    Else 
    MyMult = a * b 
    End If 
End Function 

Beachten Sie, dass Sie benötigen C1 auszuwählen: C3 vor STRG + SHIFT + ENTER.