VBA实现打印前对工作簿重新计算

VBA实现打印前对工作簿重新计算

如果在处理表格数据时,计算方式设置成手动重算,表格数据是无法实时更新的~那么我们要定义在打印前来一次重新计算~

输入如下代码:

 

  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)   
  2.     For Each wk in Worksheets   
  3.         wk.Calculate   
  4.     Next   
  5. End Sub   

此代码在打印前将对当前工作簿的所有工作表进行重新计算,保证数据实时性!

代码很短,但希望对你有帮助!

分享到:

2 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 美肤网

    我又来了 我推出wopus群了 以后多多指教了

    1. Kael.Z

      一定一定,多多往来!为啥退出啊~