excel表格一个单元格式怎么设置宏就能自动计算出和

问题描述

精选答案

任意单元格，那只能用宏了，做一个自定义函数。如果固定的在B列，计算A列算式，就没必要了，可以用宏表函数。cal自定义函数的代码如下Function cal(单元格 As Range)Application.VolatileDim temp As String, adds As Stringadds = 单元格.Address(0, 0)If Left(单元格(1).Text, 1) = "{" And Right(单元格(1).Text, 1) = "}

" Thentemp = VBA.Replace(VBA.Replace(单元格(1).Text, "{", ""), "}", ""

)Elsetemp = 单元格(1).TextEnd Iftemp = VBA.Replace(Replace(temp, "row()", "row(" + adds + ")"), "column()", "column(" + adds + ")"

)cal = Application.Evaluate(temp)End Function