使用VBA逆推Excel计算式,快速获得值
在日常工作中,我们常常会遇到需要逆推某个Excel表格中的计算式,以便快速获取对应的值。一般来说,我们可以先写好计算式,然后使用evaluate函数来得到计算式的值。但是如果想要逆推得到计算式,该怎么办呢?下面就来分享一些实用的经验。
第一步:新建一个工作簿,并随便写上几个数据和一个公式
首先,我们需要打开Excel,新建一个工作簿,并在其中填写一些数据和一个待逆推的计算式。这里我们以一个简单的加法公式为例,即A1 B1。
第二步:查看代码窗口
鼠标移动到工作表名称上,右键点击“查看代码”,即可弹出代码窗口。
第三步:插入模块
在代码窗口中,右键选择“插入”→“模块”。
第四步:输入代码
将以下代码复制并粘贴到新建的模块中:
Function j计算式(单元格)
Dim 正则 As Object
Set 正则 CreateObject("")
字符串1 单元格.Formula
字符串1
正则.Global True '搜索全部
正则.Pattern "(w !)?($?[A-Z] ($?d )?) "
Set matches 正则.Execute(字符串1)
For Each Match In matches
j计算式 Replace(字符串1, Match, Range(Match))
字符串1 j计算式
Next
End Function
第五步:使用j计算式函数
在Excel表格中,我们使用类似于SUM(A1:B1)的函数来进行计算。同样地,我们也可以使用刚刚定义的j计算式函数来逆推计算式的值。例如,在另一个单元格中输入j计算式(A2),即可得到原先计算式A1 B1的值。
总结:
通过以上的步骤,我们可以轻松地逆推出Excel表格中的计算式,并快速获取对应的值。这种方法不仅可以帮助我们提高工作效率,而且还能够让我们更好地理解和掌握Excel的计算规则和函数。
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。