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

• VBA • 2 条评论 • •4,678 次查阅

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

      一定一定，多多往来！为啥退出啊~