新人求教关于VBA中如何实现自定义函数嵌套使用？
函数调用方式错误，应为Function 函数1(A1， A2， A3)Select Case A1 Case Is = "1" 函数1 = Application.Run("函数2"， A2， A3) Case Is = "2" 函数1 = Application.Run("函数3"， A2， A3)End SelectEnd Function或者更加简单：Function 函数1(A1， A2， A3)Select Case A1 Case Is = "1" 函数1 = 函数2(A2， A3) Case Is = "2" 函数1 = 函数3(A2， A3)End SelectEnd Function
ExcelVBA自定义函数？
vb函数分sub（无返回值）以及function（有返回值）简单范例PublicFunctionss()AsStringss="我是"EndFunction注意，想定义的函数能够在窗体或别的模块调用，该函数必须是public的，也就是第一个关键字必须为publicfunction的调用很简单，直接写函数名和参数如msgboxss而sub的调用直接call，如：PublicSubss()ss="我是"EndSub调用callss另外一点需要注意，调用模块定义的函数，直接写函数名。但如果调用窗体的函数，就得把窗体加上。比如，我要调用sheet1下的bb函数，则该写成callsheet1.bb
vba怎么在单元格调用自定义函数？
在vba中自定义的函数，需要能在excel中引用，需要在function前面加public
引用方法：=function_name
VBA自定义函数,当参数是数组时,该如何书写？
两个都可以，第二个不能引用单元格区域，每个单元格都是一个参数，需要用逗号分隔第一个比较接近内置函数SUM"Option ExplicitFunction Ssum(ByVal range As range) As Double Dim rng As range For Each rng In range Ssum = Ssum rng.Value Next rngEnd FunctionFunction Ssum0(ParamArray arr()) As Double Dim i As Integer For i = LBound(arr) To UBound(arr) If IsNumeric(arr(i)) Then Ssum0 = Ssum0 arr(i) End If Next iEnd Function
excel vba中自定义一个函数，该函数需要用到函数所在的那个单元格的列号，如函数写在b5单元格？
下面的函数返回单元格地址，给你参考下Function myAddr()myAddr?=ActiveWorkbook.Application.ThisCell.AddressEnd?Function将返回运行自定义函数的单元格的地址所以可以用Dim rC As RangeSet rC=ActiveWorkbook.Application.ThisCell这样rC的行/列号就可以使用了，注意这样的自定义函数是可以随意拖动的。楼主当然明白，由于是属于VBA的自定义函数，需要触发才能更新，按F9或，在Excel设定为自动重算的前提下有单元格的数据发生变化而触发重算时或，在Excel设定为保存时重算并且操作者执行了保存是，才会更新自定义函数的数据。
07版vba自定义的函数应用于所有工作簿？
把自定义函数所在的工作簿另存为加载宏文件.xlam。
然后，左上角》excel选项》加载项》转到》浏览》找到你刚才另存的文件，确定~