获取动态单元格列表最大值的函数？

Question

我有一个 B 列的 excel 表，其中包含超过 100 行，这些行是来自 RTD 链接的动态。

此 RTD 链接每秒更新一次，并且值不断增加，直到在给定时刻它变为零。我只需要在 C 列存储它变为零之前的最后一个值。

我尝试通过 sub（下面的代码），但我创建的循环导致 Excel 崩溃。

我认为最好的方法是使用 VBA 函数，我尝试过但没有成功。有人可以在函数中思考吗？

Private Sub Worksheet_Calculate()
Dim rng As Range
Set rng = Me.Range("B3:B7")

For i = 3 To 7

    If Range("B" & i) > Range("C" & i) Then
        Range("C" & i) = Range("B" & i)
    End If

Next i

End Sub

Answer 1

想象以下 UDF（用户定义函数）。它有一个循环引用，可能 Excel 会抱怨它可能计算错误（但如果您在该抱怨处单击 OK，它仍然有效）。

Option Explicit

Public Function RTD_Max(ByVal Value As Variant)
    If Not Value = 0 Then
        RTD_Max = Value
    Else
        RTD_Max = Application.ThisCell.Value
    End If
End Function

下面的蓝色单元格已将公式=RTD_Max(B3) 复制下来。

正如您所看到的，当数据进入时，它会在下降到 0 之前保留 C 中 B 的最后一个值。

---

题外话： 由于没有可用的 RTD，因此我使用以下代码对传入数据进行动画处理：

Public Sub Animate()
    Dim i As Long
    For i = 1 To 10
        Dim Cell As Range
        For Each Cell In Range("B3:B7").Cells
            Cell.Value = Cell.Value + Rnd
        Next Cell
        Application.Wait (Now + TimeValue("0:00:01"))
    Next i

    For Each Cell In Range("B3:B7").Cells
        Cell.Value = 0
    Next Cell
End Sub