一次自坑爹 Excel VBA 项目 计算模式 的大意

在一个帮朋友的Excel VBA项目中

为了执行效率.这样先:

'修改屏幕更新,计算模式和启用事件的状态

With Application

    CalcMode = .Calculation

    .Calculation = xlCalculationManual

    .ScreenUpdating = False

    .EnableEvents = False

End With

 

然后这里:

    处理生成了大量的公式……….

这里来了个悲剧的:

    '选择性粘贴所有单元格

    newSheet.Range("A1:J6500" & i).Copy

    newSheet.Range("A1").PasteSpecial Paste:=xlPasteValues

到此时才:

'恢复屏幕更新,计算模式和启用事件的状态

With Application

     .ScreenUpdating = True

     .EnableEvents = True

     .Calculation = CalcMode

End With

 SO. 被人一顿饱骂