vba - 如何VBA更改单元格的值(显示文本)而不更改其公式？

Question

我对这个 VBA 宏有疑问。

Sub demoChangeText()
    Application.Range("B2").Value = "Overidden text"
End Sub

我的测试是here 。要运行此宏，请在 Excel 中打开它，按 Ctrl+F8 并选择 demoChangeText。

结果，该宏更改了单元格 B2 的值(向我们显示的文本)，但清除了其公式。我需要更改 B2 的值，但还需要保留公式。

所以我的问题是如何更改单元格的显示文本而不更改其公式？

更新

我问这个问题是因为我正在尝试解决 this problem

Answer 1

我不确定这是否有帮助，因为很难说出您的基本要求是什么，但无论如何:

有几个因素会影响单元格的显示:

1. 输入的值(如果是常量)
2. 计算结果(如果是公式)
3. 单元格的格式
4. 单元格的条件格式(如果有)

在提供的示例表中，您有一个公式 =ROW()&COLUMN()，它返回 22 的字符串结果

您可以通过应用单元格格式来显示其他内容，
例如，格式为 0;0;0;Ov\e\r\ri\d\d\e\n t\ext 会将任何字符串值显示为 覆盖文本

这可以通过 VBA 来应用

Range("B2").NumberFormat = "0;0;0;Ov\e\r\ri\d\d\e\n t\ext\s"

或

Range("B2").NumberFormat = "0;0;0;""Overridden texts"""