如何在不更改公式的情况下更改单元格值（显示文本）？

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 的格式将 any 字符串值显示为Overridden text

这可以通过 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"""