MMULT公式不适用于VBA函数

Question

I created a VBA function =cellrange(some inputs here) that yields an array (ie $AD$3:$AP$346 )

In this example I am using the following formula in order to get a matrix: =MMULT(TRANSPOSE($AD$3:$AP$345),$AD$3:$AP$345) and I get the correct response.

When I use my VBA function: =MMULT(TRANSPOSE(INDIRECT(cellrange(A3,"all",COLUMN(AD2)-1,COLUMN(AP2)-1))),INDIRECT(cellrange(A3,"all",COLUMN(AD2)-1,COLUMN(AP2)-1)))

Question: Why do I get an error and how can this be fixed?

PS I have used this function sucessfully many times before, however not in a =MMULT()

VBA function code: [there is nothing wrong here as far as I know, but I have provided it for reference]

Option Explicit

Public Function cellrange(rDates As Range, vFilter As Variant, Optional colOffsetA As Variant, Optional colOffsetB As Variant) As String
'DESCRIPTION:
    'This function takes any cell value in a row and a input: YTD, ALL, or any year (i.e. 2014, 2015) and it finds the range in which the date is situated

    Dim i As Long, ndx1 As Long, ndx2 As Long, r As Range, vA As Variant, bErr As Boolean, bAll As Boolean
    bErr = True
    If IsDate(rDates) Then
        With rDates.EntireColumn
            i = rDates.Parent.Evaluate("count(" & .Address & ")")
            Set r = .Cells(1 - i + rDates.Parent.Evaluate("index(" & .Address & ",match(9.9E+307," & .Address & "))").Row).Resize(i, 1)
        End With
        vA = r.Value
        If IsMissing(colOffsetA) And IsMissing(colOffsetB) Then
            colOffsetA = 0: colOffsetB = 0
        End If
        If IsMissing(colOffsetB) = True Then colOffsetB = colOffsetA
        Select Case LCase(vFilter)
            Case "all"
                bErr = 0: bAll = 1
                Set r = r.Range(r.Parent.Cells(1, 1 + colOffsetA), r.Parent.Cells(r.Count, 1 + colOffsetB))
            Case "ytd"
                For i = 1 To UBound(vA)
                    If ndx1 = 0 And Year(vA(i, 1)) = Year(Date) Then ndx1 = i
                    If vA(i, 1) <= Date Then ndx2 = i
                Next
            Case Else 'year
                vFilter = Val(vFilter)
                If vFilter Then
                    For i = 1 To UBound(vA)
                        If ndx1 = 0 And Year(vA(i, 1)) = vFilter Then ndx1 = i
                        If ndx1 And Year(vA(i, 1)) = vFilter Then ndx2 = i
                    Next
                End If
        End Select
        If Not bAll Then If ndx1 > 0 And ndx2 > 0 Then Set r = r.Range(r.Parent.Cells(ndx1, 1 + colOffsetA), r.Parent.Cells(ndx2, 1 + colOffsetB)): bErr = False
        If Not bErr Then cellrange = r.Address Else cellrange = CVErr(xlErrValue)
    Else
        cellrange = CVErr(xlErrValue) 'check if this is the correct error handling
    End If
End Function

Support Photo:

Answer 1

Try this. Change your cellrange function with NEWCELLRANGE and remove INDIRECT functions. See if it works.

Public Function NEWCELLRANGE(rDates As Range, vFilter As Variant, Optional colOffsetA As Variant, Optional colOffsetB As Variant) As String
'DESCRIPTION:
'This function takes any cell value in a row and a input: YTD, ALL, or any year (i.e. 2014, 2015) and it finds the range in which the date is situated

Dim i As Long, ndx1 As Long, ndx2 As Long, r As Range, vA As Variant, bErr As Boolean, bAll As Boolean
bErr = True
If IsDate(rDates) Then
    With rDates.EntireColumn
        i = rDates.Parent.Evaluate("count(" & .Address & ")")
        Set r = .Cells(1 - i + rDates.Parent.Evaluate("index(" & .Address & ",match(9.9E+307," & .Address & "))").Row).Resize(i, 1)
    End With
    vA = r.Value
    If IsMissing(colOffsetA) And IsMissing(colOffsetB) Then
        colOffsetA = 0: colOffsetB = 0
    End If
    If IsMissing(colOffsetB) = True Then colOffsetB = colOffsetA
    Select Case LCase(vFilter)
        Case "all"
            bErr = 0: bAll = 1
            Set r = r.Range(r.Parent.Cells(1, 1 + colOffsetA), r.Parent.Cells(r.Count, 1 + colOffsetB))
        Case "ytd"
            For i = 1 To UBound(vA)
                If ndx1 = 0 And Year(vA(i, 1)) = Year(Date) Then ndx1 = i
                If vA(i, 1) <= Date Then ndx2 = i
            Next
        Case Else 'year
            vFilter = Val(vFilter)
            If vFilter Then
                For i = 1 To UBound(vA)
                    If ndx1 = 0 And Year(vA(i, 1)) = vFilter Then ndx1 = i
                    If ndx1 And Year(vA(i, 1)) = vFilter Then ndx2 = i
                Next
            End If
    End Select
    If Not bAll Then If ndx1 > 0 And ndx2 > 0 Then Set r = r.Range(r.Parent.Cells(ndx1, 1 + colOffsetA), r.Parent.Cells(ndx2, 1 + colOffsetB)): bErr = False
    If Not bErr Then NEWCELLRANGE = evaluate(r) Else NEWCELLRANGE = CVErr(xlErrValue)
Else
    NEWCELLRANGE = CVErr(xlErrValue) 'check if this is the correct error handling
End If
End Function