excel使用vba将公式转换为公式值的方法
小编致力于为大家奉献最有效的经验,让大家能够解决掉问题,但是大家也都知道,每个人遇到的情况都是不一样的,大家在看小编经验的同时,除了跟随操作,也需要自己的思考,举一反三的解决问题,这样才会变得更加有内涵,成为和小编一样的经验达人。excel使用vba将公式转换为公式值的方法,这里,让小编给大家介绍一下。
操作方法
- 01
首先我们打开一个工作样表作为例子。
- 02
打开vba编辑器,插入一个新的模块,并在模块中输入以下代码: Sub 公式转为数值() Dim rng As Range, c As Range Set rng = ActiveSheet.Range("A1").CurrentRegion For Each c In rng.Cells If c.HasFormula Then c.Value = c.Value End If Next End Sub
- 03
我们定义了两个变量rng和c。其属性为区域变量。同时设置rng值为活动工作薄。
- 04
接着我们使用逐步循环判断语句for each判断单元格内的数据是否为公式c.HasFormula即是对单元格数据的判断条件。如果是,则取该单元格的公式计算值为该单元格值。
- 05
我们在工作薄内插入一个按钮,并指定宏。运行一下这个宏,看看结果。在编辑栏里我们可以看到所处的单元格正好是一个公式。
- 06
点击宏按钮,我们可以看到单元格编辑栏处不再是公式,而是一个确切的数值。
- 07
先写到这里了,谢谢大家的观看。 祝大家生活愉快。 小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。 看不清楚图片的可以点击放大再看哦。
赞 (0)