vba实用小程序02计算任意公式的自定义函数.doc

vba实用小程序02计算任意公式的自定义函数 在Excel中，没有一个能够计算指定自变量的任意公式的值的通用函数。例如，我在单元格B2中放置公式mx+b，其中m和b是具体的数字，在单元格A2中放置自变量x的值，没有类似下面的函数来计算这个公式的值：=CalculateThisFormula(B2,A2) Jon Peltier在其博客中为此编写了一个自定义函数，代码如下：FunctionCalculateThisFormula(Formula As Variant, Xvalue As Variant) As Variant Dim sFormula As String Dim sXvalue As String Select Case TypeName(Formula) Case Range If Formula.Cells.Count = 1 Then sFormula = Formula.Value Else CalculateThisFormula =CVErr(xlErrValue) Exit Function End If Case String sFormula = Formula Case Else CalculateThisFormula =CVErr(xlErrValue) Exit Function End Select Select Case TypeName(Xvalue) Case Range If Xvalue.Cells.Count = 1 Then sXvalue = Xvalue.Value Else CalculateThisFormula =CVErr(xlErrValue) Exit Function End If Case String sXvalue = Xvalue Case Double sXvalue = CStr(Xvalue) Case Else CalculateThisFormula =CVErr(xlErrValue) Exit Function End Select sFormula = Replace(sFormula,x, ( &sXvalue& ) sFormula = Replace(sFormula,X, ( &sXvalue& ) CalculateThisFormula = Evaluate(sFormula)End Function 说明：为了避免将公式中的x与函数中的字母x混淆，例如exp()，代码在方括号中放置自变量x，即x。这个自定义函数的语法为：CalculateThisFormula(Formula,Xvalue)其中，Formula代表公式的字符串，或者是对包含公式字符串的单元格的引用。例如，y=f(x)，那么Formula为f(x)，且自变量x必须表示为x，并且在公式表达式中必须显示包含所有运算符。Xvalue表示自变量x的值的数字或字符串，或者对包含数字值的单元格的引用。如果任一参数包含多个单元格或者不恰当的输入，那么公式将返回错误。 下图1所示为自定义函数在工作表中的运用：图1 在单元格B2中输入公式：=CalculateThisFormula(B$1,$A2)向下向右拖动至单元格E6。 这个自定义函数也可以这样使用：=CalculateThisFormula(4*x2-3*x+5,2)=CalculateThisFormula(1/x,4)本文整理自的