在Excel中，可以使用VBA代码来实现在动态定义的单元格中使用基于函数的公式。以下是一个示例代码：

Sub DynamicFormula()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
    Set rng = ws.Range("A1") ' 替换为你想要设置动态公式的单元格
    
    With rng
        .Formula = "=SUM(A2:A5)" ' 设置初始公式
        
        ' 添加Change事件，以便在单元格内容更改时重新计算公式
        With ws
            .EnableCalculation = False ' 禁用自动计算以提高性能
            .Calculate ' 计算一次以使初始公式生效
            .EnableCalculation = True ' 启用自动计算
        End With
        
        ' 添加SelectionChange事件，以便在选择单元格时重新计算公式
        With ws
            .OnSelectionChange = "'ReCalculateFormula """ & rng.Address & """'"
        End With
    End With
End Sub

Sub ReCalculateFormula(rngAddress As String)
    Dim rng As Range
    
    Set rng = Range(rngAddress)
    
    Application.EnableEvents = False ' 禁用事件以避免循环调用
    rng.Formula = rng.Formula ' 重新计算公式
    Application.EnableEvents = True ' 启用事件
End Sub

在上面的代码中，首先定义了一个名为DynamicFormula的子过程，该过程设置了初始公式，并为单元格添加了Change事件和SelectionChange事件。

在Change事件中，禁用了自动计算，然后手动进行一次计算，以确保初始公式生效。接着，启用自动计算，以便在单元格内容更改时重新计算公式。

在SelectionChange事件中，调用了名为ReCalculateFormula的子过程，并将要重新计算公式的单元格的地址作为参数传递给该过程。

在ReCalculateFormula子过程中，将传递的地址转换为一个Range对象，并使用该对象的Formula属性重新计算公式。在重新计算公式之前，禁用事件以避免循环调用，重新计算完成后启用事件。

通过这样的设置，当单元格的内容更改或选择单元格时，公式将自动重新计算。