如何在不更改公式的情况下更改单元格的文本？

Question

我是 VBA 新手。这个问题已经被问到并回答了here，但答案似乎太老套了。有没有更好的方法来更改单元格的值而不更改其中的基础公式？我试过 target.text="changed" 但这给了我“需要对象”的错误

我问的原因是，在 UDF 中，您可以更改单元格的显示，但公式仍然存在。如何在 UDF 之外执行此操作？

编辑：

在下面的示例中，myudf 和 my_udf 似乎做同样的事情，每个人都告诉我只做 NumberFormat。问题是 Numberformat 将永久更改单元格。如果您在 A2 中输入了“=my_udf()”，那么只需返回并在那里输入一些随机文本。除非您返回并手动重新格式化单元格（或输入 excel 内置函数），否则它将显示“ThisThatThere”。

模块1

Function myudf()
    myudf = "ThisThatThere"
End Function

Function my_udf()
    my_udf = "Temporary"
End Function

这本工作簿：

Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range)
    If target.HasFormula Then
        If LCase(target.Formula) Like "=my_udf(*" Then
            target.NumberFormat = "0;0;0;""ThisThatThere"""
        End If
    End If
End Sub

Answer 1

如果公式返回数值而不是文本值，这很容易。将公式放入单元格中，选择它并运行：

Sub ChangeText()
    Dim DQ As String, mesage As String
    DQ = Chr(34)
    mesage = DQ & "override" & DQ
    ActiveCell.NumberFormat = mesage & ";" & mesage & ";" & mesage & ";"
End Sub

UDF 本身，就像非 VBA 工作表公式一样，只能将值返回到单元格............最好的值可以影响条件格式。