如何使活动工作表参与计算其余工作表不参与计算

hzruziniu

由于每个工作表都有大量的公式,因运行速度很慢,为提高运行速度,使活动工作表参与计算,其他工作表不参与计算,麻烦好心人编制一个宏代码,以达到运行速度快的目的.

honggexjq

比较简单，不用代码的方法是，设置工作簿为手动重算，然后当要计算工作表时按下SHIFT+F9，只计算活动工作表，如果一定要实现自动计算，可以试试下面的测试例子：

hzruziniu

老师：您好！非常感谢您的回复，但是出现了新的问题，就是我把你的代码复制运行时提示：编译错误，发现二义性的名称Workbook2_Open()，因为我已经定义了第一个宏按扭与您编译的宏定义重复，再次麻烦老师修改一下，学生是菜鸟不懂VBA，老师谢谢您了！
Option Explicit
Private Sub Workbook_Open()
Sheets(1).Select
Range("b4").Select
End Sub

Private Sub Workbook2_Open()
Dim isht As Worksheet
Application.Calculation = xlCalculationManual
For Each isht In Sheets
    If isht Is ActiveSheet Then
        isht.EnableCalculation = True
    Else
        isht.EnableCalculation = False
    End If
Next
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.EnableCalculation = False
End Sub

honggexjq

合并下即可：
Private Sub Workbook_Open()
Sheets(1).Select
Range("b4").Select
Dim isht As Worksheet
Application.Calculation = xlCalculationManual
For Each isht In Sheets
    If isht Is ActiveSheet Then
        isht.EnableCalculation = True
    Else
        isht.EnableCalculation = False
    End If
Next
Application.Calculation = xlCalculationAutomatic
End Sub

hzruziniu

谢谢您老师，同样也谢谢这个E家，用上您的宏语句以后,运行速度非常快。