如何重新计算工作表指定区域？

作者：绿色风分类：时间：2022-08-17 浏览：118

楼主 gvntw	Q：有时候工作表中计算量很大，全部计算花费比较多的时间，我只想重新计算某一区域，如何解决？ A：以重新计算 C2:C10 为例，代码如下： Sub gvntw2009022501() With Application '多次调用同一对象，可以使用 With 语句，而不用重复指出对象的名称 oldcalc = .Calculation '取出原来的重新计算模式 .Calculation = xlManual '设置为手动重算 Range("C2:C10").Calculate '计算特定区域 .Calculation = oldcalc '恢复原来的重新计算模式 End With '结束 With 语句 End Sub calc.zip
2楼 xpm130	每一句都加以注释,很方便不懂VBA的学习,谢谢了
3楼 gvntw	加注释是一种习惯，一来方便新手学习，二来对于比较大的工程，也方便自己维护和调试。
4楼 biaotiger1	Sub 部分单元格重新计算() Application.Calculation = xlManual Range("A1:A2") = Int(Rnd * 10) Range("B1").CalculateRowMajorOrder If Range("B1") <> Range("B2") Then MsgBox "B2与B3单元格数值不等" Application.Calculation = xlAutomatic End Sub
5楼 henryxzkxu	能否设置成只计算抹黑的的区域

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表