您能否永久禁用excel工作簿中特定工作表的自动计算功能？

Question

我有一个大型excel工作簿，目前有23张工作表。工作簿需要大约100 k行库存，并按库存位置将其分类为8张工作表，其余15张用于统计数字和根据需要移动库存。100 k库存按8份库存表进行排序，每页使用约400次和数公式，总计约3200个公式。我的工作簿开始严重滞后，因为每次在15个工作表中的一个工作表上更改数据时，8个库存表就会重新计算。为了分析我想要找出的内容，我需要15张自动计算，8张同时设置为手动计算。不管怎么说都有这个必要。我没有包括任何代码，因为这是一个excel功能问题。我已经搜索了很多，但我能找到的所有文献都说，用计算函数来说，它是一种全或无的情况。但是，在重写整个工作簿以将所有公式转换为VBA之前，我想我应该看看是否有人在周围找到了工作。

Answer 1

您将需要VBA来完成此操作。

1. 禁用自动计算和保存计算；这可以在Application.Calculation = xlManual，Application.CalculateBeforeSave = False

的Excel或VBA中完成。

"auto-calculate"

• Loop

1. 列出您想要在该列表中显示的所有工作表，使用Worksheets(1).Calculate或Sheets("Sheet1").Calculate一次计算单个工作表，您可以将其设置为每次在笔记本上更改Worksheet.Change事件时运行，或者我个人会在单击该宏时创建一个运行该宏的按钮。

一个快速原型：

Sub customcalc  
 Dim myarray As Variant  
 myarray = Array("Sheet1", "Sheet2", "Sheet3")  
 For Each s In myarray  
  Sheets(s).Calculate  
 Next s  
End Sub