配列サイズがVBAで配列引数を渡す制限

Question

Excel-VBA 2007は引数として渡される配列のサイズに64kの制限があるようです。

修正プログラムや回避策はありますか？

Public Function funA(n) 
    Dim ar() 
    ReDim ar(n) 
    funA = ar 
End Function 

Public Function funB(x) 
    funB = UBound(x) 
End Function 

Excelから：

は、ここでは、コードです

=funB(funA(2^16-1)) '65536 as expected 

=funB(funA(2^16)) 'Gives a #VALUE 

内部を見ると、フナ（）は罰金しかし、funBに渡された作品、引数xはエラー2015

Answer 1

です

これは私が見つけることができるように仕事に近いと思われる。インター関数はVBA

から呼び出してくださいあなたはこの

Public Function funBA(n As Variant) As Variant 
    funBA = funB(funA(n)) 
End Function 

のようなものを作る場合には、最大動作するようですN =いずれかのように見えない^ 3^24 = 2^8（ハングアップどこでVBAでのデータ型のブレークポイントがあるが、それはかなり大きな配列です）

Answer 2

それはあなたがこれを実行するとエラー

Public Sub test() 

    x = funB(funA(2^16 - 1)) 
    y = funB(funA(2^16)) 

    Debug.Print x; y 

End Sub 

を得ることができないので、あるように思わVBAの問題ではありませんそれを渡す問題Excelに戻って - 多くの文書はありませんが、Excelの制限のようです。ここで

は、私はそれがむしろVBAよりもスプレッドシートのセル自体の制限、だと思う別のリンクが、無ソリューションWorksheetFunction array size limit

と別の http://answers.microsoft.com/en-us/office/forum/office_2007-excel/passing-arrays-to-excel-worksheet-functions-in/56d76732-9a15-4fd2-9cad-41263a4045d4

Answer 3

です。 Excelは関数間で2^16より大きい配列を渡すことができますが、明らかに、それはセル内にそのサイズの配列を含むことはできません。

セルの数式でfunA(2^16)をハイライト表示し、F9を押すと、'#VALUE!'というエラーが表示されます。

funAの計算結果がfunBになる前に計算されているため、既に計算された関数に対してfunBを実行しようとしています。

Bradが投稿したような（すなわち、funB(funA(n))を計算する3番目の関数）は、計算が完了するまでセルを計算式から外してしまうので、問題なく動作します。

Answer 4

1次元配列は列の列としてExcelに戻されるため、Excel 2007の列数（64K）の制限に達しました。

あなたは、アレイ2は、二次元にし、それが動作するはず行として返す場合：

Public Function funA(n) 
    Dim ar() 
    ReDim ar(n,1) 
    funA = ar 
End Function 

また、列に行から配列を回転させるためにトランスポーズを使用することができますが、これはおそらく、作成するよりも効率が低いです最初は2次元配列です。