將 Excel VBA Analysis ToolPack “Fourier” Sub 轉換為 UDF Function

Question

我想在 VBA 中創建一個 UDF，利用 ATPVBAEN.XLAM 分析工具包 VBA 中可用的 Excel 的“傅立葉”子程序。我認為一種方法是動態創建一個新的工作表，使用 output 運行子程序指向該新工作表，將結果復制到數組中，刪除創建的工作表，然后返回數組。 但是，我似乎遇到了無法在工作簿中的 function 調用中創建新工作表的問題； 從工作簿中的單元格調用以下 function 不會創建新工作表：

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

我該如何克服這個問題？

Answer 1

您無法將 ToolPack 的傅立葉變換轉換為 UDF。

但是，您可以通過其他方式實現傅里葉變換。

1. 在 VBA 中定義一個 UDF（參見例如這個答案和鏈接的代碼。

2. 使用最近發布的 Excel LAMBDA 函數來定義新的自定義 function（例如，參見此存儲庫）。