您可以在不返回 Excel 中的数组的情况下修改 UDF 中的单元格吗？

创建修改其他单元格而不返回数组的 UDF

您有一个 Excel 加载项，其中包含一个名为 New_Years 的函数，该函数当前返回两个指定年份之间的元旦数组。但是，这需要您选择多个单元格并使用 Ctrl Shift Enter 创建数组。

是否可以避免数组创建？

是的，可以直接从 UDF 修改其他单元格而不返回数组。虽然 Excel 禁止 UDF 对单元格属性进行任何更改，但有一个复杂的解决方案，涉及使用 Windows 计时器和 Application.OnTime 计时器的组合。

解决方案概述

1. 在 UDF 内创建 Windows 计时器。
2. Windows 计时器调度 Application.OnTime 计时器。
3. Application.OnTime 计时器安全地执行 UDF 外部的代码。

代码实现

以下代码必须放置在常规模块中：

Private Declare Function SetTimer Lib "user32" ( _
      ByVal HWnd As Long, _
      ByVal nIDEvent As Long, _
      ByVal uElapse As Long, _
      ByVal lpTimerFunc As Long _
   ) As Long

Private Declare Function KillTimer Lib "user32" ( _
      ByVal HWnd As Long, _
      ByVal nIDEvent As Long _
   ) As Long

Private mCalculatedCells As Collection
Private mWindowsTimerID As Long
Private mApplicationTimerTime As Date

Public Function AddTwoNumbers( _
      ByVal Value1 As Double, _
      ByVal Value2 As Double _
   ) As Double

   AddTwoNumbers = Value1 + Value2

   ' Cache the caller's reference for later use in a non-UDF routine
   If mCalculatedCells Is Nothing Then Set mCalculatedCells = New Collection
   On Error Resume Next
   mCalculatedCells.Add Application.Caller, Application.Caller.Address
   On Error GoTo 0

   ' Set the Windows timer
   If mWindowsTimerID <> 0 Then KillTimer 0&, mWindowsTimerID
   mWindowsTimerID = SetTimer(0&, 0&, 1, AddressOf AfterUDFRoutine1)

End Function

定时器例程

定义了两个定时器例程：AfterUDFRoutine1 和 AfterUDFRoutine2。它们处理 UDF 外部代码的调度和执行。

用法示例

在 Excel 工作表的单元格中输入 AddTwoNumbers 函数：=AddTwoNumbers(A1, B1)

这将启动计时器进程。

重要说明

• 不要使 UDF 易失性或传递易失性函数/单元以避免不受控制的循环。
• 该解决方案很复杂，可能并不适合所有应用程序。

以上是您可以在不返回 Excel 中的数组的情况下修改 UDF 中的单元格吗？的详细内容。更多信息请关注PHP中文网其他相关文章！