将 Excel VBA Analysis ToolPack “Fourier” Sub 转换为 UDF Function

Question

I would like to create a UDF in VBA making use of Excel's "Fourier" sub available in ATPVBAEN.XLAM Analysis ToolPack VBA. I thought a way to do this would be to create on the fly a new WorkSheet, run the sub with the output directed to that new Worksheet, copy the results into an array, delete the created worksheet, and return the array. However, I seem to have run into a problem where I cannot create a new WorkSheet in a call from a function in the workbook; a call to the following function from a cell in the workbook does not create a new worksheet:

Function addWS() As Variant
  Dim WS As Worksheet
  With ThisWorkbook
    Set WS = .Worksheets.Add
  End With
End Function

How do I overcome this?

Answer 1

You can't transform the ToolPack's Fourier Transform into a UDF.

You can however implement the Fourier transform in some other way.

1. Define a UDF in VBA (see eg this answer and the linked code .

2. Use the recently released Excel LAMBDA functions to define a new custom function (see eg this repository ).