Excel 宏将字段中的公式保留为文本

Question

我有一个冗长的 VBA 宏，可以将内容放入 Excel 工作表中。有些内容是简单的公式，如=Q7*.3。宏完成后，这些将在单元格中显示为文本，而不是值。 F9 没有修复它。

现在，如果我只需单击其中一个单元格，然后在编辑栏中并按回车键，公式就会立即正确计算。从那时起，一切都适用于该单元格。

我记得以前见过这个，但我不记得解决方案

• 是的，格式设置为数字格式
• 是的，我尝试手动更改格式，但没有效果
• 是的，我将 .Calculate 发送到工作表，以及手动发送
• 不，没有前导引号或类似的东西
• 不，我没有进行任何更改以使其正确计算，只需在编辑栏中点击返回即可

它似乎是某种状态标志未在单元格上设置，因此 Excel 认为它不必计算它？示例：

TempD = GetFXRate("HUF")
WS.Cells(R, 20).Formula = "=Q" & R & IIf(Round(TempD, 4) = 1, "", "*" & TempD)

所有值和常量都是有效的。 TempD 约为 0.3。所有引用的单元格都存在。第一次迭代 R=7。

Answer 1

根据您基于我的最终评论的“答案”，唯一可能的解决方案是将您的normal 单元格样式设置为text，这样您的新工作表将添加normal 样式text 而不是 general。

您可以通过右键单击home 选项卡的cell styles 部分上的normal 样式并单击modify 来更改此设置。

点击format按钮，选择general并点击ok，然后再次点击ok。

再次运行您的脚本，您应该会发现您的新工作表是使用所有单元格的通用数字格式创建的。

Answer 2

问题的出现取决于最初制作工作表的方式。如果您手动创建工作表，它将获得正确的格式并且一切正常。如果您在 VBA 代码中创建工作表，它显然会将默认格式设置为不同的 - not 文本，某种不确定的格式。因此，即使您没有在代码中的任何地方应用单个 .NumberFormat ，或者更奇怪的是仍然继续在稍后的某个时间正确设置格式，它仍然会以这种奇怪的状态结束。我认为这是一个错误。

无论如何，解决方案是在创建后立即设置所有单元格的格式：

Dim WS As Worksheet
Set WS = WB.Sheets.Add(After:=Worksheets(Worksheets.Count))
WS.Cells.NumberFormat = "General"

从该点插入可以正常工作，设置格式也是如此。