excel - Excel VBA 仅从自定义函数设置默认值一次

Question

我想将单元格的默认值设置为自定义函数的结果。

一旦单元格具有它的价值，它就永远不会改变。

我怎么能：

• 测试调用单元格是否有值？从我所看到的情况来看，如果您对其进行测试Application.Caller.Value，它会重新评估再次调用该函数的单元格。我试过传入当前值，但它都是循环=myFunc(A1)的。

• 设置值后立即删除该功能。我试过Cell.Value = Cell.Value了，但它只是再次调用该函数。

• 锁定单元格，或者让它read-only，添加某种不再计算我的标志。

重新创建问题 - 设置一堆单元格=NOW()然后等待片刻并执行不同的单元格，您会注意到所有单元格都更新到现在，我希望我的函数只运行一次。

感激地收到所有输入

标签： excelvba

Answer 1

不太确定您的确切目标，但您可以尝试将其放在相关的工作表代码窗格中：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub

    If InStr(Target.Formula, "MyFunc") > 0 Then ' change "MyFunc" tou your actual function name
        Application.EnableEvents = False
        Application.Calculation = XlCalculation.xlCalculationManual
        Target.Value = Target.Value
        Application.EnableEvents = True
        Application.Calculation = XlCalculation.xlCalculationAutomatic
    End If
End Sub