VBA即用型代码手册第七章代码的简单过程之3 将所有公式转换为值Convert all Formulas into Values(vba代码助手专业版官网) szthrk.cn

我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想,积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木,同时讲解了如何搭建。为了让学员拥有更多的积木,我开始着手这部《VBA即用型代码手册(汉英)》的创作,这部手册约600页,集合约500多个的案例,案例我用汉语和英语同时发布,一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识,另一方面,大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是VBA即用型代码手册第七章代码的简单过程之3 将所有公式转换为值Convert all Formulas into Values

【分享成果,随喜正能量】工作中,不做伸手党,遇到问题自己先想办法,要锻炼自己思考的能力。问别人只是为了优化自己的答案。领导交代的工作,做之前先问清楚和领导确认一遍,这样做事有清晰的目标,有反馈。这样才能做得更好。

第七章代码的简单过程之3 将所有公式转换为值Convert all Formulas into Values

Sub nzConvertToValues() '将所有公式转换为值

Dim MyRange As Range

Dim MyCell As Range

Select Case _

MsgBox("您无法撤消此操作。" _

& "是否首先保存工作簿?", vbYesNoCancel, "提示")

Case Is = vbYes

ThisWorkbook.Save

Case Is = vbCancel

Exit Sub

End Select

Set MyRange = Selection

For Each MyCell In MyRange

If MyCell.HasFormula Then

MyCell.Formula = MyCell.Value

End If

Next MyCell

End Sub

只需将公式转换为值即可。运行此宏时,它会快速将公式更改为绝对值。

Simply convert formulas into values. When you run this macro it will quickly change the formulas into absolute values.

  • 本节内容参考程序文件:Chapter07.xlsm

我20多年的VBA实践经验,全部浓缩在下面的各个教程中: