使用VBA逆推Excel計(jì)算式,快速獲得值
在日常工作中,我們常常會(huì)遇到需要逆推某個(gè)Excel表格中的計(jì)算式,以便快速獲取對(duì)應(yīng)的值。一般來說,我們可以先寫好計(jì)算式,然后使用evaluate函數(shù)來得到計(jì)算式的值。但是如果想要逆推得到計(jì)算式,該怎么
在日常工作中,我們常常會(huì)遇到需要逆推某個(gè)Excel表格中的計(jì)算式,以便快速獲取對(duì)應(yīng)的值。一般來說,我們可以先寫好計(jì)算式,然后使用evaluate函數(shù)來得到計(jì)算式的值。但是如果想要逆推得到計(jì)算式,該怎么辦呢?下面就來分享一些實(shí)用的經(jīng)驗(yàn)。
第一步:新建一個(gè)工作簿,并隨便寫上幾個(gè)數(shù)據(jù)和一個(gè)公式
首先,我們需要打開Excel,新建一個(gè)工作簿,并在其中填寫一些數(shù)據(jù)和一個(gè)待逆推的計(jì)算式。這里我們以一個(gè)簡(jiǎn)單的加法公式為例,即A1 B1。
第二步:查看代碼窗口
鼠標(biāo)移動(dòng)到工作表名稱上,右鍵點(diǎn)擊“查看代碼”,即可彈出代碼窗口。
第三步:插入模塊
在代碼窗口中,右鍵選擇“插入”→“模塊”。
第四步:輸入代碼
將以下代碼復(fù)制并粘貼到新建的模塊中:
Function j計(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計(jì)算式 Replace(字符串1, Match, Range(Match))
字符串1 j計(jì)算式
Next
End Function
第五步:使用j計(jì)算式函數(shù)
在Excel表格中,我們使用類似于SUM(A1:B1)的函數(shù)來進(jìn)行計(jì)算。同樣地,我們也可以使用剛剛定義的j計(jì)算式函數(shù)來逆推計(jì)算式的值。例如,在另一個(gè)單元格中輸入j計(jì)算式(A2),即可得到原先計(jì)算式A1 B1的值。
總結(jié):
通過以上的步驟,我們可以輕松地逆推出Excel表格中的計(jì)算式,并快速獲取對(duì)應(yīng)的值。這種方法不僅可以幫助我們提高工作效率,而且還能夠讓我們更好地理解和掌握Excel的計(jì)算規(guī)則和函數(shù)。