如何在excel范围内显示1或2 dim varraint array（）返回excel UDF函数而不使用Ctrl + Shift + Enter数组论坛方法

Question

I've searched for solutions to this question for 3 days & have only found answers that either use Ctrl + Shift + Enter (array formula method) or functions which either return an empty range or which raise err 1004.

I'm using 64-bit Windows 8.1 and Excel-2013 write UDFs that return variant arrays from time to time with unknown array size returns... for example 'MyFunction(args...) as Variant()'. I can see the result in immediate window or write it to file or display it with Ctrl + Shift + Enter as an array formula.

What I want to do is use MyFunction() as an argument to a sub arr2rng(Myfunction) such that arr2rng() fills a range on the activesheet starting at ActiveCell inorder to avoid the whole manual routine of using array formula method (eg highlight a range of some size larger, by guessing, than the returned array, then the combination Ctrl + Shift + Enter to display the array).

I've even tried the long subroutine by Nile -- see his A generic VBA Array To Range function at VBA Excel 2-Dimensional Arrays ,

Public Sub ArrayToRange(rngTarget As Excel.Range, InputArray As Variant)

but at every statement in 'ArrayToRange()' where 'rngOutput.Value2 = InputArray' occurs function bombs with err.Number 1004. Just before that statement is executed both 'InputArray' and 'rngOutput.VaAlue2' elements are correctly dimensioned and filled (from Immediate or Local Window observations)... though 'rngOutput.Value2'elments are still empty as they should be. After the statement executes 'rgnOutput.value2' elements are still empty though, and err = 1004 has been raised. This occurs no matter which one of his tests in the code are executed. I've even gone so far as to invoke his sub by my function at the end of my own VBA's as:

myFunction(args....) as Variant()
[do stuff...]
ConArr = vbaTransposeVar(ConArr)
Set DestCell = ACTIVE_CELL_DESTINATION
ArrayToRange DestCell, ConArr
myFunction = ConArr
End Function

where 'ConArr' is the name of the resultant variant() array and also the return from myFunction(), where 'ACTTIVE_CELL_DESTINATION' is declared Public as Range in the Module.

What I prefer to do however is just invoke the 'sub ArrayToRange myDest, myArray' or any other sub such as a generic 'sub arr2rng(myDest as range, myArray() as Variant)' either from within some other function that invokes the sub or do it manually from the Macro window.

Can anybody help or tell me why all I get are either an empty range of cells or the 1004 error? I guess what I'm really asking is how to get around using the array formula method Ctrl + Shift + Enter . There must be a way! u

Answer 1

This example worked for me in testing, BUT there is no code to account for clearing any previous values which resulted from any earlier calculations. If the current run results in a smaller array then previous values will not be cleared.

You could account for this maybe by tracking the last range filled and making sure you clear it first, but depending on your exact use case that might not be viable.

Function ChangeIt(func As Range, c1 As Range, c2 As Range)
    Dim arr(), r, c, rv, v

    For r = 1 To c1
    For c = 1 To c2
        v = "Row" & r & ":Col" & c
        If r = 1 And c = 1 Then
            rv = v 'return this to the calling cell via myArray
        Else
            'all other values are written directly
            func.Offset(r - 1, c - 1).Value = v
        End If
    Next c
    Next r

    ChangeIt = rv
End Function

'this is called from the worksheet
Function MyArray(arg1 As Range, arg2 As Range)

    Dim v

    v = arg1.Parent.Evaluate("Changeit(" & Application.Caller.Address(False, False) & "," & _
                                           arg1.Address(False, False) & "," & _
                                           arg2.Address(False, False) & ")")

    MyArray = v 'set the top-left array value

End Function