如何在 Excel 中获取电子表格数据以从 VBA 中重新计算自身，而无需更改单元格值？
Lance Roberts
问问题
462326 次
6 回答
61
以下几行可以解决问题：
ActiveSheet.EnableCalculation = False
ActiveSheet.EnableCalculation = True
编辑： 该.Calculate()方法不适用于所有功能。我在带有附加数组函数的工作表上对其进行了测试。我正在使用的生产表足够复杂，我不想测试该.CalculateFull()方法，但它可能会起作用。
于 2008-09-30T18:54:58.970 回答
19
这应该可以解决问题...
'recalculate all open workbooks
Application.Calculate
'recalculate a specific worksheet
Worksheets(1).Calculate
' recalculate a specific range
Worksheets(1).Columns(1).Calculate
于 2008-09-30T19:26:59.470 回答
8
有时 Excel 会出现问题，需要重新启动才能重新应用公式。当您使用自定义公式时，在某些情况下会发生这种情况。
确保您有以下脚本
ActiveSheet.EnableCalculation = True
重新应用选择方程。
Cells(RowA,ColB).Formula = Cells(RowA,ColB).Formula
然后可以根据需要循环。
于 2013-09-04T19:11:12.783 回答
6
你也可以试试
Application.CalculateFull
或者
Application.CalculateFullRebuild
如果您不介意重建所有打开的工作簿，而不仅仅是活动工作表。（CalculateFullRebuild也重建依赖项。）
于 2008-09-30T19:52:04.137 回答
3
我在关闭VBA 中的背景图像（草稿水印）时遇到问题。我的更改没有出现（使用Sheets(1).PageSetup.CenterHeader = ""方法执行） - 所以我需要一种刷新方法。该ActiveSheet.EnableCalculation方法部分起到了作用，但没有涵盖未使用的单元格。
最后，我找到了我需要的一个衬里，它使图像在不再设置时消失：-
Application.ScreenUpdating = True
于 2014-12-02T17:28:11.233 回答
0
数据连接更新后，某些 UDF 未执行。使用子程序，我试图重新计算一个列：
Sheets("mysheet").Columns("D").Calculate
但上述声明没有任何效果。上述解决方案都没有帮助，除了 kambeeks 建议替换公式有效并且如果在更新期间手动重新计算打开速度很快。下面的代码解决了我的问题，即使对 OP “kluge” 评论不完全负责，它也提供了一个快速/可靠的解决方案来强制重新计算用户指定的单元格。
Application.Calculation = xlManual
DoEvents
For Each mycell In Sheets("mysheet").Range("D9:D750").Cells
mycell.Formula = mycell.Formula
Next
DoEvents
Application.Calculation = xlAutomatic
于 2019-06-24T22:28:24.067 回答