小编Tho*_*ond的帖子

Private Sub Worksheet_Activate()

    If Worksheets("Input").Range("S5").Value = "Yes" Then
       MsgBox "Please make sure you've completed the historical deductible amounts for EL"
    End If

    Worksheets("Input").Calculate
    Worksheets("EL").Calculate
    Worksheets("PPL").Calculate
    Worksheets("Auto").Calculate
    Worksheets("AL").Calculate
    Worksheets("APD").Calculate
    Worksheets("Loss Layering").Calculate
    Worksheets("Sheet2").Calculate
    Worksheets("Premium").Calculate

End Sub

为了加速一个非常大的工作簿,我已经关闭了自动计算,并创建了一个层次结构,我在工作簿中移动时计算工作表.我的问题是,对于任何重型公式,如sumif或sumproduct,值不在我的活动表中计算,它们保持为零.我已经尝试过application.calculate和CalculateFull,这些都有效,但我发现它们占用了太多时间.我正试图找到一种方法来做到这一点,同时尽可能快速,简单和用户友好的模板.有什么建议？